diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-13 01:27:32 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-13 01:31:24 +0200 |
| commit | 655fe3fe0de92ace4a97dd3c478c3683b163e132 (patch) | |
| tree | 0a658657d9a9b026dd07cf699771623fb3d4efbe /lisp/url/url-auth.el | |
| parent | ebd3f61a569f256f926828017f500cc74e6878bc (diff) | |
| download | emacs-655fe3fe0de92ace4a97dd3c478c3683b163e132.tar.gz | |
Fix long credentials when using auth in url.el
* lisp/url/url-auth.el (url-basic-auth): When base64-ing
credentials, don't let bsae64-encode-string split the result into
several lines, because servers do not understand that (bug#36619).
Diffstat (limited to 'lisp/url/url-auth.el')
| -rw-r--r-- | lisp/url/url-auth.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index beed7c6cb62..b78544e3f37 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -82,7 +82,7 @@ instead of the filename inheritance method." (cond ((and user pass) ;; Explicit http://user:pass@foo/ URL. Just return the credentials. - (setq retval (base64-encode-string (format "%s:%s" user pass)))) + (setq retval (base64-encode-string (format "%s:%s" user pass) t))) ((and prompt (not byserv)) (setq user (or (url-do-auth-source-search server type :user) @@ -97,7 +97,8 @@ instead of the filename inheritance method." (setq retval (base64-encode-string (format "%s:%s" user - (encode-coding-string pass 'utf-8)))))) + (encode-coding-string pass 'utf-8)) + t)))) (symbol-value url-basic-auth-storage)))) (byserv (setq retval (cdr-safe (assoc file byserv))) @@ -120,7 +121,7 @@ instead of the filename inheritance method." pass (or (url-do-auth-source-search server type :secret) (read-passwd "Password: ")) - retval (base64-encode-string (format "%s:%s" user pass)) + retval (base64-encode-string (format "%s:%s" user pass) t) byserv (assoc server (symbol-value url-basic-auth-storage))) (setcdr byserv (cons (cons file retval) (cdr byserv)))))) |