diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-06-28 00:48:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-06-28 00:48:17 +0000 |
| commit | e893ce91fb32ce5a5640ed3e40b8302ae888d4c3 (patch) | |
| tree | 0bc010b5b9a1e67579b2bfc61a6e5c6b6119f073 /lisp/url | |
| parent | 9f8a95cd54639200d1534e05d804594149323f7b (diff) | |
| download | emacs-e893ce91fb32ce5a5640ed3e40b8302ae888d4c3.tar.gz | |
(url-http-create-request): When computing real-fname,
call url-filename in both cases.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/ChangeLog | 17 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 3 |
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 |