# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742542752 0
# Node ID 4f387cc0a49f7b1a4c911296a8ed2b350096e8eb
# Parent  5a97f81baf65a4aab0b7567352505d3b17f228d6
(rmail-insert-inbox-text): If inbox is not in the
spool dir, try copying before renaming.

diff -r 5a97f81baf65 -r 4f387cc0a49f lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Jul 13 04:00:04 1993 +0000
+++ b/lisp/mail/rmail.el	Tue Jul 13 05:52:32 1993 +0000
@@ -753,7 +753,12 @@
 					     (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.