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

[gnus] / lisp / nnrss.el

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 093a27c..a8c4f49 100644 (file)
--- 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))))