Mercurial > emacs
changeset 4071:4f387cc0a49f
(rmail-insert-inbox-text): If inbox is not in the
spool dir, try copying before renaming.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 13 Jul 1993 05:52:32 +0000 |
| parents | 5a97f81baf65 |
| children | d38c94145afe |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.