From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Jun 1998 18:57:51 +0000 (+0000)
Subject: (mail): Avoid changing auto-save file name.
X-Git-Tag: emacs-20.3~445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e78575e5c17f6e94c4cc1562be342e3233d1809;p=emacs.git

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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 84a2c5a7925..4b36b2d2e93 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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.
   (if (file-exists-p (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)
   ;; Disconnect the buffer from its visited file
   ;; (in case the user has actually visited a file *mail*).