# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771425862 0
# Node ID 41f30d92485e636d9741c2eedfb2b2e246c75e6a
# Parent  e735b56f74232521e9c6d98510e1b0c3f2596d42
(mail): If homedir is nonexistent, don't use as default.

diff -r e735b56f7423 -r 41f30d92485e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun Jun 12 12:42:56 1994 +0000
+++ b/lisp/mail/sendmail.el	Sun Jun 12 12:57:42 1994 +0000
@@ -825,7 +825,8 @@
 ;;;	      (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)