X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-vers.el;h=1094da88007836f81d4b95d60e3ccf47911d499e;hb=7d360ad9b65c2c51068117c290ebba043fe5924e;hp=9a28ee62aa3d7611192b263cc64345ddb9693efe;hpb=bcd9c8e13c96f76c06c6765134dc9e1fa328e124;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 9a28ee6..1094da8 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -27,17 +27,20 @@
 
 ;;; Code:
 
+(require 'poe)
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "15"
+(defconst gnus-revision-number "02"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.
 (product-provide 'gnus-vers
-  (product-define "T-gnus" nil '(6 14 1)))
+  (product-define "T-gnus" nil
+		  (list 6 14 4
+			(string-to-number gnus-revision-number))))
 
-(defconst gnus-original-version-number "5.8.3"
+(defconst gnus-original-version-number "5.8.6"
   "Version number for this version of Gnus.")
 
 (provide 'running-pterodactyl-gnus-0_73-or-later)
@@ -48,10 +51,11 @@
 (defconst gnus-product-name (product-name (product-find 'gnus-vers))
   "Product name of this version of gnus.")
 
-(defconst gnus-version-number (mapconcat
-			       'number-to-string
-			       (product-version (product-find 'gnus-vers))
-			       ".")
+(defconst gnus-version-number
+  (mapconcat
+   'number-to-string
+   (butlast (product-version (product-find 'gnus-vers)))
+   ".")
   "Version number for this version of gnus.")
 
 (defconst gnus-version
@@ -70,7 +74,7 @@ If ARG, insert string at point."
 
 (defun gnus-extended-version ()
   "Stringified gnus version."
-  (concat (product-string 'gnus)
+  (concat gnus-product-name "/" gnus-version-number
 	  " (based on "
 	  gnus-original-product-name " v" gnus-original-version-number ")"
 	  (if (zerop (string-to-number gnus-revision-number))