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

diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el
index 1e9317bc18c213ad89b92681b437147236dc2d68..b5419f1d57390f093e0e76a02b0851fa6a606046 100644 (file)
--- a/lisp/net/network-stream.el
+++ b/lisp/net/network-stream.el
@@ -233,7 +233,7 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
               (ignore-errors
                 (car (auth-source-search :max 1
                                          :host host
-                                         :port service))))
+                                         :port (format "%s" service)))))
             (key (plist-get auth-info :key))
             (cert (plist-get auth-info :cert)))
        (and key cert (file-readable-p key) (file-readable-p cert)