Require key and cert when searching for client cert

* lisp/net/network-stream.el (network-stream-certificate):
Require :key and :cert when searching auth sources for a client
certificate.  (Bug#78189)

1 files changed, 2 insertions, 1 deletions

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