From: Alex Murray <alex.murray@canonical.com>
Date: Mon, 25 Nov 2019 11:48:07 +0000 (+1030)
Subject: Fix auth-source password lookup
X-Git-Tag: emacs-27.0.90~526
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b006095bc9eb1f963372cf862aa040e9a9d30331;p=emacs.git

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 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')."
               (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)