From: yamaoka <yamaoka>
Date: Thu, 15 Oct 1998 07:00:08 +0000 (+0000)
Subject: * lisp/gnus-spec.el (gnus-update-format-specifications): Sync with Nana-gnus.
X-Git-Tag: pgnus-ichikawa-199811302358~162
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=64c027864b5076ac480d521084f471e7bf1bee32;p=elisp%2Fgnus.git-

* lisp/gnus-spec.el (gnus-update-format-specifications): Sync with Nana-gnus.
---

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 8d1eee0..cdaabe7 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)