From 519ac18125ae05d7edd75e12e929fbbf79778bf3 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Wed, 16 Oct 2019 14:18:11 +0800 Subject: [PATCH] Remove ephemeral groups from gnus-newsrc-alist * lisp/gnus/gnus.el (gnus-kill-ephemeral-group): Remove group from gnus-newsrc-alist. --- lisp/gnus/gnus.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 4549610f81c..07397dc3010 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -3169,7 +3169,10 @@ that that variable is buffer-local to the summary buffers." (defun gnus-kill-ephemeral-group (group) "Remove ephemeral GROUP from relevant structures." - (remhash group gnus-newsrc-hashtb)) + (remhash group gnus-newsrc-hashtb) + (setq gnus-newsrc-alist + (delq (assoc group gnus-newsrc-alist) + gnus-newsrc-alist))) (defun gnus-simplify-mode-line () "Make mode lines a bit simpler." -- 2.39.5