# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 828507095 0
# Node ID 963288ebadeb8908c45c9ee6296bb9743ef8de7d
# Parent  a19affa9f653aed19b0a24e50c0508b20c2d8bd2
(mail): Once again set default dir to home dir.

diff -r a19affa9f653 -r 963288ebadeb lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Wed Apr 03 04:42:55 1996 +0000
+++ b/lisp/mail/sendmail.el	Wed Apr 03 04:51:35 1996 +0000
@@ -1022,8 +1022,9 @@
   (pop-to-buffer "*mail*")
   ;; 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))
+  (if (file-exists-p (expand-file-name "~/"))
+      (setq default-directory (expand-file-name "~/")))
+  (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*).