[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-start.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-start.el [lexbind] |
Date: |
Thu, 28 Oct 2004 22:27:59 -0400 |
Index: emacs/lisp/gnus/gnus-start.el
diff -c emacs/lisp/gnus/gnus-start.el:1.20.2.5
emacs/lisp/gnus/gnus-start.el:1.20.2.6
*** emacs/lisp/gnus/gnus-start.el:1.20.2.5 Mon Oct 25 04:22:24 2004
--- emacs/lisp/gnus/gnus-start.el Fri Oct 29 02:05:07 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))