mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

gnus-group.el: Check if group names are already strings

Browse source 
* 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.
This commit is contained in:
Eric Abrahamsen 2015-07-08 22:28:50 +00:00 • committed by Katsumi Yamaoka
parent adef5b0df4
commit 822d9eb1f9
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/gnus-group.el
View file

@ -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."