(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 4da3d22584..e8c28b9d30 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,20 @@
+2005-06-27  Klaus Straubinger  <[email protected]>  (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  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* 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 f5bbf4a7bf..068a6ea0d1 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