From 019bf2a31326fea9e78685df10cfa36dcee2c609 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 13 Jul 1993 05:52:32 +0000 Subject: [PATCH] (rmail-insert-inbox-text): If inbox is not in the spool dir, try copying before renaming. --- lisp/mail/rmail.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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. -- 2.39.5