# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775528148 0
# Node ID 425ac5eebc19815da9c5af1306a49559a8cb46ac
# Parent  9d751556d1c717fa65704015cedf5cf3dda5cd36
(gnus-group-suspend): Be sure to bury the right buffer.

diff -r 9d751556d1c7 -r 425ac5eebc19 lisp/=gnus.el
--- a/lisp/=gnus.el	Fri Jul 29 21:42:41 1994 +0000
+++ b/lisp/=gnus.el	Sat Jul 30 00:29:08 1994 +0000
@@ -1689,14 +1689,16 @@
   (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.