bug#28515: [PATCH] fix url-current-object is undefined

[Yuya Minami]

`url-http-find-free-connection` using `url-current-object`, but this
variable is nil at this point.
---
 lisp/url/url-http.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 9e8c58b1cd..078106fb8d 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1249,9 +1249,10 @@ The return value of this function is the retrieval 
buffer."
         (nsm-noninteractive (or url-request-noninteractive
                                 (and (boundp 'url-http-noninteractive)
                                      url-http-noninteractive)))
-         (connection (url-http-find-free-connection (url-host url)
-                                                    (url-port url)
-                                                    gateway-method))
+         (connection (let ((url-current-object url))
+                       (url-http-find-free-connection (url-host url)
+                                                      (url-port url)
+                                                      gateway-method)))
          (mime-accept-string url-mime-accept-string)
         (buffer (or retry-buffer
                     (generate-new-buffer
--
2.14.1