(mail-send): Don't test buffer-modified-p if buffer is visiting a file.

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)