diff options
| author | Lars Ingebrigtsen | 2016-02-13 17:01:31 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-13 17:01:31 +1100 |
| commit | 8a1143b7b6ca7270d1848111cc2edf539aced25b (patch) | |
| tree | 50dfe121236a6129deb5f856313fe767701ee18e | |
| parent | fb5406aa9ab3dd37220636afe6202afd784c7b33 (diff) | |
| download | emacs-8a1143b7b6ca7270d1848111cc2edf539aced25b.tar.gz emacs-8a1143b7b6ca7270d1848111cc2edf539aced25b.zip | |
Always use url-queue
* lisp/gnus/gnus-html.el (gnus-html-schedule-image-fetching):
Always use url-queue.
| -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 @@ | |||
| 40 | (require 'browse-url) | 40 | (require 'browse-url) |
| 41 | (require 'mm-util) | 41 | (require 'mm-util) |
| 42 | (require 'help-fns) | 42 | (require 'help-fns) |
| 43 | (require 'url-queue) | ||
| 43 | 44 | ||
| 44 | (defcustom gnus-html-image-cache-ttl (days-to-time 7) | 45 | (defcustom gnus-html-image-cache-ttl (days-to-time 7) |
| 45 | "Time used to determine if we should use images from the cache." | 46 | "Time used to determine if we should use images from the cache." |
| @@ -373,14 +374,9 @@ Use ALT-TEXT for the image string." | |||
| 373 | "Retrieve IMAGE, and place it into BUFFER on arrival." | 374 | "Retrieve IMAGE, and place it into BUFFER on arrival." |
| 374 | (gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s" | 375 | (gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s" |
| 375 | buffer image) | 376 | buffer image) |
| 376 | (if (fboundp 'url-queue-retrieve) | 377 | (url-queue-retrieve (car image) |
| 377 | (url-queue-retrieve (car image) | 378 | 'gnus-html-image-fetched |
| 378 | 'gnus-html-image-fetched | 379 | (list buffer image) t t)) |
| 379 | (list buffer image) t t) | ||
| 380 | (ignore-errors | ||
| 381 | (url-retrieve (car image) | ||
| 382 | 'gnus-html-image-fetched | ||
| 383 | (list buffer image))))) | ||
| 384 | 380 | ||
| 385 | (defun gnus-html-image-fetched (status buffer image) | 381 | (defun gnus-html-image-fetched (status buffer image) |
| 386 | "Callback function called when image has been fetched." | 382 | "Callback function called when image has been fetched." |