diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-19 08:15:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-19 08:15:46 +0000 |
| commit | 072c1ebbf4d257608b922325e95ec6d8dcbad1d7 (patch) | |
| tree | 31bdceb53e7fe40c3bcd68b7f9cd6c2ae357e0e9 /lisp/mail/sendmail.el | |
| parent | 1b8def58576bfd0b881f3d0b34c06b158bf607a6 (diff) | |
| download | emacs-072c1ebbf4d257608b922325e95ec6d8dcbad1d7.tar.gz | |
(mail): Ask a different question, if buffer is visiting a file.
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |