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

 From Maciek Pasternacki.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b40fa0..8c27f16 100644 (file)
--- 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 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))))