diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2021-07-04 23:30:11 -0600 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2021-07-04 23:30:11 -0600 |
| commit | 4fa94d3ca9797971787f2a952a69d7317cf2ab80 (patch) | |
| tree | 06ae17114d4b9ff4abeebaa5357b3b089f50f2d5 /src | |
| parent | d9568fe742130af94c8349d4b52e1ca577b41c9b (diff) | |
remove debug which didn't work anyway
Diffstat (limited to 'src')
| -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)) |