changeset 6035:a96a9f6cb250

(rmail-insert-inbox-text): Recognize the spool directory even if symlinks are present.
author Karl Heuer <kwzh@gnu.org>
date Wed, 23 Feb 1994 00:29:43 +0000
parents 5d1524e58d71
children 7e9984c9a36e
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Feb 22 23:57:13 1994 +0000
+++ b/lisp/mail/rmail.el	Wed Feb 23 00:29:43 1994 +0000
@@ -751,7 +751,8 @@
 (defun rmail-insert-inbox-text (files renamep)
   (let (file tofile delete-files movemail popmail)
     (while files
-      (setq file (expand-file-name (substitute-in-file-name (car files)))
+      (setq file (file-truename
+		  (expand-file-name (substitute-in-file-name (car files))))
 	    ;;>> un*x specific <<
 	    ;; The "+" used to be "~", which is an extremely poor choice;
 	    ;; it might accidentally be deleted when space is low
@@ -760,7 +761,8 @@
       ;; If getting from mail spool directory,
       ;; use movemail to move rather than just renaming,
       ;; so as to interlock with the mailer.
-      (setq movemail (equal (file-name-directory file) rmail-spool-directory)
+      (setq movemail (string= (file-name-directory file)
+			      (file-truename rmail-spool-directory))
 	    popmail (string-match "^po:" (file-name-nondirectory file)))
       (if popmail (setq file (file-name-nondirectory file)
 			renamep t))