483 |
(setq cred-key (expand-file-name cred-key))) |
(setq cred-key (expand-file-name cred-key))) |
484 |
(file-regular-p |
(file-regular-p |
485 |
(setq cred-cert (expand-file-name cred-cert)))) |
(setq cred-cert (expand-file-name cred-cert)))) |
486 |
(list "--key-file" cred-key "--cert-file" cred-cert)))) |
(list "--key-file" cred-key "--cert-file" cred-cert))) |
487 |
|
(starttls-extra-arguments |
488 |
|
(when (and (stringp cred-key) (stringp cred-cert) |
489 |
|
(file-regular-p |
490 |
|
(setq cred-key (expand-file-name cred-key))) |
491 |
|
(file-regular-p |
492 |
|
(setq cred-cert (expand-file-name cred-cert)))) |
493 |
|
(list "--x509keyfile" cred-key "--x509certfile" cred-cert)))) |
494 |
(starttls-open-stream "SMTP" process-buffer host port))))) |
(starttls-open-stream "SMTP" process-buffer host port))))) |
495 |
|
|
496 |
(defun smtpmail-try-auth-methods (process supported-extensions host port) |
(defun smtpmail-try-auth-methods (process supported-extensions host port) |