diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-03 04:51:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-03 04:51:35 +0000 |
| commit | 60bf083dffd7b3db26d2473e934d59a891a2d625 (patch) | |
| tree | 9b09b57f366798567db87267b49a93dc16384e02 | |
| parent | 246ba997eec6914862d1013cd0ea1012cf4d8673 (diff) | |
| download | emacs-60bf083dffd7b3db26d2473e934d59a891a2d625.tar.gz | |
(mail): Once again set default dir to home dir.
| -rw-r--r-- | lisp/mail/sendmail.el | 5 |
1 files changed, 3 insertions, 2 deletions
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*). |