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 f1202e176e7157cd03ba04f503739780219b0b53..8c2411f4d9268685c928530e1dc1b3b94cf243dc 100644 (file)
--- 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))))