From: keiichi <keiichi>
Date: Sun, 5 Mar 2000 04:15:51 +0000 (+0000)
Subject: (gnus-version-number): Update to 7.1.0.11.
X-Git-Tag: nana-gnus-7_1_0_16~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=67aad3e2660db4ad8d1903c0a4b497480ff41b3d;p=elisp%2Fgnus.git-

(gnus-version-number): Update to 7.1.0.11.
(gnus-continuum-version): Return version number of based Gnus.
---

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)))