From 70a5cb0aba3b4ea7dab4cdfe3671978d163135c1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 May 2001 18:19:17 +0000
Subject: [PATCH] Fix bug: don't merge name of default pathname into partial
 URL string.

---
 v7/src/imail/imail-file.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index e4f5cc8ab..ecd1c7997 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.62 2001/05/09 17:38:22 cph Exp $
+;;; $Id: imail-file.scm,v 1.63 2001/05/10 18:19:17 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -77,7 +77,7 @@
 		       (re-string-match "/[a-z]:" s #t))
 		  (string-tail s 1)
 		  s))
-	    default-pathname))))
+	    (directory-pathname default-pathname)))))
     (cond ((string-prefix? "//localhost/" string)
 	   (finish (string-tail string (string-length "//localhost"))))
 	  ((string-prefix? "///" string)
-- 
2.25.1