diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 5543ac198ab..a8185e1f557 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -1022,8 +1022,9 @@ The seventh argument ACTIONS is a list of actions to take | |||
| 1022 | (pop-to-buffer "*mail*") | 1022 | (pop-to-buffer "*mail*") |
| 1023 | ;; Put the auto-save file in the home dir | 1023 | ;; Put the auto-save file in the home dir |
| 1024 | ;; to avoid any danger that it can't be written. | 1024 | ;; to avoid any danger that it can't be written. |
| 1025 | (let ((default-directory "~/")) | 1025 | (if (file-exists-p (expand-file-name "~/")) |
| 1026 | (auto-save-mode auto-save-default)) | 1026 | (setq default-directory (expand-file-name "~/"))) |
| 1027 | (auto-save-mode auto-save-default) | ||
| 1027 | (mail-mode) | 1028 | (mail-mode) |
| 1028 | ;; Disconnect the buffer from its visited file | 1029 | ;; Disconnect the buffer from its visited file |
| 1029 | ;; (in case the user has actually visited a file *mail*). | 1030 | ;; (in case the user has actually visited a file *mail*). |