aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKatsumi Yamaoka2019-04-11 00:23:38 +0000
committerKatsumi Yamaoka2019-04-11 00:23:38 +0000
commit0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1 (patch)
treec2e423054201f90b9191313358d098b445159cd4
parent8ecce6af471b4b0cbe022c76e322170914c55e1b (diff)
downloademacs-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.el6
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.
2560If TEST-MARKED, the line must be marked." 2560If 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