From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 22 Jun 1996 16:55:35 +0000 (+0000)
Subject: (rmail-summary-bury): New function.
X-Git-Tag: emacs-19.34~374
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00f3d57da4fadd45752155aef94ea9ad479262e3;p=emacs.git

(rmail-summary-bury): New function.
(rmail-summary-mode-map): Put rmail-summary-bury on b.
---

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)