Mercurial > emacs
changeset 15488:fd4273de8c97
(rmail-summary-bury): New function.
(rmail-summary-mode-map): Put rmail-summary-bury on b.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 22 Jun 1996 16:55:35 +0000 |
| parents | bf3ee2ec5068 |
| children | 5393431269db |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sat Jun 22 16:54:54 1996 +0000 +++ b/lisp/mail/rmailsum.el Sat Jun 22 16:55:35 1996 +0000 @@ -720,6 +720,7 @@ (setq rmail-summary-mode-map (make-keymap)) (suppress-keymap rmail-summary-mode-map) (define-key rmail-summary-mode-map "a" 'rmail-summary-add-label) + (define-key rmail-summary-mode-map "b" 'rmail-summary-bury) (define-key rmail-summary-mode-map "c" 'rmail-summary-continue) (define-key rmail-summary-mode-map "d" 'rmail-summary-delete-forward) (define-key rmail-summary-mode-map "\C-d" 'rmail-summary-delete-backward) @@ -1041,6 +1042,17 @@ (beginning-of-buffer) (pop-to-buffer rmail-summary-buffer)) +(defun rmail-summary-bury () + "Bury the Rmail buffer and the Rmail summary buffer." + (interactive) + (let ((buffer-to-bury (current-buffer))) + (let (window) + (while (setq window (get-buffer-window rmail-buffer)) + (set-window-buffer window (other-buffer rmail-buffer))) + (bury-buffer rmail-buffer)) + (switch-to-buffer (other-buffer buffer-to-bury)) + (bury-buffer buffer-to-bury))) + (defun rmail-summary-quit () "Quit out of Rmail and Rmail summary." (interactive)