- ;; Flush the group format spec cache if there's the grouplens stuff.
- (let ((spec (assq 'group gnus-format-specs)))
- (when (and (memq 'group types)
- (string-match " gnus-tmp-grouplens[ )]"
- (gnus-prin1-to-string (cdr spec))))
- (setq gnus-format-specs (delq spec gnus-format-specs)
- spec (assq 'group gnus-format-specs-compiled)
- gnus-format-specs-compiled (delq spec gnus-format-specs-compiled))))
+ ;; Flush the group format spec cache if there's the grouplens stuff
+ ;; or it doesn't support decoded group names.
+ (when (memq 'group types)
+ (let* ((spec (assq 'group gnus-format-specs))
+ (sspec (gnus-prin1-to-string (nth 2 spec))))
+ (when (or (string-match " gnus-tmp-grouplens[ )]" sspec)
+ (not (string-match " gnus-tmp-decoded-group[ )]" sspec)))
+ (setq gnus-format-specs (delq spec gnus-format-specs)
+ spec (assq 'group gnus-format-specs-compiled)
+ gnus-format-specs-compiled (delq spec
+ gnus-format-specs-compiled)))))