From 1b6bb250a6f41bd515a45d4437b1892ca88aa203 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 13 Jul 1993 20:18:05 +0000 Subject: [PATCH] (mail-bury): New function. (mail-send-and-exit): Call mail-bury. (mail-dont-send): New command, with menu bar binding. --- lisp/mail/sendmail.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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) -- 2.39.5