(url-http-create-request): Call url-recreate-url in proxy case.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index e8c28b9d301..4148d62c263 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-28  Klaus Straubinger  <KSNetz@Arcor.DE>  (tiny change)
+
+        * url-http.el (url-http-create-request): Call url-recreate-url
+        in proxy case.
+
 2005-06-27  Klaus Straubinger  <KSNetz@Arcor.DE>  (tiny change)
 
         * url-http.el (url-http-create-request): When computing real-fname,
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 068a6ea0d17..0b7e2cef8a1 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -199,7 +199,9 @@ request.
     (setq request
           (concat
            ;; The request
-           (or url-request-method "GET") " " real-fname " HTTP/" url-http-version "\r\n"
+           (or url-request-method "GET") " "
+           (if proxy-obj (url-recreate-url proxy-obj) real-fname)
+           " HTTP/" url-http-version "\r\n"
            ;; Version of MIME we speak
            "MIME-Version: 1.0\r\n"
            ;; (maybe) Try to keep the connection open