diff options
| -rw-r--r-- | lisp/gnus/gnus-group.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index dbeada286b7..c6cc38fc461 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el | |||
| @@ -1814,7 +1814,9 @@ already. If INFO-UNCHANGED is non-nil, dribble buffer is not updated." | |||
| 1814 | "Get the name of the newsgroup on the current line." | 1814 | "Get the name of the newsgroup on the current line." |
| 1815 | (let ((group (get-text-property (point-at-bol) 'gnus-group))) | 1815 | (let ((group (get-text-property (point-at-bol) 'gnus-group))) |
| 1816 | (when group | 1816 | (when group |
| 1817 | (symbol-name group)))) | 1817 | (if (stringp group) |
| 1818 | group | ||
| 1819 | (symbol-name group))))) | ||
| 1818 | 1820 | ||
| 1819 | (defun gnus-group-group-level () | 1821 | (defun gnus-group-group-level () |
| 1820 | "Get the level of the newsgroup on the current line." | 1822 | "Get the level of the newsgroup on the current line." |