- (setq group (car groups)
- name (format "%s" (car group)))
- (insert (if (cadr (gnus-gethash
- (gnus-group-prefixed-name name method)
- gnus-newsrc-hashtb))
- " " "K")
- (format "%7d: " (cdr group)) name "\n")
+ (setq group (car groups))
+ (setq charset (gnus-group-name-charset method group))
+ (gnus-add-text-properties
+ (point)
+ (prog1 (1+ (point))
+ (insert
+ (format "K%7d: %s\n" (cdr group)
+ (gnus-group-name-decode (car group) charset))))
+ (list 'gnus-group (car group)))