From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Jun 1994 12:57:42 +0000 (+0000)
Subject: (mail): If homedir is nonexistent, don't use as default.
X-Git-Tag: emacs-19.34~7995
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16d1606d777e6b688f353837e7a89be843f211da;p=emacs.git

(mail): If homedir is nonexistent, don't use as default.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 473504e2e3b..d613a7588b8 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -825,7 +825,8 @@ 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))
   (switch-to-buffer "*mail*")
-  (setq default-directory (expand-file-name "~/"))
+  (if (file-exists-p (expand-file-name "~/"))
+      (setq default-directory (expand-file-name "~/")))
   (auto-save-mode auto-save-default)
   (mail-mode)
   (let (initialized)