[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 [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-start.el [emacs-unicode-2] |
Date: |
Wed, 27 Oct 2004 01:48:08 -0400 |
Index: emacs/lisp/gnus/gnus-start.el
diff -c emacs/lisp/gnus/gnus-start.el:1.21.6.5
emacs/lisp/gnus/gnus-start.el:1.21.6.6
*** emacs/lisp/gnus/gnus-start.el:1.21.6.5 Fri Oct 22 10:13:32 2004
--- emacs/lisp/gnus/gnus-start.el Wed Oct 27 05:42:01 2004
***************
*** 2227,2233 ****
(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
--- 2227,2234 ----
(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
***************
*** 2261,2267 ****
;; 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))
--- 2262,2268 ----
;; 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))