From 29059e3bf826b05d43cab98020d975c226d90cc9 Mon Sep 17 00:00:00 2001 From: keiichi Date: Sun, 5 Mar 2000 04:15:28 +0000 Subject: [PATCH] (gnus-update-format-specifications): Force update format specifications, when differ `gnus-version' and `gnus-newsrc-file-version' instead of `gnus-version' and `gnus-vertsion' in `gnus-format-specs'. Do not add `gnus-version' into `gnus-format-specs'. (gnus-compile): Remove `gnus-version' from `gnus-format-specs'. --- lisp/gnus-spec.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 3fecea1..e625e2d 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -170,8 +170,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)) @@ -215,9 +214,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) @@ -533,7 +530,7 @@ If PROPS, insert the result." (while entries (setq entry (pop entries)) - (if (eq (car entry) 'version) + (if (memq (car entry) '(version gnus-version)) (setq gnus-format-specs (delq entry gnus-format-specs)) (let ((form (caddr entry))) (when (and (listp form) -- 1.7.10.4