Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove killed buffers from the list of Gnus buffers

Browse source 
* lisp/gnus/gnus.el (gnus-prune-buffers): Remove killed
buffers from the list of Gnus buffers (bug#18522).
This commit is contained in:
Lars Ingebrigtsen 2016-02-26 13:54:41 +10:30
parent c1415cc98c
commit a1e7304fc4
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/gnus.el
View file

@ -903,14 +903,20 @@ be set in `.emacs' instead."
(defun gnus-add-buffer ()
"Add the current buffer to the list of Gnus buffers."
(gnus-prune-buffers)
(push (current-buffer) gnus-buffers))
(defmacro gnus-kill-buffer (buffer)
"Kill BUFFER and remove from the list of Gnus buffers."
`(let ((buf ,buffer))
(when (gnus-buffer-exists-p buf)
(setq gnus-buffers (delete (get-buffer buf) gnus-buffers))
(kill-buffer buf))))
(kill-buffer buf)
(gnus-prune-buffers))))
(defun gnus-prune-buffers ()
(dolist (buf gnus-buffers)
(unless (buffer-live-p buf)
(setq gnus-buffers (delete buf gnus-buffers)))))
(defun gnus-buffers ()
"Return a list of live Gnus buffers."