(url-http): Make proxy-object buffer-local, to handle proxied

asynchronous connections correctly.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 27f463b0b97ba64150fd78c8db3be77dbfb11b0c..93ebfef961cb91b3fd8c64ecd0f7baa2ae063311 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,5 +1,8 @@
 2006-11-15  Magnus Henoch  <mange@freemail.hu>
 
+       * url-http.el (url-http): Make proxy-object buffer-local, to
+       handle proxied asynchronous connections correctly.
+
        * url-parse.el (url-generic-parse-url): Use with-temp-buffer.
 
 2006-11-15  Shun-ichi GOTO  <gotoh@taiyo.co.jp> (tiny change)

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index dc670188e26ee581e61bf39875134e4352c840cc..69c04c51c28c079eb6eb296e82170c405e43b908 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1071,7 +1071,8 @@ CBARGS as the arguments."
                    url-http-chunked-length
                    url-http-chunked-start
                    url-http-chunked-counter
-                   url-http-process))
+                   url-http-process
+                   proxy-object))
   (let ((connection (url-http-find-free-connection (url-host url)
                                                   (url-port url)))
        (buffer (generate-new-buffer (format " *http %s:%d*"
@@ -1106,6 +1107,7 @@ CBARGS as the arguments."
                       url-http-data
                       url-http-target-url))
          (set (make-local-variable var) nil))
+       (make-local-variable 'proxy-object)
 
        (setq url-http-method (or url-request-method "GET")
              url-http-extra-headers url-request-extra-headers