From 660a52f9c9cab18c9b2d197176cd43c9f5a62c2d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 24 Dec 1993 02:49:41 +0000 Subject: [PATCH] (rmail-insert-inbox-text): If copy-file fails, call rename-file with t as third arg. --- lisp/mail/rmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index bbbe818ca7d..2ea8b6b27f1 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -778,7 +778,8 @@ argument causes us to read a file name and use that file as the inbox." (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. -- 2.39.5