From 78d92abd10d326464e6b4d48b5f3bb7ce723e926 Mon Sep 17 00:00:00 2001 From: keiichi Date: Tue, 14 Mar 2000 09:48:04 +0000 Subject: [PATCH] (TopLevel): Require `gnus-vers'. (gnus-product-name): Abolished. (gnus-version-number): Ditto. (gnus-version): Use `product-string'. (Format changed) (gnus-variable-list): Delete `gnus-format-specs'. (gnus-product-variable-file-list): New variable. (TopLevel): Use `product-provide'. --- lisp/gnus.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index 36481d6..feb5267 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -32,6 +32,7 @@ (require 'mm-util) (require 'custom) +(require 'gnus-vers) (eval-and-compile (if (< emacs-major-version 20) (require 'gnus-load))) @@ -267,15 +268,9 @@ is restarted, and sometimes reloaded." (format "Gnus v%s" gnus-original-version-number) "Version string for this version of Gnus.") -(defconst gnus-product-name "Nana-gnus" - "Product name of this version of gnus.") - -(defconst gnus-version-number "7.1.0.13" - "Version number for this version of gnus.") - (defconst gnus-version - (format "%s %s (based on %s; for SEMI 1.13, FLIM 1.13)" - gnus-product-name gnus-version-number gnus-original-version) + (format "%s (based on %s; for SEMI 1.13, FLIM 1.13)" + (product-string 'gnus-vers) gnus-original-version) "Version string for this version of gnus.") (defcustom gnus-inhibit-startup-message nil @@ -1576,10 +1571,18 @@ If nil, no default charset is assumed when posting." gnus-newsrc-last-checked-date gnus-newsrc-alist gnus-server-alist gnus-killed-list gnus-zombie-list - gnus-topic-topology gnus-topic-alist - gnus-format-specs) + gnus-topic-topology gnus-topic-alist) "Gnus variables saved in the quick startup file.") +(defvar gnus-product-variable-file-list + '(("strict-cache" ((product-version (7 1 0 14)) (emacs-version)) + binary + gnus-format-specs-compiled) + ("cache" ((product-version (7 1 0 14))) + ctext + gnus-format-specs)) + "Gnus variables are saved in the produce depend quick startup files.") + (defcustom gnus-compile-user-specs t "If non-nil, the user-defined format specs will be byte-compiled automatically. @@ -2905,6 +2908,6 @@ prompt the user for the name of an NNTP server to use." (gnus-ems-redefine) -(provide 'gnus) +(product-provide (provide 'gnus) 'gnus-vers) ;;; gnus.el ends here -- 1.7.10.4