diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2021-09-06 18:36:40 -0600 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2021-09-06 18:36:40 -0600 |
| commit | b0374edf7c351d1b11b0c8289630933b75a13102 (patch) | |
| tree | 1525d4b887ab9dce6405fac7b1b2eece624049af /src/core.lisp | |
| parent | 4fa94d3ca9797971787f2a952a69d7317cf2ab80 (diff) | |
ssl SMTP support
Diffstat (limited to 'src/core.lisp')
| -rw-r--r-- | src/core.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/core.lisp b/src/core.lisp index 94df3f4..04c5360 100644 --- a/src/core.lisp +++ b/src/core.lisp @@ -184,7 +184,7 @@ atom of the list is a string that contains one line of the output." (loop for line in (ppcre:split #\Newline output) collect line))) -(defmacro sendmail (mail-server from to subject message &key display-name reply-to html-message authentication attachments) +(defmacro sendmail (mail-server from to subject message &key display-name reply-to html-message authentication ssl attachments) "Wrapper around `cl-smtp:send-email'. `attachments' needs to be a list of `cl-smtp:attachment' objects if non-nil." `(cl-smtp:send-email ,mail-server @@ -192,6 +192,7 @@ list of `cl-smtp:attachment' objects if non-nil." ,to ,subject ,message + ,@(when ssl `(:ssl ,ssl)) ,@(when display-name `(:display-name ,display-name)) ,@(when reply-to `(:reply-to ,reply-to)) ,@(when html-message `(:html-message ,html-message)) |