diff options
| author | Richard M. Stallman | 1996-04-03 04:42:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-04-03 04:42:55 +0000 |
| commit | 321eb232a3c24f8017609e586c7d84a185e21be7 (patch) | |
| tree | 765ada40393b1e190db1b0382d0b1905d38c8b6c | |
| parent | b4bcc0c4a8b1cdde0849e3cd24f69d4e9a535050 (diff) | |
| download | emacs-321eb232a3c24f8017609e586c7d84a185e21be7.tar.gz emacs-321eb232a3c24f8017609e586c7d84a185e21be7.zip | |
(mail): Put the auto-save file in the home dir.
| -rw-r--r-- | lisp/mail/sendmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 4047c18ca38..5543ac198ab 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -1020,7 +1020,10 @@ The seventh argument ACTIONS is a list of actions to take | |||
| 1020 | ;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) | 1020 | ;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) |
| 1021 | ;;; t)) | 1021 | ;;; t)) |
| 1022 | (pop-to-buffer "*mail*") | 1022 | (pop-to-buffer "*mail*") |
| 1023 | (auto-save-mode auto-save-default) | 1023 | ;; Put the auto-save file in the home dir |
| 1024 | ;; to avoid any danger that it can't be written. | ||
| 1025 | (let ((default-directory "~/")) | ||
| 1026 | (auto-save-mode auto-save-default)) | ||
| 1024 | (mail-mode) | 1027 | (mail-mode) |
| 1025 | ;; Disconnect the buffer from its visited file | 1028 | ;; Disconnect the buffer from its visited file |
| 1026 | ;; (in case the user has actually visited a file *mail*). | 1029 | ;; (in case the user has actually visited a file *mail*). |