Commit 3943fa09 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail): Once again set default dir to home dir.

parent 321eb232
......@@ -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*).
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment