From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 3 Apr 1996 04:51:35 +0000 (+0000)
Subject: (mail): Once again set default dir to home dir.
X-Git-Tag: emacs-19.34~934
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3943fa098eb21ae5f536a9dcd81b5b59aa37df80;p=emacs.git

(mail): Once again set default dir to home dir.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 5543ac198ab..a8185e1f557 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1022,8 +1022,9 @@ The seventh argument ACTIONS is a list of actions to take
   (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*).