X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus.el;h=737accd6efc62b2d05b05504f5e4e33edbd6afb4;hp=358cbf93caab92068ce993521740575dc10e8e53;hb=3e2237222c94d96af5b1be03f775d886e926bfcc;hpb=169184a38c9a2b29a1630bc6ad2226c78ba08d2b

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 358cbf93c..737accd6e 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3229,10 +3229,6 @@ If ARG, insert string at point."
 
 (defun gnus-continuum-version (&optional version)
   "Return VERSION as a floating point number."
-  (string-to-number (gnus-continuum-version-1 (or version gnus-version))))
-
-(defun gnus-continuum-version-1 (&optional version)
-  "Return VERSION as a string."
   (unless version
     (setq version gnus-version))
   (when (or (string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" version)
@@ -3248,21 +3244,18 @@ If ARG, insert string at point."
 	    least (if (match-beginning 3)
 		      (string-to-number (match-string 3 number))
 		    0))
-      (gnus-replace-in-string
+      (string-to-number
        (if (zerop major)
-	   (progn
-	     (setq major
-		   (if (member alpha '("(ding)" "d"))
-		       499
-		     (+ 500 (* 2
+	     (format "%1.2f00%02d%02d"
+		     (if (member alpha '("(ding)" "d"))
+			 4.99
+		       (+ 5 (* 0.02
 			       (abs
 				(- (mm-char-int (aref (downcase alpha) 0))
 				   (mm-char-int ?t))))
-			-1)))
-	     (format "%s.%s00%02d%02d"
-		     (/ major 100) (% major 100) minor least))
-	 (format "%d.%02d%02d" major minor least))
-       "0+\\'" ""))))
+			  -0.01))
+		     minor least)
+	 (format "%d.%02d%02d" major minor least))))))
 
 (defun gnus-info-find-node (&optional nodename)
   "Find Info documentation of Gnus."