[Emacs-diffs] Changes to emacs/lisp/net/newst-backend.el,v

[Ulf Jasper]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ulf Jasper <u11>        08/07/07 17:34:38

Index: net/newst-backend.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-backend.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- net/newst-backend.el        13 Jun 2008 17:05:33 -0000      1.1
+++ net/newst-backend.el        7 Jul 2008 17:34:38 -0000       1.2
@@ -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 @@
   "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 @@
                                          (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