Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1996-04-03 04:51:35 +00:00
parent 321eb232a3
commit 3943fa098e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/sendmail.el
View file

@ -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*).