diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 8c1bd7e644e..fbe5064ee41 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -300,8 +300,10 @@ or error messages, and inform user. Otherwise any failure is reported in a message back to the user from the mailer." (interactive) - (if (or (buffer-modified-p) - (y-or-n-p "Message already sent; resend? ")) + (if (if buffer-file-name + (y-or-n-p "Send buffer contents as mail message? ") + (or (buffer-modified-p) + (y-or-n-p "Message already sent; resend? "))) (progn (message "Sending...") (run-hooks 'mail-send-hook) |