From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 13 Jul 1993 20:18:05 +0000 (+0000)
Subject: (mail-bury): New function.
X-Git-Tag: emacs-19.34~11777
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b6bb250a6f41bd515a45d4437b1892ca88aa203;p=emacs.git

(mail-bury): New function.
(mail-send-and-exit): Call mail-bury.
(mail-dont-send): New command, with menu bar binding.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index daf3d329135..9fb20e9d810 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -248,6 +248,9 @@ C-c C-v  mail-sent-via (add a sent-via field for each To or CC)."
 (define-key mail-mode-map [menu-bar mail signature]
   '("Insert Signature" . mail-signature))
 
+(define-key mail-mode-map [menu-bar mail cancel]
+  '("Cancel" . mail-dont-send))
+
 (define-key mail-mode-map [menu-bar mail send-stay]
   '("Send, Keep Editing" . mail-send))
 
@@ -283,6 +286,16 @@ C-c C-v  mail-sent-via (add a sent-via field for each To or CC)."
 Prefix arg means don't delete this window."
   (interactive "P")
   (mail-send)
+  (mail-bury arg))
+
+(defun mail-dont-send (arg)
+  "Don't send the message you have been editing.
+Prefix arg means don't delete this window."
+  (interactive "P")
+  (mail-bury arg))
+
+(defun mail-bury (arg)
+  "Bury this mail buffer."
   (let ((newbuf (other-buffer (current-buffer))))
     (bury-buffer (current-buffer))
     (if (and (not arg)