[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-start.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-start.el
diff -c emacs/lisp/gnus/gnus-start.el:1.27 emacs/lisp/gnus/gnus-start.el:1.28
*** emacs/lisp/gnus/gnus-start.el:1.27  Thu Oct 21 23:10:28 2004
--- emacs/lisp/gnus/gnus-start.el       Tue Oct 26 22:33:43 2004
***************
*** 2225,2231 ****
  (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))))
      (when fcv
        ;; A newsrc file was loaded.
        (let (prompt-displayed
--- 2225,2232 ----
  (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)))
!       (gcv (gnus-continuum-version)))
      (when fcv
        ;; A newsrc file was loaded.
        (let (prompt-displayed
***************
*** 2259,2265 ****
          ;; 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))
              (let* ((converter-spec  (pop converters))
                     (convert-to      (nth 1 converter-spec))
                     (load-from       (nth 2 converter-spec))
--- 2260,2266 ----
          ;; Perform converters to bring older version up to date.
        (when (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))