[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el [lexbind] |
Date: |
Tue, 14 Oct 2003 19:34:53 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-group.el [lexbind],
Miles Bader <=