From 9162b9ef3bad518db4facd32a122f2534af1dc7f Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 15 Oct 1998 05:46:42 +0000 Subject: [PATCH] gnus-update-format-specifications: Force update `gnus-format-specs' when `gnus-version' is differ from saved version. --- lisp/gnus-spec.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 2a1e355..67c9ee9 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -169,7 +169,10 @@ ;; See whether all the stored info needs to be flushed. (when (or force (not (equal emacs-version - (cdr (assq 'version gnus-format-specs))))) + (cdr (assq 'version gnus-format-specs)))) + (not (equal gnus-version + (cdr (assq 'gnus-version gnus-format-specs))))) + (message "%s" "Force update format specs.") (setq gnus-format-specs nil)) ;; Go through all the formats and see whether they need updating. @@ -214,7 +217,9 @@ (set (intern (format "gnus-%s-line-format-spec" type)) val))))) (unless (assq 'version gnus-format-specs) - (push (cons 'version emacs-version) gnus-format-specs))) + (push (cons 'version emacs-version) gnus-format-specs)) + (unless (assq 'gnus-version gnus-format-specs) + (push (cons 'gnus-version gnus-version) gnus-format-specs))) (defvar gnus-mouse-face-0 'highlight) (defvar gnus-mouse-face-1 'highlight) -- 1.7.10.4