From 67aad3e2660db4ad8d1903c0a4b497480ff41b3d Mon Sep 17 00:00:00 2001 From: keiichi Date: Sun, 5 Mar 2000 04:15:51 +0000 Subject: [PATCH] (gnus-version-number): Update to 7.1.0.11. (gnus-continuum-version): Return version number of based Gnus. --- lisp/gnus.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index 2c6b746..a050e31 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -270,7 +270,7 @@ is restarted, and sometimes reloaded." (defconst gnus-product-name "Nana-gnus" "Product name of this version of gnus.") -(defconst gnus-version-number "7.1.0.10" +(defconst gnus-version-number "7.1.0.11" "Version number for this version of gnus.") (defconst gnus-version @@ -2064,6 +2064,8 @@ If ARG, insert string at point." (defun gnus-continuum-version (version) "Return VERSION as a floating point number." + (when (string-match "(based on \\(.*Gnus[^;]+\\)" version) + (setq version (match-string 1 version))) (when (or (string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" version) (string-match "^\\(.?\\)gnus-\\([0-9.]+\\)$" version)) (let ((alpha (and (match-beginning 1) (match-string 1 version))) -- 1.7.10.4