From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 15 Dec 2004 06:30:04 +0000 (+0000)
Subject: (nnrss-fetch): Signal an error if w3-parse-buffer also failed.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=53570e3eced5f98fc211cb4469e3fb3d599260b9;p=gnus

(nnrss-fetch): Signal an error if w3-parse-buffer also failed.
 From Maciek Pasternacki.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b40fa0fb..8c27f1622 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-15  Maciek Pasternacki  <maciekp@japhy.fnord.org>  (tiny change)
+
+	* nnrss.el (nnrss-fetch): Signal an error if w3-parse-buffer also
+	failed.
+
 2004-12-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-group.el (gnus-group-delete-group): Decode group name.
diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 093a27c75..a8c4f4905 100644
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -274,13 +274,15 @@ ARTICLE is the article number of the current headline.")
       ;; why w3-parse-buffer fails to parse some well-formed xml and
       ;; fix it.
 
-      (condition-case err
+      (condition-case nil
 	  (setq xmlform (xml-parse-region (point-min) (point-max)))
-	(error (if (fboundp 'w3-parse-buffer)
-		   (setq htmlform (caddar (w3-parse-buffer
-					   (current-buffer))))
-		 (message "nnrss: Not valid XML and w3 parse not available (%s)"
-			  url))))
+	(error
+	 (condition-case err
+	     (setq htmlform (caddar (w3-parse-buffer
+				     (current-buffer))))
+	   (error
+	    (message "nnrss: %s: Not valid XML and w3-parse doesn't work: %s"
+		     url err)))))
       (if htmlform
 	  htmlform
 	xmlform))))