From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 13 Jul 1993 05:52:32 +0000 (+0000)
Subject: (rmail-insert-inbox-text): If inbox is not in the
X-Git-Tag: emacs-19.34~11780
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=019bf2a31326fea9e78685df10cfa36dcee2c609;p=emacs.git

(rmail-insert-inbox-text): If inbox is not in the
spool dir, try copying before renaming.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index ad99396a45c..a4ee62c3ad6 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -753,7 +753,12 @@ argument causes us to read a file name and use that file as the inbox."
 					     (not (file-exists-p file))))
 	     nil)
 	    ((and (not movemail) (not popmail))
-	     (rename-file file tofile nil)
+	     ;; Try copying.  If that fails (perhaps no space),
+	     ;; rename instead.
+	     (condition-case nil
+		 (copy-file file tofile nil)
+	       (error
+		(rename-file file tofile nil)))
 	     ;; Make the real inbox file empty.
 	     ;; Leaving it deleted could cause lossage
 	     ;; because mailers often won't create the file.