*** empty log message ***

[gnus] / lisp / gnus-group.el

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 66ffb0c..03ec6d9 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3167,7 +3167,7 @@ The hook gnus-suspend-gnus-hook is called before actually suspending."
   ;; Kill Gnus buffers except for group mode buffer.
   (let ((group-buf (get-buffer gnus-group-buffer)))
     (mapcar (lambda (buf)
-             (unless (equal buf group-buf)
+             (unless (member buf (list group-buf gnus-dribble-buffer))
                (kill-buffer buf)))
            (gnus-buffers))
     (gnus-kill-gnus-frames)