diff options
| -rw-r--r-- | src/core.lisp | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/core.lisp b/src/core.lisp index de884d6..94df3f4 100644 --- a/src/core.lisp +++ b/src/core.lisp @@ -8,11 +8,6 @@ (require :sb-introspect) -(defvar *sendmail-debug* nil - "If non-`nil', email will be sent to the address contained in this -variable instead of the recipient supplied in the call to -`sendmail'.") - ;; needed for html.lisp (defmacro with-gensyms (syms &body body) `(let ,(mapcar (lambda (s) @@ -194,7 +189,7 @@ atom of the list is a string that contains one line of the output." list of `cl-smtp:attachment' objects if non-nil." `(cl-smtp:send-email ,mail-server ,from - ,(if *sendmail-debug* *sendmail-debug* to) + ,to ,subject ,message ,@(when display-name `(:display-name ,display-name)) |