branch: master
commit 8482b90ca7e6ed1f74ec4aba370ac1880044f19d
Author: Thomas Fitzsimmons <[email protected]>
Commit: Thomas Fitzsimmons <[email protected]>
url-http-ntlm: Remove blank comment lines
* url-http-ntlm.el (url-ntlm-auth, url-ntlm-get-stage): Remove blank
comment lines.
---
packages/url-http-ntlm/url-http-ntlm.el | 4 ----
1 files changed, 0 insertions(+), 4 deletions(-)
diff --git a/packages/url-http-ntlm/url-http-ntlm.el
b/packages/url-http-ntlm/url-http-ntlm.el
index 6981921..a98f462 100644
--- a/packages/url-http-ntlm/url-http-ntlm.el
+++ b/packages/url-http-ntlm/url-http-ntlm.el
@@ -73,14 +73,12 @@ the server's last response. These are used by
(url-ntlm-ensure-keepalive)
(let ((stage (url-ntlm-get-stage args)))
(case stage
- ;;
;; NTLM Type 1 message: the request
(:request
(destructuring-bind (&optional server user hash)
(url-http-ntlm-authorisation url)
(when server
(url-http-ntlm-string (ntlm-build-auth-request user server)))))
- ;;
;; NTLM Type 3 message: the response
(:response
(let ((challenge (url-http-ntlm-get-challenge)))
@@ -129,7 +127,6 @@ response's \"WWW-Authenticate\" header, munged by
(if (eq args (car url-ntlm-last-args))
;; multiple calls, return the same argument we returned last time
(cdr url-ntlm-last-args)
- ;;
(let ((stage
(cond ((and auth-header (string-match response-rxp
(cdr auth-header)))
@@ -190,7 +187,6 @@ stored."
(url-http-ntlm-rmssoc server
url-http-ntlm-auth-storage))))
entry)
- ;;
stored))))
(defun url-http-ntlm-get-challenge ()
