Mercurial > emacs

diff lisp/mail/sendmail.el @ 8144:41071c0159f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
foo?
author Michael I. Bushnell <mib@gnu.org>
date Tue, 05 Jul 1994 16:52:59 +0000
parents 388fc8badf4a
children d94fc60e4195
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Jul 05 15:44:40 1994 +0000
+++ b/lisp/mail/sendmail.el	Tue Jul 05 16:52:59 1994 +0000
@@ -831,6 +831,9 @@
       (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 @@
 	   (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)