diff options
| -rw-r--r-- | src/core.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/core.lisp b/src/core.lisp index 3f217c5..de884d6 100644 --- a/src/core.lisp +++ b/src/core.lisp @@ -195,7 +195,7 @@ list of `cl-smtp:attachment' objects if non-nil." `(cl-smtp:send-email ,mail-server ,from ,(if *sendmail-debug* *sendmail-debug* to) - ,(if *sendmail-debug* (format nil "DEBUG ~a" subject) subject) + ,subject ,message ,@(when display-name `(:display-name ,display-name)) ,@(when reply-to `(:reply-to ,reply-to)) |