Mercurial > emacs
changeset 51656:67ba18a34bfd
(gnus-group-suspend): Avoid some consing.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Wed, 25 Jun 2003 18:44:57 +0000 |
| parents | abc46b69deaa |
| children | 7fb427e8d984 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-group.el |
| diffstat | 2 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)