Mercurial > emacs

comparison lisp/mail/rmail.el @ 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 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