Mercurial > emacs

changeset 14925:a19affa9f653

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail): Put the auto-save file in the home dir.
author Richard M. Stallman <rms@gnu.org>
date Wed, 03 Apr 1996 04:42:55 +0000
parents 67ec801831b8
children 963288ebadeb
files lisp/mail/sendmail.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Apr 02 15:39:19 1996 +0000
+++ b/lisp/mail/sendmail.el	Wed Apr 03 04:42:55 1996 +0000
@@ -1020,7 +1020,10 @@
 ;;;	      (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*).