Commit 5429ab59 authored by Sam Steingold's avatar Sam Steingold
Browse files

(gnus-group-suspend): Avoid some consing.

parent c1b55932
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment