(url-http-create-request): When computing real-fname,

call url-filename in both cases.

2 files changed, 18 insertions, 2 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 4da3d22584a..e8c28b9d301 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,20 @@
+2005-06-27  Klaus Straubinger  <KSNetz@Arcor.DE>  (tiny change)
+
+        * url-http.el (url-http-create-request): When computing real-fname,
+        call url-filename in both cases.
+
+2005-06-27  Richard M. Stallman  <rms@gnu.org>
+
+        * url-cookie.el (url-cookie-store): Rename arg PATH to LOCALPART.
+        (url-cookie-retrieve): Likewise.
+        (url-cookie-generate-header-lines): Likewise.
+        (url-cookie-handle-set-cookie): Likewise.
+        (url-cookie-create): Expect :localpart instead of :path.
+        (url-cookie-localpart): Renamed from url-cookie-path.
+        (url-cookie-set-localpart): Renamed from url-cookie-set-path.
+        (url-cookie-file): Doc fix.
+        (url-cookie-p): Add doc string.
+
 2005-06-23  Richard M. Stallman  <rms@gnu.org>
 
         * url-cookie.el (url-cookie-generate-header-lines): Fix autoload cookie.
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index f5bbf4a7bf4..068a6ea0d17 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -156,8 +156,7 @@ request.
                        (let ((url-basic-auth-storage
                               'url-http-proxy-basic-auth-storage))
                          (url-get-authentication url nil 'any nil))))
-         (real-fname (if proxy-obj (url-recreate-url proxy-obj)
-                       (url-filename url)))
+         (real-fname (url-filename (or proxy-obj url)))
          (host (url-host (or proxy-obj url)))
          (auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers))
                    nil