mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

newsticker: handle url-retrieve errors.

Browse source
This commit is contained in:
Ulf Jasper 2008-07-07 17:34:38 +00:00
parent 29ce30b372
commit 79a3bdcd51
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

10
lisp/net/newst-backend.el
View file

@ -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