From e11094e681f80c7190f2a5fa731f2b9059d0340b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Jul 1993 23:35:51 +0000 Subject: [PATCH] (mail-send): Don't test buffer-modified-p if buffer is visiting a file. --- lisp/mail/sendmail.el | 6 ++++-- 1 file 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) -- 2.39.5