From a4a47e8e6e3e4a5c536d4704c2ff360fc692e640 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 13 Apr 2000 07:55:33 +0000 Subject: [PATCH] (gnus-revision-number): Increment to 18. (gnus-extended-version): Use `gnus-product-name' and `gnus-version-number' instead of the use of `product-string'. (gnus-version-number): Exclude `gnus-revision-number'. (Defining product): Include `gnus-revision-number'. (TopLevel): Require `poe' for the function `butlast'. --- lisp/gnus-vers.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index 5b91e98..f6afeea 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -27,15 +27,18 @@ ;;; Code: +(require 'poe) (require 'product) (provide 'gnus-vers) -(defconst gnus-revision-number "17" +(defconst gnus-revision-number "18" "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 1 + (string-to-number gnus-revision-number)))) (defconst gnus-original-version-number "5.8.4" "Version number for this version of Gnus.") @@ -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)) -- 1.7.10.4