[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-spec.el
diff -c emacs/lisp/gnus/gnus-spec.el:1.11 emacs/lisp/gnus/gnus-spec.el:1.12
*** emacs/lisp/gnus/gnus-spec.el:1.11   Wed Feb  9 15:50:38 2005
--- emacs/lisp/gnus/gnus-spec.el        Sun Apr 10 04:20:13 2005
***************
*** 1,5 ****
  ;;; gnus-spec.el --- format spec functions for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; gnus-spec.el --- format spec functions for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 196,201 ****
--- 196,208 ----
            (not (equal emacs-version
                        (cdr (assq 'version gnus-format-specs)))))
      (setq gnus-format-specs nil))
+   ;; Flush the group format spec cache if it doesn't support decoded
+   ;; group names.
+   (when (memq 'group types)
+     (let ((spec (assq 'group gnus-format-specs)))
+       (unless (string-match " gnus-tmp-decoded-group[ )]"
+                           (gnus-prin1-to-string (nth 2 spec)))
+       (setq gnus-format-specs (delq spec gnus-format-specs)))))
  
    ;; Go through all the formats and see whether they need updating.
    (let (new-format entry type val updated)