# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756701381 0
# Node ID 2c747b081be1925f2c8dc52c9cb494e8f3c3df44
# Parent  f091cdec77e250e7ee0d09e26e8da8fc8429f483
(rmail-insert-inbox-text): If copy-file fails,
call rename-file with t as third arg.

diff -r f091cdec77e2 -r 2c747b081be1 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Dec 24 02:44:13 1993 +0000
+++ b/lisp/mail/rmail.el	Fri Dec 24 02:49:41 1993 +0000
@@ -778,7 +778,8 @@
 	     (condition-case nil
 		 (copy-file file tofile nil)
 	       (error
-		(rename-file file tofile nil)))
+		;; Third arg is t so we can replace existing file TOFILE.
+		(rename-file file tofile t)))
 	     ;; Make the real inbox file empty.
 	     ;; Leaving it deleted could cause lossage
 	     ;; because mailers often won't create the file.