diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 9a88ce98005..8f4bf10eff0 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -515,7 +515,10 @@ argument causes us to read a file name and use that file as the inbox." (while files (setq file (expand-file-name (substitute-in-file-name (car files))) ;;>> un*x specific << - tofile (concat file "~")) + ;; The "+" used to be "~", which is an extremely poor choice; + ;; it might accidentally be deleted when space is low + ;; (as happened to me!). + tofile (concat file "+")) ;; If getting from mail spool directory, ;; use movemail to move rather than just renaming, ;; so as to interlock with the mailer. |