Mercurial > emacs
comparison lisp/mail/rmail.el @ 11552:c20207bd74a8
(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 | 2d1e996c4359 |
children | 74afe5e734a8 |
comparison
equal
deleted
inserted
replaced
11551:032725b727cd | 11552:c20207bd74a8 |
---|---|
928 ;; (as happened to me!). | 928 ;; (as happened to me!). |
929 tofile (concat file "+")) | 929 tofile (concat file "+")) |
930 ;; If getting from mail spool directory, | 930 ;; If getting from mail spool directory, |
931 ;; use movemail to move rather than just renaming, | 931 ;; use movemail to move rather than just renaming, |
932 ;; so as to interlock with the mailer. | 932 ;; so as to interlock with the mailer. |
933 (setq movemail (string= (file-name-directory file) | 933 (setq movemail (string= file |
934 (file-truename rmail-spool-directory)) | 934 (file-truename |
935 (concat rmail-spool-directory | |
936 (file-name-nondirectory file)))) | |
935 popmail (string-match "^po:" (file-name-nondirectory file))) | 937 popmail (string-match "^po:" (file-name-nondirectory file))) |
936 (if popmail (setq file (file-name-nondirectory file) | 938 (if popmail (setq file (file-name-nondirectory file) |
937 renamep t)) | 939 renamep t)) |
938 (if movemail | 940 (if movemail |
939 (progn | 941 (progn |