Mercurial > emacs

changeset 4074:daf4ba204fe5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-bury): New function. (mail-send-and-exit): Call mail-bury. (mail-dont-send): New command, with menu bar binding.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Jul 1993 20:18:05 +0000
parents c476d93af94b
children 3a8e54f78c54
files lisp/mail/sendmail.el
diffstat 1 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Jul 13 16:37:01 1993 +0000
+++ b/lisp/mail/sendmail.el	Tue Jul 13 20:18:05 1993 +0000
@@ -248,6 +248,9 @@
 (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 @@
 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)