diff options
| author | Richard M. Stallman <[email protected]> | 1994-09-20 23:52:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-09-20 23:52:38 +0000 |
| commit | 1f7850dd5c853d890c7453a5039e696edeb6ac23 (patch) | |
| tree | 84f5ca5f6c465215b455727ddbe2642c059d0e4a /lisp/mail | |
| parent | 0bdd1e863bc4ca6fa285555f5a0e98efdce4c53c (diff) | |
(mail-bury-selects-summary): New variable.
(mail-bury): Test it.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index ac8d344875..6d4764d64d 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)) |