diff lisp/gnus/gnus-start.el @ 57723:6a65cb24e1be

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-640 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-59 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-60 Update from CVS 2004-10-25 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/html2text.el (html2text-buffer-head): Removed. Use `goto-char' instead. 2004-10-24 Kevin Greiner <kevin.greiner@compsol.cc> * lisp/gnus/gnus-start.el (gnus-convert-old-newsrc): Fixed numeric comparison on string.
author Miles Bader <miles@gnu.org>
date Tue, 26 Oct 2004 22:33:43 +0000
parents c660fc46d193
children df80d19d7a2e 0fe073a08cef
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el	Tue Oct 26 21:53:34 2004 +0000
+++ b/lisp/gnus/gnus-start.el	Tue Oct 26 22:33:43 2004 +0000
@@ -2225,7 +2225,8 @@
 (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
@@ -2259,7 +2260,7 @@
         ;; Perform converters to bring older version up to date.
 	(when (and converters (< fcv (caar converters)))
 	  (while (and converters (< fcv (caar converters))
-		      (<= (caar converters) gnus-version))
+		      (<= (caar converters) gcv))
             (let* ((converter-spec  (pop converters))
                    (convert-to      (nth 1 converter-spec))
                    (load-from       (nth 2 converter-spec))