Commit b006095b authored by Alex Murray's avatar Alex Murray Committed by Robert Pluim

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
parent 650a514e
Pipeline #4160 failed with stage
in 65 minutes and 16 seconds
...@@ -233,7 +233,7 @@ gnutls-boot (as returned by `gnutls-boot-parameters')." ...@@ -233,7 +233,7 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
(ignore-errors (ignore-errors
(car (auth-source-search :max 1 (car (auth-source-search :max 1
:host host :host host
:port service)))) :port (format "%s" service)))))
(key (plist-get auth-info :key)) (key (plist-get auth-info :key))
(cert (plist-get auth-info :cert))) (cert (plist-get auth-info :cert)))
(and key cert (file-readable-p key) (file-readable-p cert) (and key cert (file-readable-p key) (file-readable-p cert)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment