From 16d1606d777e6b688f353837e7a89be843f211da Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 12 Jun 1994 12:57:42 +0000 Subject: [PATCH] (mail): If homedir is nonexistent, don't use as default. --- lisp/mail/sendmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.5