From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Thu, 11 Apr 2019 00:23:38 +0000 (+0000)
Subject: Enable message saving to work when first use of Gnus (bug#35208)
X-Git-Tag: emacs-27.0.90~3261^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1;p=emacs.git

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).
---

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