From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Wed, 8 Jul 2015 22:28:50 +0000 (+0000)
Subject: gnus-group.el: Check if group names are already strings
X-Git-Tag: emacs-25.0.90~1520
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=822d9eb1f96265c116d2d12b72deb9aa1a44e63c;p=emacs.git

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

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