]> git.eshelyaron.com Git - emacs.git/commitdiff
(rmail-insert-inbox-text): Get the truename of
authorRichard M. Stallman <rms@gnu.org>
Tue, 25 Apr 1995 04:09:47 +0000 (04:09 +0000)
committerRichard M. Stallman <rms@gnu.org>
Tue, 25 Apr 1995 04:09:47 +0000 (04:09 +0000)
the standard inbox name, not just of its directory.

lisp/mail/rmail.el

index 08c6ed6d217eb3af7e26f3bd7521335c4e5c705a..96f9e02816c63212810d4fd19715ea330bd8ef61 100644 (file)
@@ -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))