From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Sun, 1 Jan 2006 06:45:49 +0000 (+0000)
Subject: (nnrss-fetch): Make it fail gracefully when it can't fetch a feed.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=1a2b45900f22475a8b6ec5ef5687cf5f64a12d00

(nnrss-fetch): Make it fail gracefully when it can't fetch a feed.
(nnrss-insert-w3): Ditto.
---

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index b99b90ba3..48bf94eb0 100644
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -380,7 +380,11 @@ otherwise return nil."
 	;; FIXME: shouldn't binding `coding-system-for-read' be moved
 	;; to `mm-url-insert'?
 	(let ((coding-system-for-read 'binary))
-	  (mm-url-insert url)))
+	  (condition-case err
+	      (mm-url-insert url)
+	    (error (if (or debug-on-quit debug-on-error)
+		       (signal (car err) (cdr err))
+		     (message "nnrss: Failed to fetch %s" url))))))
       (nnheader-remove-cr-followed-by-lf)
       ;; Decode text according to the encoding attribute.
       (when (setq cs (nnrss-get-encoding))
@@ -516,7 +520,11 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s"
 
 (defun nnrss-insert-w3 (url)
   (mm-with-unibyte-current-buffer
-    (mm-url-insert url)))
+    (condition-case err
+	(mm-url-insert url)
+      (error (if (or debug-on-quit debug-on-error)
+		 (signal (car err) (cdr err))
+	       (message "nnrss: Failed to fetch %s" url))))))
 
 (defun nnrss-decode-entities-string (string)
   (if string