From 4cbcfa9c18220d3c34d4f67d5105ef3125bfec20 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 30 Jul 1994 00:29:08 +0000 Subject: [PATCH] (gnus-group-suspend): Be sure to bury the right buffer. --- lisp/gnus.el | 8 +++++--- 1 file 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. -- 2.39.5