mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

Allow http://user:pass@foo/ URLs again

Browse Source 
* lisp/url/url-auth.el (url-basic-auth): Allow explicit
user/passwords in URLs (bug#19046).
This commit is contained in:
Lars Ingebrigtsen 2015-12-25 20:21:46 +01:00
parent 596338b3b9
commit b563715a2d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/url/url-auth.el
View File

@ -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)