From: Kenichi Handa <handa@m17n.org>
Date: Fri, 16 Mar 2001 05:52:16 +0000 (+0000)
Subject: (rmail-insert-inbox-text): Call expand-file-name before
X-Git-Tag: emacs-pretest-21.0.101~297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a85a1794abe1c8391dd82fa561a53b63be00fa2;p=emacs.git

(rmail-insert-inbox-text): Call expand-file-name before
substitute-in-file-name to handle double slashes in FILE correctly.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 400f2ecee2c..927ac482bba 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1376,7 +1376,7 @@ It returns t if it got any new messages."
       (if popmail
 	  (setq renamep t)
 	(setq file (file-truename
-		    (expand-file-name (substitute-in-file-name file)))))
+		    (substitute-in-file-name (expand-file-name file)))))
       (setq tofile (expand-file-name
 		    ;; Generate name to move to from inbox name,
 		    ;; in case of multiple inboxes that need moving.