From 5429ab5925175637a34afc9dfa2b5fd01a3f5059 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Wed, 25 Jun 2003 18:44:57 +0000 Subject: [PATCH] (gnus-group-suspend): Avoid some consing. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-group.el | 7 +++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d60cd62a9b8..6c3f1b5b6a5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2003-06-25 Sam Steingold + + * gnus-group.el (gnus-group-suspend): Avoid some consing. + 2003-06-11 Sam Steingold * 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 31eca3e1c80..73733cc4f13 100644 --- 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) -- 2.39.2