From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Sep 1994 23:52:38 +0000 (+0000)
Subject: (mail-bury-selects-summary): New variable.
X-Git-Tag: emacs-19.34~6899
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f7850dd5c853d890c7453a5039e696edeb6ac23;p=emacs.git

(mail-bury-selects-summary): New variable.
(mail-bury): Test it.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index ac8d3448759..6d4764d64d7 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -130,6 +130,12 @@ If t, it means to insert the contents of the file `~/.signature'.")
 It is inserted before you edit the message,
 so you can edit or delete these lines.")
 
+(defvar mail-bury-selects-summary t
+  "*If non-nil, try to show RMAIL summary buffer after returning from mail.
+The functions \\[mail-send-on-exit] or \\[mail-dont-send] select
+the RMAIL summary buffer before returning, if it exists and this variable
+is non-nil.")
+
 ;; Note: could use /usr/ucb/mail instead of sendmail;
 ;; options -t, and -v if not interactive.
 (defvar mail-mailer-swallows-blank-line
@@ -347,7 +353,8 @@ Prefix arg means don't delete this window."
 	       (set-buffer (window-buffer (next-window (selected-window) 'not)))
 	       (setq rmail-flag (eq major-mode 'rmail-mode))
 	       (setq summary-buffer
-		     (and (boundp 'rmail-summary-buffer)
+		     (and mail-bury-selects-summary
+			  (boundp 'rmail-summary-buffer)
 			  rmail-summary-buffer
 			  (buffer-name rmail-summary-buffer)
 			  (not (get-buffer-window rmail-summary-buffer))