From: Kevin Greiner <kevin.greiner@compsol.cc>
Date: Mon, 7 Mar 2005 04:53:41 +0000 (+0000)
Subject: 	* gnus-start.el (gnus-convert-old-newsrc): Fixed numeric
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=08c43b22dab8f6e37dd6d727ddf277bedb4e364d

	* gnus-start.el (gnus-convert-old-newsrc): Fixed numeric
	comparison on string.
---

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index ba23c7cc3..35ce7fc4d 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2255,7 +2255,8 @@ If FORCE is non-nil, the .newsrc file is read."
 (defun gnus-convert-old-newsrc ()
   "Convert old newsrc formats into the current format, if needed."
   (let ((fcv (and gnus-newsrc-file-version
-		  (gnus-continuum-version gnus-newsrc-file-version))))
+		  (gnus-continuum-version gnus-newsrc-file-version)))
+	(gcv (gnus-continuum-version)))
     (when fcv
       ;; A newsrc file was loaded.
       (let (prompt-displayed
@@ -2288,7 +2289,8 @@ If FORCE is non-nil, the .newsrc file is read."
 
         ;; Perform converters to bring older version up to date.
 	(when (and converters (< fcv (caar converters)))
-	  (while (and converters (< fcv (caar converters)))
+	  (while (and converters (< fcv (caar converters))
+		      (<= (caar converters) gcv))
             (let* ((converter-spec  (pop converters))
                    (convert-to      (nth 1 converter-spec))
                    (load-from       (nth 2 converter-spec))