Mercurial > emacs

changeset 11552:c20207bd74a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-insert-inbox-text): Get the truename of the standard inbox name, not just of its directory.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Apr 1995 04:09:47 +0000
parents 032725b727cd
children 03aaf11843d1
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Apr 25 03:35:00 1995 +0000
+++ b/lisp/mail/rmail.el	Tue Apr 25 04:09:47 1995 +0000
@@ -930,8 +930,10 @@
       ;; 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))