mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

url-http.el: Special-case NTLM authentication

Browse Source 
* lisp/url/url-http.el (url-http-handle-authentication): Do not
signal an error on NTLM authorization strings.  (Bug#43566)
This commit is contained in:
Thomas Fitzsimmons 2021-01-31 18:36:52 -05:00
parent 85b0137858
commit dc78f8a4ea
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/url/url-http.el
View File

@ -461,8 +461,10 @@ Return the number of characters removed."
;; headers, then this means that we've already tried sending
;; credentials to the server, and they were wrong, so just give
;; up.
(when (assoc "Authorization" url-http-extra-headers)
(error "Wrong authorization used for %s" url))
(let ((authorization (assoc "Authorization" url-http-extra-headers)))
(when (and authorization
(not (string-match "^NTLM " (cdr authorization))))
(error "Wrong authorization used for %s" url)))
;; find strongest supported auth
(dolist (this-auth auths)