/[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.44.2.6 by miles, Sat Apr 10 06:20:09 2004 UTC revision 1.44.2.7 by miles, Tue Jul 6 09:31:51 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.44.2.6  
changed lines
  Added in v.1.44.2.7

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