1 |
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail |
;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail |
2 |
|
|
3 |
;; Copyright (C) 1995, 1996, 2001, 2002 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1996, 2001, 2002, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp> |
;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp> |
6 |
;; Maintainer: Simon Josefsson <simon@josefsson.org> |
;; Maintainer: Simon Josefsson <simon@josefsson.org> |
457 |
(let ((cred (smtpmail-find-credentials |
(let ((cred (smtpmail-find-credentials |
458 |
smtpmail-starttls-credentials host port))) |
smtpmail-starttls-credentials host port))) |
459 |
(if (null (and cred (condition-case () |
(if (null (and cred (condition-case () |
460 |
(call-process "starttls") |
(progn |
461 |
|
(require 'starttls) |
462 |
|
(call-process starttls-program)) |
463 |
(error nil)))) |
(error nil)))) |
464 |
;; The normal case. |
;; The normal case. |
465 |
(open-network-stream "SMTP" process-buffer host port) |
(open-network-stream "SMTP" process-buffer host port) |