[elpa] externals/url-http-ntlm be85e0a 21/42: url-http-ntlm: Declare url-http-extra-headers special

[Stefan Monnier]

branch: externals/url-http-ntlm
commit be85e0a168dcf5d40ac6d8dd86eae1f4bc837020
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    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.
---
 url-http-ntlm.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/url-http-ntlm.el b/url-http-ntlm.el
index 915e9d6..c0af6dd 100644
--- a/url-http-ntlm.el
+++ b/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))