From 1f7850dd5c853d890c7453a5039e696edeb6ac23 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Sep 1994 23:52:38 +0000 Subject: [PATCH] (mail-bury-selects-summary): New variable. (mail-bury): Test it. --- lisp/mail/sendmail.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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)) -- 2.39.5