From 0f6ba4dd676173da40058c5cfca7377d44bcefe7 Mon Sep 17 00:00:00 2001 From: Thomas Fitzsimmons Date: Thu, 29 Oct 2015 09:56:11 -0400 Subject: [PATCH] url-http-ntlm: Declare url-http-extra-headers special * url-http-ntlm.el (url-http-ntlm--clean-headers): Declare url-http-extra-headers special. (url-http-ntlm--get-stage): Likewise. --- packages/url-http-ntlm/url-http-ntlm.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/packages/url-http-ntlm/url-http-ntlm.el b/packages/url-http-ntlm/url-http-ntlm.el index 915e9d6ee..c0af6dda1 100644 --- a/packages/url-http-ntlm/url-http-ntlm.el +++ b/packages/url-http-ntlm/url-http-ntlm.el @@ -123,6 +123,7 @@ request to the host in URL's server slot." (defun url-http-ntlm--clean-headers () "Remove Authorization element from `url-http-extra-headers' alist." + (cl-declare (special url-http-extra-headers)) (setq url-http-extra-headers (url-http-ntlm--rmssoc "Authorization" url-http-extra-headers))) @@ -138,6 +139,7 @@ nil), and then twice for every stage of the handshake: the first time PROMPT is nil, the second, t; ARGS contains the server response's \"WWW-Authenticate\" header, munged by `url-parse-args'." + (cl-declare (special url-http-extra-headers)) (let* ((response-rxp "^NTLM TlRMTVNTUAADAAA") (challenge-rxp "^TLRMTVNTUAACAAA") (auth-header (assoc "Authorization" url-http-extra-headers)) -- 2.39.2