# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1056566697 0
# Node ID 67ba18a34bfd3743d815aa7dbd24df2e4a426e81
# Parent  abc46b69deaa31ff633e4ff8205ae7965db25007
(gnus-group-suspend): Avoid some consing.

diff -r abc46b69deaa -r 67ba18a34bfd lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Jun 25 06:52:04 2003 +0000
+++ b/lisp/gnus/ChangeLog	Wed Jun 25 18:44:57 2003 +0000
@@ -1,3 +1,7 @@
+2003-06-25  Sam Steingold  <sds@gnu.org>
+
+	* gnus-group.el (gnus-group-suspend): Avoid some consing.
+
 2003-06-11  Sam Steingold  <sds@gnu.org>
 
 	* pop3.el (pop3-leave-mail-on-server): New user variable.
diff -r abc46b69deaa -r 67ba18a34bfd lisp/gnus/gnus-group.el
--- a/lisp/gnus/gnus-group.el	Wed Jun 25 06:52:04 2003 +0000
+++ b/lisp/gnus/gnus-group.el	Wed Jun 25 18:44:57 2003 +0000
@@ -3503,10 +3503,9 @@
   (gnus-run-hooks 'gnus-suspend-gnus-hook)
   ;; Kill Gnus buffers except for group mode buffer.
   (let ((group-buf (get-buffer gnus-group-buffer)))
-    (mapcar (lambda (buf)
-	      (unless (member buf (list group-buf gnus-dribble-buffer))
-		(kill-buffer buf)))
-	    (gnus-buffers))
+    (dolist (buf (gnus-buffers))
+      (unless (or (eq buf group-buf) (eq buf gnus-dribble-buffer))
+        (kill-buffer buf)))
     (gnus-kill-gnus-frames)
     (when group-buf
       (bury-buffer group-buf)