[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el

[Sam Steingold]

Index: emacs/lisp/gnus/gnus-group.el
diff -c emacs/lisp/gnus/gnus-group.el:1.22 emacs/lisp/gnus/gnus-group.el:1.23
*** emacs/lisp/gnus/gnus-group.el:1.22  Tue Feb  4 08:06:38 2003
--- emacs/lisp/gnus/gnus-group.el       Wed Jun 25 14:44:57 2003
***************
*** 3503,3512 ****
    (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))
      (gnus-kill-gnus-frames)
      (when group-buf
        (bury-buffer group-buf)
--- 3503,3511 ----
    (gnus-run-hooks 'gnus-suspend-gnus-hook)
    ;; Kill Gnus buffers except for group mode buffer.
    (let ((group-buf (get-buffer gnus-group-buffer)))
!     (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)