diff options
| author | Eric Abrahamsen | 2019-03-25 13:27:07 -0700 |
|---|---|---|
| committer | Eric Abrahamsen | 2019-03-25 13:30:05 -0700 |
| commit | 1f8a6b56a5c4342b1fc3ec1d62b9418656a6f953 (patch) | |
| tree | 82eb3fd827ba4c0c843be87153090c1898e5e1de | |
| parent | a09306d53ba86b4596219b2be723659f7c0f2669 (diff) | |
| download | emacs-1f8a6b56a5c4342b1fc3ec1d62b9418656a6f953.tar.gz emacs-1f8a6b56a5c4342b1fc3ec1d62b9418656a6f953.zip | |
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." | |||
| 4029 | (insert " *: " | 4029 | (insert " *: " |
| 4030 | (gnus-group-decoded-name group) | 4030 | (gnus-group-decoded-name group) |
| 4031 | "\n")) | 4031 | "\n")) |
| 4032 | (list 'gnus-group (gethash group gnus-active-hashtb) | 4032 | (list 'gnus-group group |
| 4033 | 'gnus-unread t | 4033 | 'gnus-unread t |
| 4034 | 'gnus-level (inline (gnus-group-level group))))) | 4034 | 'gnus-level (inline (gnus-group-level group))))) |
| 4035 | (goto-char (point-min)))) | 4035 | (goto-char (point-min)))) |