From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 19 Jul 1997 08:15:46 +0000 (+0000)
Subject: (mail): Ask a different question, if buffer is visiting a file.
X-Git-Tag: emacs-20.1~1075
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=072c1ebbf4d257608b922325e95ec6d8dcbad1d7;p=emacs.git

(mail): Ask a different question, if buffer is visiting a file.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index a200e9a2d83..19cfb4864e5 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1241,7 +1241,9 @@ The seventh argument ACTIONS is a list of actions to take
   (let (initialized)
     (and (not noerase)
 	 (or (not (buffer-modified-p))
-	     (y-or-n-p "Unsent message being composed; erase it? "))
+	     (if buffer-file-name
+		 (y-or-n-p "Buffer is modified; erase it and reinitialize? ")
+	       (y-or-n-p "Unsent message being composed; erase it? ")))
 	 (let ((inhibit-read-only t))
 	   (erase-buffer)
 	   (mail-setup to subject in-reply-to cc replybuffer actions)