diff options
| author | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2021-01-31 18:36:52 -0500 |
|---|---|---|
| committer | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2021-01-31 19:11:16 -0500 |
| commit | dc78f8a4ead88744c258ae712adb4fbbb65ec539 (patch) | |
| tree | 7ffba9ef0c63ef3bbfb1a30610206f051cca8244 | |
| parent | 85b0137858098013eb8ab66c4e9b256eedb1954d (diff) | |
| download | emacs-dc78f8a4ead88744c258ae712adb4fbbb65ec539.tar.gz | |
url-http.el: Special-case NTLM authentication
* lisp/url/url-http.el (url-http-handle-authentication): Do not
signal an error on NTLM authorization strings. (Bug#43566)
| -rw-r--r-- | lisp/url/url-http.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index b4d7d333f34..473da6f84c9 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -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) |