Mercurial > emacs
diff lisp/gnus/gnus-group.el @ 51656:67ba18a34bfd
(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)