(gnus-group-suspend): Avoid some consing.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d60cd62a9b82747c5ac26fa5754030c727460ca9..6c3f1b5b6a5b965510273fa2fbb025cf025dd7c2 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 31eca3e1c803ecb83e4e7054f57227b512587ffd..73733cc4f1341474a9349815da78da20d1f0dca6 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -3503,10 +3503,9 @@ The hook gnus-suspend-gnus-hook is called before actually suspending."
   (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)