diff options
Diffstat (limited to 'lisp/net/network-stream.el')
| -rw-r--r-- | lisp/net/network-stream.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el index 9c4ca80104d..b75621beee4 100644 --- a/lisp/net/network-stream.el +++ b/lisp/net/network-stream.el @@ -171,8 +171,8 @@ values: (car (auth-source-search :max 1 :host host :port service))) - (key (plist-get auth-info :cert-key)) - (cert (plist-get auth-info :cert-cert))) + (key (plist-get auth-info :key)) + (cert (plist-get auth-info :cert))) (and key cert (list key cert))))))) @@ -231,8 +231,8 @@ values: ;; the command line. (when cert (setq starttls-extra-arguments - (nconc (list "--x509keyfile" (nth 0 cert) - "--x509certfile" (nth 1 cert)) + (nconc (list "--x509keyfile" (expand-file-name (nth 0 cert)) + "--x509certfile" (expand-file-name (nth 1 cert))) starttls-extra-arguments))) (setq stream (starttls-open-stream name buffer host service))) (network-stream-get-response stream start eoc)) |