# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 828506575 0
# Node ID a19affa9f653aed19b0a24e50c0508b20c2d8bd2
# Parent  67ec801831b8137876007ceeb9051e02f10e8649
(mail): Put the auto-save file in the home dir.

diff -r 67ec801831b8 -r a19affa9f653 lisp/mail/sendmail.el
--- 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*).