From 072c1ebbf4d257608b922325e95ec6d8dcbad1d7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 19 Jul 1997 08:15:46 +0000 Subject: [PATCH] (mail): Ask a different question, if buffer is visiting a file. --- lisp/mail/sendmail.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2