mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

Warn instead of erroring when pruning the URL cache

Browse source 
* url.el (url-retrieve-internal): Warn about file errors when
pruning the cache instead of bugging out.
This commit is contained in:
Lars Ingebrigtsen 2012-02-20 09:22:41 +01:00
parent ab1ce9d7e2
commit 1e54a73bf0
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/url/ChangeLog
View file

@ -1,3 +1,8 @@
2012-02-20 Lars Ingebrigtsen <larsi@gnus.org>
* url.el (url-retrieve-internal): Warn about file errors when
pruning the cache instead of bugging out (bug#10831).
2012-02-19 Lars Ingebrigtsen <larsi@gnus.org>
* url-queue.el (url-queue-callback-function): Remove the job from

5
lisp/url/url.el
View file

@ -186,7 +186,10 @@ the server."
(setf (url-use-cookies url) (not inhibit-cookies))
;; Once in a while, remove old entries from the URL cache.
(when (zerop (% url-retrieve-number-of-calls 1000))
(url-cache-prune-cache))
(condition-case error
(url-cache-prune-cache)
(file-error
(message "Error when expiring the cache: %s" error))))
(setq url-retrieve-number-of-calls (1+ url-retrieve-number-of-calls))
(let ((loader (url-scheme-get-property (url-type url) 'loader))
(url-using-proxy (if (url-host url)