Mercurial > emacs
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))