diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-03 04:42:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-03 04:42:55 +0000 |
| commit | 246ba997eec6914862d1013cd0ea1012cf4d8673 (patch) | |
| tree | d066614c87b631e117c940ecd74dcff76884a1ad /lisp/mail/sendmail.el | |
| parent | a19a54350bf9c0b6ce3e16f8643a61fd12cab7bd (diff) | |
| download | emacs-246ba997eec6914862d1013cd0ea1012cf4d8673.tar.gz | |
(mail): Put the auto-save file in the home dir.
Diffstat (limited to 'lisp/mail/sendmail.el')
| -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 ;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) ;;; t)) (pop-to-buffer "*mail*") - (auto-save-mode auto-save-default) + ;; Put the auto-save file in the home dir + ;; to avoid any danger that it can't be written. + (let ((default-directory "~/")) + (auto-save-mode auto-save-default)) (mail-mode) ;; Disconnect the buffer from its visited file ;; (in case the user has actually visited a file *mail*). |