Remove ephemeral groups from gnus-newsrc-alist

* lisp/gnus/gnus.el (gnus-kill-ephemeral-group): Remove group from
  gnus-newsrc-alist.

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 4549610f81c9d1f78075b027fc601ecc5536e772..07397dc30109f5e8e771b0a6181bae173379f2e7 100644 (file)
--- 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."