X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-group.el;h=c6cc38fc461b57ac4adc031ca19ca6adf9543ff9;hb=5ed73c72ca790ad9a18d60a89f8139c8e7769726;hp=69a2482f65b36a2746528edfc82c57501bd24adb;hpb=9a15570dc85b5494c7cc93c2d2c25cf40c1c93d5;p=gnus diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 69a2482f6..c6cc38fc4 100644 --- a/lisp/gnus-group.el +++ b/lisp/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." @@ -3285,7 +3287,7 @@ mail messages or news articles in files that have numeric names." Rights is a string listing a (possibly empty) set of alphanumeric characters, each character listing a set of operations which is being - controlled. Letters are reserved for “standard” rights, listed + controlled. Letters are reserved for \"standard\" rights, listed below. Digits are reserved for implementation or site defined rights. l - lookup (mailbox is visible to LIST/LSUB commands)