From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 13 Feb 2016 06:01:31 +0000 (+1100)
Subject: Always use url-queue
X-Git-Tag: emacs-26.0.90~2584
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a1143b7b6ca7270d1848111cc2edf539aced25b;p=emacs.git

Always use url-queue

* lisp/gnus/gnus-html.el (gnus-html-schedule-image-fetching):
Always use url-queue.
---

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