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

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 79699b73400b3f8000a9313f5ff78043bd8de44d..1862ad5b37b467335540a1ed13713f9b8a6fa5d2 100644 (file)
--- 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.