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

1 files changed, 5 insertions, 3 deletions

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.