procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mail): Avoid changing auto-save file name.

Browse source
This commit is contained in:
Richard M. Stallman 1998-06-28 18:57:51 +00:00
parent 781f7ac281
commit 2e78575e5c
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/sendmail.el
View file

@ -1346,7 +1346,10 @@ The seventh argument ACTIONS is a list of actions to take
;; to avoid any danger that it can't be written. ;; to avoid any danger that it can't be written.
(if (file-exists-p (expand-file-name "~/")) (if (file-exists-p (expand-file-name "~/"))
(setq default-directory (expand-file-name "~/"))) (setq default-directory (expand-file-name "~/")))
(auto-save-mode auto-save-default) ;; Only call auto-save-mode if necessary, to avoid changing auto-save file.
(if (or (and auto-save-default (not buffer-auto-save-file-name))
(and (not auto-save-default) buffer-auto-save-file-name))
(auto-save-mode auto-save-default))
(mail-mode) (mail-mode)
;; Disconnect the buffer from its visited file ;; Disconnect the buffer from its visited file
;; (in case the user has actually visited a file *mail*). ;; (in case the user has actually visited a file *mail*).