Allow http://user:pass@foo/ URLs again
* lisp/url/url-auth.el (url-basic-auth): Allow explicit user/passwords in URLs (bug#19046).
This commit is contained in:
parent
596338b3b9
commit
b563715a2d
1 changed files with 3 additions and 0 deletions
|
@ -80,6 +80,9 @@ instead of the filename inheritance method."
|
|||
byserv (cdr-safe (assoc server
|
||||
(symbol-value url-basic-auth-storage))))
|
||||
(cond
|
||||
((and user pass)
|
||||
;; Explicit http://user:pass@foo/ URL. Just return the credentials.
|
||||
(setq retval (base64-encode-string (format "%s:%s" user pass))))
|
||||
((and prompt (not byserv))
|
||||
(setq user (or
|
||||
(url-do-auth-source-search server type :user)
|
||||
|
|
Loading…
Add table
Reference in a new issue