# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835462535 0
# Node ID fd4273de8c9787e26fb138776eabacf73815f021
# Parent  bf3ee2ec50686b29a64534f96b383208496e9666
(rmail-summary-bury): New function.
(rmail-summary-mode-map): Put rmail-summary-bury on b.

diff -r bf3ee2ec5068 -r fd4273de8c97 lisp/mail/rmailsum.el
--- 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)