From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 Jul 1995 04:43:05 +0000 (+0000)
Subject: (rmail-insert-inbox-text): Always use movemail when renaming a file.
X-Git-Tag: emacs-19.34~3209
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec3bba39c6fc4223963aaf20505446fa0dd48d3b;p=emacs.git

(rmail-insert-inbox-text): Always use movemail when renaming a file.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index c1b78cac67e..7564f885bc0 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -926,33 +926,31 @@ It returns t if it got any new messages."
     (while files
       (setq file (file-truename
 		  (expand-file-name (substitute-in-file-name (car files))))
-	    ;;>> un*x specific <<
-	    ;; 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.
-      (setq movemail (string= file
-			      (file-truename
-			       (concat rmail-spool-directory
-				       (file-name-nondirectory file))))
-	    popmail (string-match "^po:" (file-name-nondirectory file)))
+	    tofile (expand-file-name
+		    ;; Generate name to move to from inbox name,
+		    ;; in case of multiple inboxes that need moving.
+		    (concat ".newmail-" (file-name-nondirectory file))
+		    ;; Use the directory of this rmail file
+		    ;; because it's a nuisance to use the homedir
+		    ;; if that is on a full disk and this rmail
+		    ;; file isn't.
+		    (file-name-directory
+		     (expand-file-name buffer-file-name))))
+      ;; Always use movemail to rename the file,
+      ;; since there can be mailboxes in various directories.
+      (setq movemail t)
+;;;      ;; If getting from mail spool directory,
+;;;      ;; use movemail to move rather than just renaming,
+;;;      ;; so as to interlock with the mailer.
+;;;      (setq movemail (string= file
+;;;			      (file-truename
+;;;			       (concat rmail-spool-directory
+;;;				       (file-name-nondirectory file)))))
+      (setq popmail (string-match "^po:" (file-name-nondirectory file)))
       (if popmail (setq file (file-name-nondirectory file)
 			renamep t))
       (if movemail
 	  (progn
-	    (setq tofile (expand-file-name
-			   ;; Generate name to move to from inbox name,
-			   ;; in case of multiple inboxes that need moving.
-			   (concat ".newmail-" (file-name-nondirectory file))
-			   ;; Use the directory of this rmail file
-			   ;; because it's a nuisance to use the homedir
-			   ;; if that is on a full disk and this rmail
-			   ;; file isn't.
-			   (file-name-directory
-			     (expand-file-name buffer-file-name))))
 	    ;; On some systems, /usr/spool/mail/foo is a directory
 	    ;; and the actual inbox is /usr/spool/mail/foo/foo.
 	    (if (file-directory-p file)