From 039d00326ebdd7e79b0758c65c7ce98a8fbd8dd1 Mon Sep 17 00:00:00 2001 From: Madhu Date: Mon, 19 Jul 2021 17:42:18 +0200 Subject: [PATCH] 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 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))) -- 2.39.5