From: keiichi <keiichi>
Date: Thu, 15 Oct 1998 05:46:42 +0000 (+0000)
Subject: gnus-update-format-specifications: Force update `gnus-format-specs' when
X-Git-Tag: nana-gnus-6_8-199811302358~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9162b9ef3bad518db4facd32a122f2534af1dc7f;p=elisp%2Fgnus.git-

gnus-update-format-specifications: Force update `gnus-format-specs' when
`gnus-version' is differ from saved version.
---

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)