From: shuhei-k <shuhei-k>
Date: Fri, 21 Aug 1998 02:41:50 +0000 (+0000)
Subject: (gnus-group-suspend): "real" fix.
X-Git-Tag: semi-mule-199811302358~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=de0978ace1d12b39bd95de0d2ff63d652baf4ffe;p=elisp%2Fgnus.git-

(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
--- 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)