diff options
author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-03-25 13:27:07 -0700 |
---|---|---|
committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-03-25 13:30:05 -0700 |
commit | 1f8a6b56a5c4342b1fc3ec1d62b9418656a6f953 (patch) | |
tree | 82eb3fd827ba4c0c843be87153090c1898e5e1de | |
parent | a09306d53ba86b4596219b2be723659f7c0f2669 (diff) | |
download | emacs-1f8a6b56a5c4342b1fc3ec1d62b9418656a6f953.tar.gz |
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.
-rw-r--r-- | lisp/gnus/gnus-group.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |