Mercurial > emacs

changeset 14926:963288ebadeb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail): Once again set default dir to home dir.
author Richard M. Stallman <rms@gnu.org>
date Wed, 03 Apr 1996 04:51:35 +0000
parents a19affa9f653
children 645493140921
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Wed Apr 03 04:42:55 1996 +0000
+++ b/lisp/mail/sendmail.el	Wed Apr 03 04:51:35 1996 +0000
@@ -1022,8 +1022,9 @@
   (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*).