[elpa] master 0f6ba4d 21/32: url-http-ntlm: Declare url-http-extra-headers special

[Thomas Fitzsimmons]

branch: master
commit 0f6ba4dd676173da40058c5cfca7377d44bcefe7
Author: Thomas Fitzsimmons <fitz...@fitzsim.org>
Commit: Thomas Fitzsimmons <fitz...@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.
---
 packages/url-http-ntlm/url-http-ntlm.el |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

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