From 822d9eb1f96265c116d2d12b72deb9aa1a44e63c Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Wed, 8 Jul 2015 22:28:50 +0000 Subject: [PATCH] gnus-group.el: Check if group names are already strings * lisp/gnus/gnus-group.el (gnus-group-group-name): The group name may already be a string. Specifically, in the group list reached from the *Server* buffer, the 'gnus-group text property returns a string. Everywhere else it returns a symbol. --- lisp/gnus/gnus-group.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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." "Get the name of the newsgroup on the current line." (let ((group (get-text-property (point-at-bol) 'gnus-group))) (when group - (symbol-name group)))) + (if (stringp group) + group + (symbol-name group))))) (defun gnus-group-group-level () "Get the level of the newsgroup on the current line." -- 2.39.5