From 97f988f3d58db1872c77834c154d5450b16f47a0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 20 Jan 2005 01:06:20 +0000 Subject: [PATCH] Synch to No Gnus 200501200106. --- lisp/ChangeLog | 5 +++++ lisp/nnrss.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 1.7.10.4