diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-29 12:38:44 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-29 12:38:44 +0200 |
| commit | 46eb6df45358f413847ceb882898b2326f7584c8 (patch) | |
| tree | bdae5c09c602bc478a07493de14480fcf6cd4707 /lisp | |
| parent | e8db2f51417e330a339136b416b7c5d4e296beca (diff) | |
| download | emacs-46eb6df45358f413847ceb882898b2326f7584c8.tar.gz emacs-46eb6df45358f413847ceb882898b2326f7584c8.tar.bz2 emacs-46eb6df45358f413847ceb882898b2326f7584c8.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/gnus-start.el | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |