Mercurial > emacs
changeset 18871:32c4a961d11f
(mail): Ask a different question, if buffer is visiting a file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Jul 1997 08:15:46 +0000 |
| parents | d86beb823996 |
| children | 8c7bcffd7327 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)