diff options
| author | João Távora <joaotavora@gmail.com> | 2019-11-20 00:11:00 +0000 |
|---|---|---|
| committer | João Távora <joaotavora@gmail.com> | 2019-11-22 09:36:58 +0000 |
| commit | 92fda5a7f92162d610d57df14372bcfcee1f01b6 (patch) | |
| tree | ec0b313fccb15a389a4ab41f28675955a5729250 /lisp/auth-source-pass.el | |
| parent | c5de861af1da697b4481133e4f5f966e6a3fc859 (diff) | |
| download | emacs-92fda5a7f92162d610d57df14372bcfcee1f01b6.tar.gz emacs-92fda5a7f92162d610d57df14372bcfcee1f01b6.tar.bz2 emacs-92fda5a7f92162d610d57df14372bcfcee1f01b6.zip | |
Make auth-source-pass-search understand port lists
For cases such as a typical IMAP Gnus setup, auto-source-pass-search
is passed a list of "port aliases" like (993 "imaps" "imap" "993"
"143") in hopes of finding a matching ~/.password-store entry.
This modification makes this library understand and unroll the port
list so that, i.e. "domain:993", "domain:imaps"", "domain:imap",
etc. are computed as potential suffixes. Previously a nonsensical
string "domain:(993 imaps imap ...)" was returned.
* lisp/auth-source-pass.el
(auth-source-pass--generate-entry-suffixes): Allow PORT to be a list
of ports.
Diffstat (limited to 'lisp/auth-source-pass.el')
| -rw-r--r-- | lisp/auth-source-pass.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el index 524a72792cf..dfdb7596fae 100644 --- a/lisp/auth-source-pass.el +++ b/lisp/auth-source-pass.el @@ -269,10 +269,15 @@ If ENTRIES is nil, use the result of calling `auth-source-pass-entries' instead. Based on the supported pathname patterns for HOSTNAME, USER, & PORT, return a list of possible suffixes for matching entries in -the password-store." +the password-store. + +PORT may be a list of ports." (let ((domains (auth-source-pass--domains (split-string hostname "\\.")))) - (seq-mapcat (lambda (n) - (auth-source-pass--name-port-user-suffixes n user port)) + (seq-mapcat (lambda (domain) + (seq-mapcat + (lambda (p) + (auth-source-pass--name-port-user-suffixes domain user p)) + (if (listp port) port (list port)))) domains))) (defun auth-source-pass--domains (name-components) |