From 35668bfd4f74e7bc0d5bc83ceb310ea6b93ea3e3 Mon Sep 17 00:00:00 2001 From: Thomas Fitzsimmons Date: Wed, 11 Nov 2015 09:33:18 -0500 Subject: [PATCH] url-http-ntlm: Shorten first line of some docstrings * url-http-ntlm.el (url-http-ntlm--last-args) (url-http-ntlm--default-users, url-http-ntlm--get-challenge): Shorten first line of documentation string. --- packages/url-http-ntlm/url-http-ntlm.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages/url-http-ntlm/url-http-ntlm.el b/packages/url-http-ntlm/url-http-ntlm.el index 35f3c081d..026a73912 100644 --- a/packages/url-http-ntlm/url-http-ntlm.el +++ b/packages/url-http-ntlm/url-http-ntlm.el @@ -61,7 +61,7 @@ hashes>\). The hashes are built using `ntlm-get-password-hashes'.") (defvar url-http-ntlm--last-args nil - "Stores the last `url-http-ntlm--get-stage' arguments and return value. + "The last `url-http-ntlm--get-stage' arguments and result. This is used to detect multiple calls.") (make-variable-buffer-local 'url-http-ntlm--last-args) @@ -70,8 +70,7 @@ This is used to detect multiple calls.") Keys are urls, entries are (START-TIME . COUNTER).") (defvar url-http-ntlm--default-users nil - "An alist that maps each server to the default username for -that server.") + "An alist that stores one default username per server.") ;;; Private functions. @@ -224,7 +223,8 @@ stored credentials are not affected." stored)))) (defun url-http-ntlm--get-challenge () - "Return the NTLM Type-2 message in the WWW-Authenticate header, if present." + "Return the NTLM Type-2 message in the WWW-Authenticate header. +Return nil if the NTLM Type-2 message is not present." (save-restriction (mail-narrow-to-head) (let ((www-authenticate (mail-fetch-field "www-authenticate"))) -- 2.39.2