Mercurial > emacs

changeset 813:f3706268745a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 17 Jul 1992 20:09:54 +0000
parents 485e82a8acb5
children 38b2499cb3e9
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Fri Jul 17 18:53:44 1992 +0000
+++ b/lisp/mail/rmail.el	Fri Jul 17 20:09:54 1992 +0000
@@ -515,7 +515,10 @@
     (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.