>From 92942fc012b96240c908834add932f4a551ab883 Mon Sep 17 00:00:00 2001 From: Alex Murray Date: Mon, 25 Nov 2019 22:18:07 +1030 Subject: [PATCH] Fix auth-source password lookup * lisp/net/network-stream.el (network-stream-certificate): Ensure :port is specified as a string to 'auth-source-search'. Copyright-paperwork-exempt: yes --- lisp/net/network-stream.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el index 9a796d93ab..3227458f8a 100644 --- a/lisp/net/network-stream.el +++ b/lisp/net/network-stream.el @@ -228,7 +228,9 @@ gnutls-boot (as returned by `gnutls-boot-parameters')." (let* ((auth-info (car (auth-source-search :max 1 :host host - :port service))) + :port (if (numberp service) + (number-to-string service) + service)))) (key (plist-get auth-info :key)) (cert (plist-get auth-info :cert))) (and key cert (file-readable-p key) (file-readable-p cert) -- 2.20.1