master 039d003: Propagate asynchronousness correctly when using proxies in url.el

[Lars Ingebrigtsen]

branch: master
commit 039d00326ebdd7e79b0758c65c7ce98a8fbd8dd1
Author: Madhu <enometh@meer.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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
---
 lisp/url/url.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/url/url.el b/lisp/url/url.el
index 8daf9f0..a6565e2 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)))