/[emacs]/emacs/lisp/mail/smtpmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/smtpmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57.2.1 by handa, Fri Apr 16 12:50:31 2004 UTC revision 1.57.2.2 by miles, Mon Jun 28 07:29:47 2004 UTC
# Line 483  This is relative to `smtpmail-queue-dir' Line 483  This is relative to `smtpmail-queue-dir'
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)

Legend:
Removed from v.1.57.2.1  
changed lines
  Added in v.1.57.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26