From: keiichi <keiichi>
Date: Tue, 14 Mar 2000 09:48:04 +0000 (+0000)
Subject: (TopLevel): Require `gnus-vers'.
X-Git-Tag: nana-gnus-7_1_0_16~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=78d92abd10d326464e6b4d48b5f3bb7ce723e926;p=elisp%2Fgnus.git-

(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'.
---

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