[Top][All Lists]

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

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

From: Thomas Fitzsimmons
Subject: [elpa] master 0f6ba4d 21/32: url-http-ntlm: Declare url-http-extra-headers special
Date: Thu, 18 Feb 2016 03:28:39 +0000

branch: master
commit 0f6ba4dd676173da40058c5cfca7377d44bcefe7
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>

    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 
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 
 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]