From: Richard M. Stallman Date: Wed, 3 Apr 1996 04:42:55 +0000 (+0000) Subject: (mail): Put the auto-save file in the home dir. X-Git-Tag: emacs-19.34~935 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=321eb232a3c24f8017609e586c7d84a185e21be7;p=emacs.git (mail): Put the auto-save file in the home dir. --- 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*).