From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Jul 1993 23:35:51 +0000 (+0000)
Subject: (mail-send): Don't test buffer-modified-p if buffer is visiting a file.
X-Git-Tag: emacs-19.34~11902
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e11094e681f80c7190f2a5fa731f2b9059d0340b;p=emacs.git

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

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)