From: ueno <ueno>
Date: Mon, 6 Mar 2000 08:15:38 +0000 (+0000)
Subject: Sync up with Nana-gnus 7.1.0.12.
X-Git-Tag: t-gnus-6_14_1-13~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4139de433cb37f338db38fe667a21d6a2718a34f;p=elisp%2Fgnus.git-

Sync up with Nana-gnus 7.1.0.12.
---

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 3ceb1f5..d007f02 100644
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -171,8 +171,7 @@
   (when (or force
 	    (not (equal emacs-version
 			(cdr (assq 'version gnus-format-specs))))
-	    (not (equal gnus-version
-			(cdr (assq 'gnus-version gnus-format-specs)))))
+	    (not (equal gnus-version gnus-newsrc-file-version)))
     (message "%s" "Force update format specs.")
     (setq gnus-format-specs nil))
 
@@ -216,9 +215,7 @@
 	  (set (intern (format "gnus-%s-line-format-spec" type)) val)))))
 
   (unless (assq '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)))
+    (push (cons 'version emacs-version) gnus-format-specs)))
 
 (defvar gnus-mouse-face-0 'highlight)
 (defvar gnus-mouse-face-1 'highlight)