# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 711403794 0
# Node ID f3706268745aab49b0d47e58ce96cfddd77f08a7
# Parent  485e82a8acb577980a0339b822fc94bf8c9cdda3
*** empty log message ***

diff -r 485e82a8acb5 -r f3706268745a lisp/mail/rmail.el
--- 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.