[Top][All Lists]

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

[elpa] externals/url-http-ntlm 2d0a650 16/42: url-http-ntlm.el: Add comm

From: Stefan Monnier
Subject: [elpa] externals/url-http-ntlm 2d0a650 16/42: url-http-ntlm.el: Add comment headings
Date: Sat, 28 Nov 2020 17:19:44 -0500 (EST)

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

    url-http-ntlm.el: Add comment headings
 url-http-ntlm.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/url-http-ntlm.el b/url-http-ntlm.el
index 4750ae1..a63878d 100644
--- a/url-http-ntlm.el
+++ b/url-http-ntlm.el
@@ -43,6 +43,8 @@
 (require 'cl)
 (require 'ntlm)
+;;; Private variables.
 (defvar url-http-ntlm--auth-storage nil
   "Authentication storage.
 An alist that maps a server name to a pair of \(<username> <ntlm
@@ -58,6 +60,8 @@ Note that for any server, only one user and password is ever 
 This is used to detect multiple calls.")
 (make-variable-buffer-local 'url-http-ntlm--last-args)
+;;; Private functions.
 (defun url-http-ntlm--ensure-keepalive ()
   "Report an error if `url-http-attempt-keepalives' is not set."
   (assert url-http-attempt-keepalives
@@ -169,6 +173,8 @@ stored."
   "Return DATA encoded as an NTLM string."
   (concat "NTLM " (base64-encode-string data :nobreak)))
+;;; Public function called by `url-get-authentication'.
 (defun url-ntlm-auth (url &optional prompt overwrite realm args)
   "Return an NTLM HTTP authorization header.
 Get the contents of the Authorization header for a HTTP response
@@ -204,6 +210,8 @@ the server's last response.  These are used by
        (url-http-ntlm--authorisation url :clear)))))
+;;; Register `url-ntlm-auth' HTTP authentication method.
 (url-register-auth-scheme "ntlm" nil 8)
 (provide 'url-http-ntlm)

reply via email to

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