From 64c027864b5076ac480d521084f471e7bf1bee32 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 15 Oct 1998 07:00:08 +0000 Subject: [PATCH] * lisp/gnus-spec.el (gnus-update-format-specifications): Sync with Nana-gnus. --- 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 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) -- 1.7.10.4