Mercurial > emacs
changeset 8955:14951db9444a
(mail-bury-selects-summary): New variable.
(mail-bury): Test it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Sep 1994 23:52:38 +0000 |
| parents | c910dbca1355 |
| children | 390019f3ab08 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Tue Sep 20 22:16:26 1994 +0000 +++ b/lisp/mail/sendmail.el Tue Sep 20 23:52:38 1994 +0000 @@ -130,6 +130,12 @@ 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 @@ (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))