# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1119994518 0
# Node ID 6a70b4f2e463ce00d8bd648b081ec5a4b7d09536
# Parent  75b7da639bba6c6b947417a9b9d256bc9ec66d4a
(url-http-create-request): Call url-recreate-url in proxy case.

diff -r 75b7da639bba -r 6a70b4f2e463 lisp/url/url-http.el
--- a/lisp/url/url-http.el	Tue Jun 28 19:08:07 2005 +0000
+++ b/lisp/url/url-http.el	Tue Jun 28 21:35:18 2005 +0000
@@ -199,7 +199,9 @@
     (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