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 cb369f07b92a13fdcbabbda8b12c7a0428b71038..e142c438ee00eff02061fcc3efdca21f6bd19e76 100644 (file)
--- 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))