From: yamaoka <yamaoka>
Date: Tue, 26 Nov 2002 22:22:05 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_10-00-quimby~65
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=32a57fbb4e60a0d7426e01ca6083ec0e6c94bb7e;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6854ab9..ae4ba46 100644
--- 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,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 720f334..fadd484 100644
--- 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