diff options
| author | Eric Abrahamsen | 2019-04-19 10:23:19 -0700 |
|---|---|---|
| committer | Eric Abrahamsen | 2019-04-19 11:21:55 -0700 |
| commit | a33308a297125e7e804ebafb7d942c10aaa2c3c1 (patch) | |
| tree | 97ebe69f63fad958b7f8d6a661055fcf5c8681f6 | |
| parent | 0b4b380ce4989afc59848d2b6a350bd1dd7dc7ca (diff) | |
| download | emacs-a33308a297125e7e804ebafb7d942c10aaa2c3c1.tar.gz emacs-a33308a297125e7e804ebafb7d942c10aaa2c3c1.zip | |
Clear gnus-group-list when the newsrc-hashtb is recreated
* lisp/gnus/gnus-start.el (gnus-make-hashtable-from-newsrc-alist):
This routine also happens when re-sorting groups; make sure we're
clearing the group list.
| -rw-r--r-- | lisp/gnus/gnus-start.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 606155d741d..2f8a260bf13 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el | |||
| @@ -1819,7 +1819,8 @@ The info element is shared with the same element of | |||
| 1819 | (let ((alist gnus-newsrc-alist) | 1819 | (let ((alist gnus-newsrc-alist) |
| 1820 | (ohashtb gnus-newsrc-hashtb) | 1820 | (ohashtb gnus-newsrc-hashtb) |
| 1821 | info method gname rest methods) | 1821 | info method gname rest methods) |
| 1822 | (setq gnus-newsrc-hashtb (gnus-make-hashtable (length alist))) | 1822 | (setq gnus-newsrc-hashtb (gnus-make-hashtable (length alist)) |
| 1823 | gnus-group-list nil) | ||
| 1823 | (setq alist | 1824 | (setq alist |
| 1824 | (setq gnus-newsrc-alist | 1825 | (setq gnus-newsrc-alist |
| 1825 | (if (equal (caar gnus-newsrc-alist) | 1826 | (if (equal (caar gnus-newsrc-alist) |