[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 822d9eb 2/2: gnus-group.el: Check if group names ar
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 822d9eb 2/2: gnus-group.el: Check if group names are already strings |
Date: |
Wed, 08 Jul 2015 22:29:12 +0000 |
branch: master
commit 822d9eb1f96265c116d2d12b72deb9aa1a44e63c
Author: Eric Abrahamsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
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 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index dbeada2..c6cc38f 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."