newsticker: handle url-retrieve errors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5044be8c4465b5530b7e1ca27437b7ac6d6914b4..1501cda13d84bf4d95aee63ea850e2edb88686bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-07-07  Ulf Jasper  <ulf@web.de>
+
+       * net/newst-backend.el (newsticker--get-news-by-url): Catch errors
+       from url-retrieve.
+       (newsticker--sentinel-work): Fixed xerror typo.
+
 2008-07-07  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-dir.el (vc-dir-refresh): Only update files.

diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 6fafa9660eb71940f83acb5d5ac3efbec2f75ac5..f0174c588b8af2433565ea4202d43bbcd13c8bc2 100644 (file)
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -7,7 +7,7 @@
 ;; Filename:    newst-backend.el
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "13. Juni 2008, 17:41:00 (ulf)"
+;; Time-stamp:  "7. Juli 2008, 19:20:10 (ulf)"
 
 ;; ======================================================================
 
@@ -742,7 +742,11 @@ See `newsticker-get-news'."
   "Get news for the site FEED-NAME from address URL using `url-retrieve'.
 See `newsticker-get-news'."
   (let ((coding-system-for-read 'no-conversion))
-    (url-retrieve url 'newsticker--get-news-by-url-callback (list feed-name)))
+    (condition-case error-data
+        (url-retrieve url 'newsticker--get-news-by-url-callback 
+                      (list feed-name))
+          (error (message "Error retrieving news from %s: %s" feed-name
+                          error-data))))
   (force-mode-line-update))
 
 (defun newsticker--get-news-by-url-callback (status feed-name)
@@ -999,7 +1003,7 @@ Argument BUFFER is the buffer of the retrieval process."
                                          (xml-node-name topnode) name)
                   nil))
                 (setq something-was-added t))
-          (xerror (message "sentinelerror in %s: %s" name error-data)))
+          (error (message "sentinelerror in %s: %s" name error-data)))
 
         ;; Remove those old items from cache which have been removed from
         ;; the feed