[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el |
Date: |
Sun, 10 Apr 2005 00:20:17 -0400 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el,
Miles Bader <=