From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Mon, 25 Mar 2019 20:27:07 +0000 (-0700)
Subject: Fix text property bug in gnus-group-list-active
X-Git-Tag: emacs-27.0.90~3339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f8a6b56a5c4342b1fc3ec1d62b9418656a6f953;p=emacs.git

Fix text property bug in gnus-group-list-active

* lisp/gnus/gnus-group.el (gnus-group-list-active): The property value
  should be the group name, not the value of gethash. Ie, it should be
  the key, not the value.
---

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index f1202e176e7..8c2411f4d92 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -4029,7 +4029,7 @@ entail asking the server for the groups."
 		 (insert "       *: "
 			 (gnus-group-decoded-name group)
 			 "\n"))
-       (list 'gnus-group (gethash group gnus-active-hashtb)
+       (list 'gnus-group group
 	     'gnus-unread t
 	     'gnus-level (inline (gnus-group-level group)))))
     (goto-char (point-min))))