diff options
| -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)) |