2011-09-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus-group.el (gnus-group-name-charset): Always return `utf-7' when
+ decoding nnimap groups.
+
* gnus.el (gnus-variable-list): Don't save `gnus-format-specs' in the
newsrc file. It doesn't seem like an important optimisation any more.
(unless (eq major-mode 'gnus-group-mode)
(gnus-group-mode)))
-(defun gnus-group-name-charset (method group)
+(defun gnus-group-name-charset (method group &optional always-charset-p)
(unless method
(setq method (gnus-find-method-for-group group)))
(when (stringp method)
(if (eq (car method) 'nnimap)
;; IMAP groups should not be encoded, since they do the encoding
;; in utf7 in the protocol.
- nil
+ (if always-charset-p
+ 'utf-7
+ nil)
(let ((item (or (assoc method gnus-group-name-charset-method-alist)
(and (consp method)
(assoc (list (car method) (cadr method))
name
(mm-decode-coding-string
name
- (inline (gnus-group-name-charset method name)))))))
+ (inline (gnus-group-name-charset method name t)))))))
(list 'gnus-group name)
)))
(switch-to-buffer (current-buffer)))