Mercurial > emacs
changeset 7858:41f30d92485e
(mail): If homedir is nonexistent, don't use as default.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 12 Jun 1994 12:57:42 +0000 |
| parents | e735b56f7423 |
| children | 1d1693211560 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)