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

asynchronous connections correctly.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 27f463b0b97..93ebfef961c 100644
--- 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 dc670188e26..69c04c51c28 100644
--- 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