From 32a57fbb4e60a0d7426e01ca6083ec0e6c94bb7e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 26 Nov 2002 22:22:05 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 3 +++ lisp/gnus-agent.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + * 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 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 -- 1.7.10.4