Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6854ab9..ae4ba46 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-11-26  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-agent.el (gnus-agent-uncached-articles): if
+       gnus-agent-load-alist fails, return articles.
+
        * nnrss.el (nnrss-group-alist): Update links for Jabber.
 
 2002-11-26  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 720f334..fadd484 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -2099,7 +2099,7 @@ FORCE is equivalent to setting gnus-agent-expire-days to zero(0)."
 ;; Logically equivalent to: (gnus-sorted-difference articles (mapcar 'car gnus-agent-article-alist))
 ;; Functionally, I don't need to construct a temp list using mapcar.
 
-  (when (gnus-agent-load-alist group)
+  (if (gnus-agent-load-alist group)
     (let* ((ref gnus-agent-article-alist)
            (arts articles)
            (uncached (list nil))
@@ -2119,7 +2119,9 @@ FORCE is equivalent to setting gnus-agent-expire-days to zero(0)."
                  (pop ref)))))
       (while arts
         (setq tail (setcdr tail (list (pop arts)))))
-      (cdr uncached))))
+      (cdr uncached))
+    ;; if gnus-agent-load-alist fails, no articles are cached.
+    articles))
 
 (defun gnus-agent-retrieve-headers (articles group &optional fetch-old)
   (save-excursion