martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Require key and cert when searching for client cert

Browse Source 
* lisp/net/network-stream.el (network-stream-certificate):
Require :key and :cert when searching auth sources for a client
certificate.  (Bug#78189)
This commit is contained in:
Jens Schmidt
2025-05-05 13:47:17 +02:00
committed by Robert Pluim
parent b91efd401d
commit d11570d80e
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/net/network-stream.el
View File

@@ -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)