diff options
| author | Madhu <enometh@meer.net> | 2021-07-19 17:42:18 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-19 17:42:18 +0200 |
| commit | 039d00326ebdd7e79b0758c65c7ce98a8fbd8dd1 (patch) | |
| tree | 23bc512fb09c103166757b98b9d4c1ccb6cc085f /lisp/url/url.el | |
| parent | 8f51194aa5f2e3300d60bca9c7b6630ee11d9a70 (diff) | |
| download | emacs-039d00326ebdd7e79b0758c65c7ce98a8fbd8dd1.tar.gz | |
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
Diffstat (limited to 'lisp/url/url.el')
| -rw-r--r-- | lisp/url/url.el | 7 |
1 files 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))) |