From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 30 Jul 1994 00:29:08 +0000 (+0000)
Subject: (gnus-group-suspend): Be sure to bury the right buffer.
X-Git-Tag: emacs-19.34~7471
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cbcfa9c18220d3c34d4f67d5105ef3125bfec20;p=emacs.git

(gnus-group-suspend): Be sure to bury the right buffer.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 79699b73400..1862ad5b37b 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1689,14 +1689,16 @@ The hook gnus-suspend-gnus-hook is called before actually suspending."
   (interactive)
   (run-hooks 'gnus-suspend-gnus-hook)
   ;; Kill GNUS buffers except for Group Mode buffer.
-  (let ((buffers gnus-buffer-list))
+  (let ((buffers gnus-buffer-list)
+	(group-buf (get-buffer gnus-group-buffer)))
     (while buffers
       (and (not (eq (car buffers) gnus-group-buffer))
 	   (get-buffer (car buffers))
 	   (kill-buffer (car buffers)))
       (setq buffers (cdr buffers))
-      ))
-  (bury-buffer))
+      )
+    (bury-buffer group-buf)
+    (delete-windows-on group-buf t)))
 
 (defun gnus-group-exit ()
   "Quit reading news after updating .newsrc.