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)

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 9e8c58b1cd4579b9e5fcfa2a610cb4f2a6c0b4ac..51f158e5c21eaeeb07573deca7e2ea092c9f1361 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -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))