(rmail-insert-inbox-text): If inbox is not in the

spool dir, try copying before renaming.

1 files changed, 6 insertions, 1 deletions

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.