/[emacs]/emacs/lisp/gnus/gnus-start.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-start.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by miles, Thu Oct 21 23:10:28 2004 UTC revision 1.28 by miles, Tue Oct 26 22:33:43 2004 UTC
# Line 2225  If FORCE is non-nil, the .newsrc file is Line 2225  If FORCE is non-nil, the .newsrc file is
2225  (defun gnus-convert-old-newsrc ()  (defun gnus-convert-old-newsrc ()
2226    "Convert old newsrc formats into the current format, if needed."    "Convert old newsrc formats into the current format, if needed."
2227    (let ((fcv (and gnus-newsrc-file-version    (let ((fcv (and gnus-newsrc-file-version
2228                    (gnus-continuum-version gnus-newsrc-file-version))))                    (gnus-continuum-version gnus-newsrc-file-version)))
2229            (gcv (gnus-continuum-version)))
2230      (when fcv      (when fcv
2231        ;; A newsrc file was loaded.        ;; A newsrc file was loaded.
2232        (let (prompt-displayed        (let (prompt-displayed
# Line 2259  If FORCE is non-nil, the .newsrc file is Line 2260  If FORCE is non-nil, the .newsrc file is
2260          ;; Perform converters to bring older version up to date.          ;; Perform converters to bring older version up to date.
2261          (when (and converters (< fcv (caar converters)))          (when (and converters (< fcv (caar converters)))
2262            (while (and converters (< fcv (caar converters))            (while (and converters (< fcv (caar converters))
2263                        (<= (caar converters) gnus-version))                        (<= (caar converters) gcv))
2264              (let* ((converter-spec  (pop converters))              (let* ((converter-spec  (pop converters))
2265                     (convert-to      (nth 1 converter-spec))                     (convert-to      (nth 1 converter-spec))
2266                     (load-from       (nth 2 converter-spec))                     (load-from       (nth 2 converter-spec))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26