diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:01:31 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:01:31 +1100 |
| commit | 8a1143b7b6ca7270d1848111cc2edf539aced25b (patch) | |
| tree | 50dfe121236a6129deb5f856313fe767701ee18e /lisp/gnus/gnus-html.el | |
| parent | fb5406aa9ab3dd37220636afe6202afd784c7b33 (diff) | |
| download | emacs-8a1143b7b6ca7270d1848111cc2edf539aced25b.tar.gz emacs-8a1143b7b6ca7270d1848111cc2edf539aced25b.tar.bz2 emacs-8a1143b7b6ca7270d1848111cc2edf539aced25b.zip | |
Always use url-queue
* lisp/gnus/gnus-html.el (gnus-html-schedule-image-fetching):
Always use url-queue.
Diffstat (limited to 'lisp/gnus/gnus-html.el')
| -rw-r--r-- | lisp/gnus/gnus-html.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 6d6e094cc4f..1b289c2a7c1 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -40,6 +40,7 @@ (require 'browse-url) (require 'mm-util) (require 'help-fns) +(require 'url-queue) (defcustom gnus-html-image-cache-ttl (days-to-time 7) "Time used to determine if we should use images from the cache." @@ -373,14 +374,9 @@ Use ALT-TEXT for the image string." "Retrieve IMAGE, and place it into BUFFER on arrival." (gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s" buffer image) - (if (fboundp 'url-queue-retrieve) - (url-queue-retrieve (car image) - 'gnus-html-image-fetched - (list buffer image) t t) - (ignore-errors - (url-retrieve (car image) - 'gnus-html-image-fetched - (list buffer image))))) + (url-queue-retrieve (car image) + 'gnus-html-image-fetched + (list buffer image) t t)) (defun gnus-html-image-fetched (status buffer image) "Callback function called when image has been fetched." |