2227 |
(defun gnus-convert-old-newsrc () |
(defun gnus-convert-old-newsrc () |
2228 |
"Convert old newsrc formats into the current format, if needed." |
"Convert old newsrc formats into the current format, if needed." |
2229 |
(let ((fcv (and gnus-newsrc-file-version |
(let ((fcv (and gnus-newsrc-file-version |
2230 |
(gnus-continuum-version gnus-newsrc-file-version)))) |
(gnus-continuum-version gnus-newsrc-file-version))) |
2231 |
|
(gcv (gnus-continuum-version))) |
2232 |
(when fcv |
(when fcv |
2233 |
;; A newsrc file was loaded. |
;; A newsrc file was loaded. |
2234 |
(let (prompt-displayed |
(let (prompt-displayed |
2262 |
;; Perform converters to bring older version up to date. |
;; Perform converters to bring older version up to date. |
2263 |
(when (and converters (< fcv (caar converters))) |
(when (and converters (< fcv (caar converters))) |
2264 |
(while (and converters (< fcv (caar converters)) |
(while (and converters (< fcv (caar converters)) |
2265 |
(<= (caar converters) gnus-version)) |
(<= (caar converters) gcv)) |
2266 |
(let* ((converter-spec (pop converters)) |
(let* ((converter-spec (pop converters)) |
2267 |
(convert-to (nth 1 converter-spec)) |
(convert-to (nth 1 converter-spec)) |
2268 |
(load-from (nth 2 converter-spec)) |
(load-from (nth 2 converter-spec)) |