156 |
(let ((url-basic-auth-storage |
(let ((url-basic-auth-storage |
157 |
'url-http-proxy-basic-auth-storage)) |
'url-http-proxy-basic-auth-storage)) |
158 |
(url-get-authentication url nil 'any nil)))) |
(url-get-authentication url nil 'any nil)))) |
159 |
(real-fname (if proxy-obj (url-recreate-url proxy-obj) |
(real-fname (url-filename (or proxy-obj url))) |
|
(url-filename url))) |
|
160 |
(host (url-host (or proxy-obj url))) |
(host (url-host (or proxy-obj url))) |
161 |
(auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers)) |
(auth (if (cdr-safe (assoc "Authorization" url-request-extra-headers)) |
162 |
nil |
nil |