mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(gnus-group-suspend): Be sure to bury the right buffer.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-07-30 00:29:08 +00:00
parent 2f5ed2e8b3
commit 4cbcfa9c18
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gnus.el
View File

@ -1689,14 +1689,16 @@ The hook gnus-suspend-gnus-hook is called before actually suspending."
(interactive)
(run-hooks 'gnus-suspend-gnus-hook)
;; Kill GNUS buffers except for Group Mode buffer.
(let ((buffers gnus-buffer-list))
(let ((buffers gnus-buffer-list)
(group-buf (get-buffer gnus-group-buffer)))
(while buffers
(and (not (eq (car buffers) gnus-group-buffer))
(get-buffer (car buffers))
(kill-buffer (car buffers)))
(setq buffers (cdr buffers))
))
(bury-buffer))
)
(bury-buffer group-buf)
(delete-windows-on group-buf t)))
(defun gnus-group-exit ()
"Quit reading news after updating .newsrc.