[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master bc582f8 23/32: url-http-ntlm: Add auth-source support
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] master bc582f8 23/32: url-http-ntlm: Add auth-source support |
Date: |
Thu, 18 Feb 2016 03:28:49 +0000 |
branch: master
commit bc582f852dd771f2574da4228baea3eb38ca22d5
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>
url-http-ntlm: Add auth-source support
* url-http-ntlm.el (url-http-ntlm--authorisation): Try to read
user and password using auth-source library.
---
packages/url-http-ntlm/url-http-ntlm.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/packages/url-http-ntlm/url-http-ntlm.el
b/packages/url-http-ntlm/url-http-ntlm.el
index 25341ae..8cdb7e8 100644
--- a/packages/url-http-ntlm/url-http-ntlm.el
+++ b/packages/url-http-ntlm/url-http-ntlm.el
@@ -197,12 +197,14 @@ stored credentials are not affected."
(and stored user (not (equal user (cl-second (car stored)))))
(not stored))
(let* ((user* (or user
+ (url-do-auth-source-search server type :user)
(read-string (url-auth-user-prompt url realm)
(or user (user-real-login-name)))))
(pass* (if both
pass
- (read-passwd (format "Password [for %s]: "
- (url-recreate-url url)))))
+ (or (url-do-auth-source-search server type :secret)
+ (read-passwd (format "Password [for %s]: "
+ (url-recreate-url url))))))
(key (list type user* server port))
(entry `(,key . (,(ntlm-get-password-hashes pass*)))))
(unless both
- [elpa] master 4128f4f 13/32: url-http-ntlm.el (url-ntlm-auth): Move defun near end of file, (continued)
- [elpa] master 4128f4f 13/32: url-http-ntlm.el (url-ntlm-auth): Move defun near end of file, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 55e7f42 14/32: url-http-ntlm.el (url-http-ntlm-last-args): Group defvar with others, Thomas Fitzsimmons, 2016/02/17
- [elpa] master d251ed3 15/32: url-http-ntlm: Use double dash naming convention for private symbols, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 47e1c41 16/32: url-http-ntlm.el: Add comment headings, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 8ce1ae7 17/32: url-http-ntlm: Port to cl-lib, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 2dbfb38 19/32: url-http-ntlm: Prevent infinite loops, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 355e756 20/32: url-http-ntlm: Remove limit of one username and password per server, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 0f6ba4d 21/32: url-http-ntlm: Declare url-http-extra-headers special, Thomas Fitzsimmons, 2016/02/17
- [elpa] master eba1c75 18/32: url-http-ntlm: Override url-http-parse-headers redirect handling, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 904d3e6 22/32: url-http-ntlm: Autoload url-ntlm-auth and its registration, Thomas Fitzsimmons, 2016/02/17
- [elpa] master bc582f8 23/32: url-http-ntlm: Add auth-source support,
Thomas Fitzsimmons <=
- [elpa] master 8892d9c 24/32: url-http-ntlm.el: Add home page header, Thomas Fitzsimmons, 2016/02/17
- [elpa] master e036b16 25/32: url-http-ntlm: Change spelling of authorization function, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 5b6c59f 26/32: url-http-ntlm.el: Require ntlm 2.0.0, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 35668bf 27/32: url-http-ntlm: Shorten first line of some docstrings, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 8c06bd3 28/32: url-http-ntlm: Add `url-debug' debugging messages, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 45db1e9 29/32: url-http-ntlm: Add cl-lib to Package-Requires, Thomas Fitzsimmons, 2016/02/17
- [elpa] master faa7c05 30/32: url-http-ntlm.el: Bump version to 2.0.0, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 53039bf 31/32: url-http-ntlm.el: Update copyright years, Thomas Fitzsimmons, 2016/02/17
- [elpa] master 6682a04 32/32: url-http-ntlm.el: Bump version to 2.0.1, Thomas Fitzsimmons, 2016/02/17