# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869300146 0
# Node ID 32c4a961d11f715dfa6d0dacc24b1c19283e84b7
# Parent  d86beb823996cf2b5566825ba749d950c8ebc3e0
(mail): Ask a different question, if buffer is visiting a file.

diff -r d86beb823996 -r 32c4a961d11f lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sat Jul 19 08:11:51 1997 +0000
+++ b/lisp/mail/sendmail.el	Sat Jul 19 08:15:46 1997 +0000
@@ -1241,7 +1241,9 @@
   (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)