diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2019-04-11 00:23:38 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2019-04-11 00:23:38 +0000 |
| commit | 0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1 (patch) | |
| tree | c2e423054201f90b9191313358d098b445159cd4 | |
| parent | 8ecce6af471b4b0cbe022c76e322170914c55e1b (diff) | |
| download | emacs-0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1.tar.gz | |
Enable message saving to work when first use of Gnus (bug#35208)
* lisp/gnus/gnus-group.el (gnus-group-goto-group);
Use gnus-active-hashtb in addition to gnus-newsrc-hashtb to check if
a group exists since some kinds of groups are registered in only one
of them (bug#35208).
| -rw-r--r-- | lisp/gnus/gnus-group.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 58f3dc3a6ef..144496bdd2a 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -2560,7 +2560,11 @@ If FAR, it is likely that the group is not on the current line. If TEST-MARKED, the line must be marked." (when group (let ((start (point)) - (active (and (gethash group gnus-newsrc-hashtb) + (active (and (or + ;; some kind of group may be only there. + (gethash group gnus-active-hashtb) + ;; all groups (but with exception) are there. + (gethash group gnus-newsrc-hashtb)) group))) (beginning-of-line) (cond |