diff options
| author | Katsumi Yamaoka | 2019-04-11 00:23:38 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2019-04-11 00:23:38 +0000 |
| commit | 0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1 (patch) | |
| tree | c2e423054201f90b9191313358d098b445159cd4 | |
| parent | 8ecce6af471b4b0cbe022c76e322170914c55e1b (diff) | |
| download | emacs-0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1.tar.gz emacs-0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1.zip | |
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. | |||
| 2560 | If TEST-MARKED, the line must be marked." | 2560 | If TEST-MARKED, the line must be marked." |
| 2561 | (when group | 2561 | (when group |
| 2562 | (let ((start (point)) | 2562 | (let ((start (point)) |
| 2563 | (active (and (gethash group gnus-newsrc-hashtb) | 2563 | (active (and (or |
| 2564 | ;; some kind of group may be only there. | ||
| 2565 | (gethash group gnus-active-hashtb) | ||
| 2566 | ;; all groups (but with exception) are there. | ||
| 2567 | (gethash group gnus-newsrc-hashtb)) | ||
| 2564 | group))) | 2568 | group))) |
| 2565 | (beginning-of-line) | 2569 | (beginning-of-line) |
| 2566 | (cond | 2570 | (cond |