T-gnus 6.14.4 r04

[elisp/gnus.git-] / lisp / gnus-vers.el

diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 9a28ee6..74d2dc1 100644 (file)
--- 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 "04"
   "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))