From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 Apr 1995 04:09:47 +0000 (+0000)
Subject: (rmail-insert-inbox-text): Get the truename of
X-Git-Tag: emacs-19.34~4306
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efa5c63ad5c001901ee5eb9d2d484b021b3110f5;p=emacs.git

(rmail-insert-inbox-text): Get the truename of
the standard inbox name, not just of its directory.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 08c6ed6d217..96f9e02816c 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -930,8 +930,10 @@ It returns t if it got any new messages."
       ;; If getting from mail spool directory,
       ;; use movemail to move rather than just renaming,
       ;; so as to interlock with the mailer.
-      (setq movemail (string= (file-name-directory file)
-			      (file-truename rmail-spool-directory))
+      (setq movemail (string= file
+			      (file-truename
+			       (concat rmail-spool-directory
+				       (file-name-nondirectory file))))
 	    popmail (string-match "^po:" (file-name-nondirectory file)))
       (if popmail (setq file (file-name-nondirectory file)
 			renamep t))