From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 29 Sep 2019 10:38:44 +0000 (+0200)
Subject: Put new Gnus groups in the completion table
X-Git-Tag: emacs-27.0.90~1381
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46eb6df45358f413847ceb882898b2326f7584c8;p=emacs.git

Put new Gnus groups in the completion table

* lisp/gnus/gnus-start.el (gnus-group-change-level): Ensure that
all new groups are in gnus-active-hashtb so that they can be
completed to.
---

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index cb369f07b92..e142c438ee0 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1269,6 +1269,10 @@ string name) to insert this group before."
 	     (consp entry))
 	(setq oldlevel (gnus-info-level (nth 1 entry)))
       (setq oldlevel (or oldlevel gnus-level-killed)))
+
+    ;; This table is used for completion, so put a dummy entry there.
+    (unless (gethash group gnus-active-hashtb)
+      (setf (gethash group gnus-active-hashtb) nil))
     ;; Group is already subscribed.
     (unless (and (>= oldlevel gnus-level-zombie)
 		 (gnus-group-entry group))