diff options
| author | Richard M. Stallman <[email protected]> | 2005-06-28 21:35:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2005-06-28 21:35:28 +0000 |
| commit | 231add10dbe566f689c2b7f2d8673bcd375ec688 (patch) | |
| tree | e5aab3f68023fda46cbfffc677e667812322c539 | |
| parent | 025691ed9214f914e03d5b6585c2528375d32d4a (diff) | |
(url-http-create-request): Call url-recreate-url in proxy case.
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index e8c28b9d30..4148d62c26 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2005-06-28 Klaus Straubinger <[email protected]> (tiny change) + + * url-http.el (url-http-create-request): Call url-recreate-url + in proxy case. + 2005-06-27 Klaus Straubinger <[email protected]> (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 068a6ea0d1..0b7e2cef8a 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 |