# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 741569751 0
# Node ID d95172e91f4e975ca266823075e8f630b0630673
# Parent  33d46b047130461c46e57234d8ff783e31a0f3d0
(mail-send): Don't test buffer-modified-p if buffer is visiting a file.

diff -r 33d46b047130 -r d95172e91f4e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Jul 01 22:13:28 1993 +0000
+++ b/lisp/mail/sendmail.el	Thu Jul 01 23:35:51 1993 +0000
@@ -300,8 +300,10 @@
 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)