From 00f3d57da4fadd45752155aef94ea9ad479262e3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 22 Jun 1996 16:55:35 +0000 Subject: [PATCH] (rmail-summary-bury): New function. (rmail-summary-mode-map): Put rmail-summary-bury on b. --- lisp/mail/rmailsum.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index a3600fabba0..7b2e2e21d9d 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -720,6 +720,7 @@ Commands for sorting the summary: (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 @@ advance to the previous message." (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) -- 2.39.2