From: yamaoka <yamaoka>
Date: Thu, 20 Jan 2005 01:06:20 +0000 (+0000)
Subject: Synch to No Gnus 200501200106.
X-Git-Tag: t-gnus-6_17_4-quimby-~588
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=97f988f3d58db1872c77834c154d5450b16f47a0;p=elisp%2Fgnus.git-

Synch to No Gnus 200501200106.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 975f388..5ad8768 100644
--- 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
--- 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