From 572553c0373ecb9d0c1787e5c236c47a226c29d5 Mon Sep 17 00:00:00 2001 From: Jens Schmidt Date: Mon, 5 May 2025 13:47:17 +0200 Subject: [PATCH] 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) (cherry picked from commit d11570d80ee18932ffb0ceed552313ada2879bcb) --- lisp/net/network-stream.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.5