2001-12-30 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nnrss.el (nnrss-check-group): Find the correct tag, because
	xml.el is changed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 174f1d2..9e35a01 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-30  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnrss.el (nnrss-check-group): Find the correct tag, because
+       xml.el is changed.
+
 2001-12-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-treat-unfold-headers): Only fold when

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 0eddab6..1ffff53 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -491,8 +491,9 @@ To use the description in headers, put this name into `nnmail-extra-headers'.")
       (error
        (nnheader-message 1 "Error in group %s: %s" group (cadr err))))
     (while (and xml (not (assq 'item xml)))
-      (unless (listp (car (setq xml (cddar xml))))
-       (setq xml nil)))
+      (setq xml (cddar xml))
+      (while (not (listp (car xml)))
+       (setq xml (cdr xml))))
     (dolist (item (nreverse xml))
       (when (and (listp item)
                 (eq 'item (car item))