mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

Kill off more Gnus buffers on Gnus exit

Browse Source 
* lisp/gnus/gnus.el (gnus-kill-buffer): Make into function;
there's no reason this should be a macro.

* lisp/gnus/nntp.el (nntp-make-process-buffer): Ensure that we
kill these buffers on Gnus exit (bug#55167).
This commit is contained in:
Lars Ingebrigtsen 2022-04-28 18:36:59 +02:00
parent 9b762c35a1
commit 75366be2c0
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/gnus/gnus.el
View File

@ -662,12 +662,11 @@ be used directly.")
(gnus-prune-buffers)
(cl-pushnew (current-buffer) gnus-buffers))
(defmacro gnus-kill-buffer (buffer)
(defun gnus-kill-buffer (buffer)
"Kill BUFFER and remove from the list of Gnus buffers."
`(let ((buf ,buffer))
(when (gnus-buffer-live-p buf)
(kill-buffer buf)
(gnus-prune-buffers))))
(when (gnus-buffer-live-p buffer)
(kill-buffer buffer)
(gnus-prune-buffers)))
(defun gnus-buffers ()
"Return a list of live Gnus buffers."

1
lisp/gnus/nntp.el
View File

@ -1225,6 +1225,7 @@ If SEND-IF-FORCE, only send authinfo to the server if the
(generate-new-buffer
(format " *server %s %s %s*"
nntp-address nntp-port-number buffer))
(gnus-add-buffer)
(mm-disable-multibyte)
(setq-local after-change-functions nil
nntp-process-wait-for nil