(pop converters))
;; Perform converters to bring older version up to date.
- (while (and converters (< fcv (caar converters)))
+ (when (and converters (< fcv (caar converters)))
+ (while (and converters (< fcv (caar converters)))
(let* ((converter-spec (pop converters))
(convert-to (nth 1 converter-spec))
(load-from (nth 2 converter-spec))
(funcall func convert-to)))
(gnus-dribble-enter
(format ";Converted newsrc from version '%s' to '%s'? (n/y/?)"
- gnus-newsrc-file-version gnus-version))))))
+ gnus-newsrc-file-version gnus-version)))))))
(defun gnus-convert-mark-converter-prompt (converter no-prompt)
(setplist converter