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
This commit is contained in:
Madhu 2021-07-19 17:42:18 +02:00 committed by Lars Ingebrigtsen
parent 8f51194aa5
commit 039d00326e

View file

@ -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)))