Mercurial > emacs

diff lisp/gnus/gnus-group.el @ 51656:67ba18a34bfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-group-suspend): Avoid some consing.
author Sam Steingold <sds@gnu.org>
date Wed, 25 Jun 2003 18:44:57 +0000
parents 0d8b17d428b5
children 695cf19ef79e
line wrap: on
line diff
--- 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)