(gnus-group-suspend): "real" fix.

Don't blame me for changes in 5.6.38; it's not what I sent to Lars.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 10a9bd9..408b7ac 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3161,12 +3161,12 @@ In fact, cleanup buffers except for group mode buffer.
 The hook gnus-suspend-gnus-hook is called before actually suspending."
   (interactive)
   (gnus-run-hooks 'gnus-suspend-gnus-hook)
-  ;; Kill Gnus buffers except for group mode buffer.
-  (let* ((group-buf (get-buffer gnus-group-buffer)))
-    (apply (lambda (buf)
-            (unless (equal buf group-buf)
-              (kill-buffer buf)))
-          (gnus-buffers))
+  ;; Kill Gnus buffers except for group buffer and dribble buffer.
+  (let ((group-buf (get-buffer gnus-group-buffer)))
+    (mapcar (function kill-buffer)
+           (delete group-buf
+                   (delete gnus-dribble-buffer
+                           (append (gnus-buffers) nil))))
     (gnus-kill-gnus-frames)
     (when group-buf
       (bury-buffer group-buf)