(gnus-product-name): New constant.

(gnus-version): Use it for initialization.
(gnus-version-number): Update to 6.8.2.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index ca68c38..0fa5eaf 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -250,12 +250,15 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "6.8.1"
+(defconst gnus-product-name "Shoe-gnus"
+  "Product name of this version of gnus.")
+
+(defconst gnus-version-number "6.8.2"
   "Version number for this version of gnus.")
 
 (defconst gnus-version
-  (format "Semi-gnus %s (based on Gnus 5.6.24; for SEMI 1.8/FLIM 1.8)"
-          gnus-version-number)
+  (format "%s %s (based on Gnus 5.6.24; for SEMI 1.8/FLIM 1.8)"
+          gnus-product-name gnus-version-number)
   "Version string for this version of gnus.")
 
 (defcustom gnus-inhibit-startup-message nil