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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index e8c28b9d301c9c3d69ffdfa741ac1cc52f959daf..4148d62c263667bac1c2451f996842613adcd877 100644 (file)
--- 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 068a6ea0d17f49c46ae7504b779f64bdd2c0ce40..0b7e2cef8a14b8e3bc9c69309e9c49dfec41cc7c 100644 (file)
--- 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