diff options
| author | Richard M. Stallman | 1993-12-24 02:49:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-24 02:49:41 +0000 |
| commit | 660a52f9c9cab18c9b2d197176cd43c9f5a62c2d (patch) | |
| tree | 47e7680da5763976efab73bbb02e0129a6959bb0 /lisp | |
| parent | 1f6fcec334685c8449a56a053fe8d43d4794478c (diff) | |
| download | emacs-660a52f9c9cab18c9b2d197176cd43c9f5a62c2d.tar.gz emacs-660a52f9c9cab18c9b2d197176cd43c9f5a62c2d.zip | |
(rmail-insert-inbox-text): If copy-file fails,
call rename-file with t as third arg.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 778 | (condition-case nil | 778 | (condition-case nil |
| 779 | (copy-file file tofile nil) | 779 | (copy-file file tofile nil) |
| 780 | (error | 780 | (error |
| 781 | (rename-file file tofile nil))) | 781 | ;; Third arg is t so we can replace existing file TOFILE. |
| 782 | (rename-file file tofile t))) | ||
| 782 | ;; Make the real inbox file empty. | 783 | ;; Make the real inbox file empty. |
| 783 | ;; Leaving it deleted could cause lossage | 784 | ;; Leaving it deleted could cause lossage |
| 784 | ;; because mailers often won't create the file. | 785 | ;; because mailers often won't create the file. |