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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-group.el
diff -c emacs/lisp/gnus/gnus-group.el:1.19.2.1 
emacs/lisp/gnus/gnus-group.el:1.19.2.2
*** emacs/lisp/gnus/gnus-group.el:1.19.2.1      Fri Apr  4 01:20:20 2003
--- emacs/lisp/gnus/gnus-group.el       Tue Oct 14 19:34:50 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)
***************
*** 3823,3826 ****
--- 3822,3826 ----
  
  (provide 'gnus-group)
  
+ ;;; arch-tag: 2eb5440f-0bca-4091-814c-e37817536af6
  ;;; gnus-group.el ends here