(url-http-create-request):

Use `url-recreate-url-attributes' when setting real-fname.

2 files changed, 15 insertions, 3 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 135fdec0921..ad3912de67f 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,6 +1,17 @@
-2006-08-29  Diane Murray  <disumu@x3y2z1.net>  (tiny change)
+2006-08-31  Diane Murray  <disumu@x3y2z1.net>
 
-        * url-cookie.el (url-cookie-write-file): Really don't use versioned backups.
+        * url-parse.el (url-recreate-url-attributes): New function, code
+        simply moved from `url-recreate-url'.
+        (url-recreate-url): Use it.
+        Put the `url-target' at the end of the URL after the attributes.
+
+        * url-http.el (url-http-create-request):
+        Use `url-recreate-url-attributes' when setting real-fname.
+
+2006-08-29  Diane Murray  <disumu@x3y2z1.net>
+
+        * url-cookie.el (url-cookie-write-file): Really don't use versioned
+        backups.
 
 2006-08-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index ae3a4b3e070..a1d87e1bd31 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -160,7 +160,8 @@ request.")
                        (let ((url-basic-auth-storage
                               'url-http-proxy-basic-auth-storage))
                          (url-get-authentication url nil 'any nil))))
-         (real-fname (url-filename (or proxy-obj url)))
+         (real-fname (concat (url-filename (or proxy-obj url))
+                             (url-recreate-url-attributes (or proxy-obj url))))
          (host (url-host (or proxy-obj url)))
          (auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers))
                    nil