Synch to No Gnus 200501200106.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 975f388..5ad8768 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nnrss.el (nnrss-find-el): Check carefully whether there's a list
+       of string which old xml.el may return rather than a string.
+
 2005-01-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-sum.el (gnus-summary-idna-message): Silence byte compiler.

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 211ca3e..f1c2150 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -687,7 +687,8 @@ Careful with this on large documents!"
            (when (car-safe bit)
              (when (equal tag (car bit))
                ;; Old xml.el may return a list of string.
-               (when (consp (caddr bit))
+               (when (and (consp (caddr bit))
+                          (stringp (caaddr bit)))
                  (setcar (cddr bit) (caaddr bit)))
                (setq found-list
                      (append found-list