Fix url-http use of url-current-object

* lisp/url/url-http.el (url-http): Bind url-current-object before
calling url-http-find-free-connection.  (Bug#28515)
This commit is contained in:
Eli Zaretskii 2017-09-30 16:33:30 +03:00
parent 4a755ed421
commit a4f7518817

View file

@ -1249,6 +1249,9 @@ The return value of this function is the retrieval buffer."
(nsm-noninteractive (or url-request-noninteractive
(and (boundp 'url-http-noninteractive)
url-http-noninteractive)))
;; The following binding is needed in url-open-stream, which
;; is called from url-http-find-free-connection.
(url-current-object url)
(connection (url-http-find-free-connection (url-host url)
(url-port url)
gateway-method))