From: Michael I. Bushnell <mib@gnu.org>
Date: Tue, 5 Jul 1994 16:52:59 +0000 (+0000)
Subject: foo?
X-Git-Tag: emacs-19.34~7709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b112b5e003b5b4e54537224180015748bdc3476;p=emacs.git

foo?
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index a51de2597ad..1d863603783 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -831,6 +831,9 @@ The seventh argument ACTIONS is a list of actions to take
       (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*).
+  (set-visited-file-name nil)
   (let (initialized)
     (and (not noerase)
 	 (or (not (buffer-modified-p))
@@ -856,7 +859,7 @@ The seventh argument ACTIONS is a list of actions to take
 	   (let ((buffer-read-only nil))
 	     (erase-buffer)
 	     (insert-file-contents file-name nil)))
-	  (t (error "mail-recover cancelled.")))))
+	  (t (error "mail-recover cancelled")))))
 
 ;;;###autoload
 (defun mail-other-window (&optional noerase to subject in-reply-to cc replybuffer sendactions)