From: Madhu <enometh@meer.net>
Date: Mon, 19 Jul 2021 15:42:18 +0000 (+0200)
Subject: Propagate asynchronousness correctly when using proxies in url.el
X-Git-Tag: emacs-28.0.90~1806
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=039d00326ebdd7e79b0758c65c7ce98a8fbd8dd1;p=emacs.git

Propagate asynchronousness correctly when using proxies in url.el

* lisp/url/url.el (url-retrieve-internal): Propagate
asynchronousness correctly when using a proxy (bug#49570).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/url/url.el b/lisp/url/url.el
index 8daf9f0a8e8..a6565e2cdb6 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -208,9 +208,10 @@ URL-encoded before it's used."
 			     (url-find-proxy-for-url url (url-host url))))
 	(buffer nil)
 	(asynch (url-scheme-get-property (url-type url) 'asynchronous-p)))
-    (if url-using-proxy
-	(setq asynch t
-	      loader #'url-proxy))
+    (when url-using-proxy
+      (setf asynch t
+	    loader #'url-proxy
+            (url-asynchronous url) t))
     (if asynch
 	(let ((url-current-object url))
 	  (setq buffer (funcall loader url callback cbargs)))