[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Stefan Monnier
Subject: [elpa] externals/url-http-ntlm be85e0a 21/42: url-http-ntlm: Declare url-http-extra-headers special
Date: Sat, 28 Nov 2020 17:19:46 -0500 (EST)

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 
 time PROMPT is nil, the second, t; ARGS contains the server
 response's \"WWW-Authenticate\" header, munged by
+  (cl-declare (special url-http-extra-headers))
   (let* ((response-rxp    "^NTLM TlRMTVNTUAADAAA")
         (challenge-rxp    "^TLRMTVNTUAACAAA")
         (auth-header      (assoc "Authorization" url-http-extra-headers))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]