diff options
| author | Sam Steingold <sds@gnu.org> | 2003-06-25 18:44:57 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2003-06-25 18:44:57 +0000 |
| commit | 0af395669f6fb693095cbdd5f5d075a5e0f9bd53 (patch) | |
| tree | 43048b745c2b0c59167b7ebae0391eae3604a411 /lisp | |
| parent | a166b5e8dbb2619fa8375c9fcff05cabbf13a12b (diff) | |
| download | emacs-0af395669f6fb693095cbdd5f5d075a5e0f9bd53.tar.gz | |
(gnus-group-suspend): Avoid some consing.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <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 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) |