diff options
| author | Alex Murray | 2019-11-25 22:18:07 +1030 |
|---|---|---|
| committer | Robert Pluim | 2019-11-26 09:23:45 +0100 |
| commit | b006095bc9eb1f963372cf862aa040e9a9d30331 (patch) | |
| tree | 722d469fd60eb95ad4035758f5a203e8920e5434 | |
| parent | 650a514e996287106f9a9525b6f27068ec2a0cbf (diff) | |
| download | emacs-b006095bc9eb1f963372cf862aa040e9a9d30331.tar.gz emacs-b006095bc9eb1f963372cf862aa040e9a9d30331.zip | |
Fix auth-source password lookup
* lisp/net/network-stream.el
(network-stream-certificate): Ensure :port is specified as a string to
'auth-source-search' (Bug#38371).
Copyright-paperwork-exempt: yes
| -rw-r--r-- | lisp/net/network-stream.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el index 1e9317bc18c..b5419f1d573 100644 --- a/lisp/net/network-stream.el +++ b/lisp/net/network-stream.el | |||
| @@ -233,7 +233,7 @@ gnutls-boot (as returned by `gnutls-boot-parameters')." | |||
| 233 | (ignore-errors | 233 | (ignore-errors |
| 234 | (car (auth-source-search :max 1 | 234 | (car (auth-source-search :max 1 |
| 235 | :host host | 235 | :host host |
| 236 | :port service)))) | 236 | :port (format "%s" service))))) |
| 237 | (key (plist-get auth-info :key)) | 237 | (key (plist-get auth-info :key)) |
| 238 | (cert (plist-get auth-info :cert))) | 238 | (cert (plist-get auth-info :cert))) |
| 239 | (and key cert (file-readable-p key) (file-readable-p cert) | 239 | (and key cert (file-readable-p key) (file-readable-p cert) |