]> code.delx.au - gnu-emacs/commitdiff
Always use url-queue
authorLars Ingebrigtsen <larsi@gnus.org>
Sat, 13 Feb 2016 06:01:31 +0000 (17:01 +1100)
committerLars Ingebrigtsen <larsi@gnus.org>
Sat, 13 Feb 2016 06:01:31 +0000 (17:01 +1100)
* lisp/gnus/gnus-html.el (gnus-html-schedule-image-fetching):
Always use url-queue.

lisp/gnus/gnus-html.el

index 6d6e094cc4f35e228be3622a88e8ec2f88e9b239..1b289c2a7c18f5fb81632e377f1c4a935b42b302 100644 (file)
@@ -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."