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 8daf9f0a8e81fa6e3b47d02d9631138b4210d11c..a6565e2cdb6e935eb68369ef671ba337602f238b 100644 (file)
--- 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)))