martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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."