From 4139de433cb37f338db38fe667a21d6a2718a34f Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 6 Mar 2000 08:15:38 +0000 Subject: [PATCH] Sync up with Nana-gnus 7.1.0.12. --- lisp/gnus-spec.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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) -- 1.7.10.4