From 4fa94d3ca9797971787f2a952a69d7317cf2ab80 Mon Sep 17 00:00:00 2001
From: ckonstanski <carlos.konstanski@olo.com>
Date: Sun, 4 Jul 2021 23:30:11 -0600
Subject: remove debug which didn't work anyway

---
 src/core.lisp | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/core.lisp')

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))
-- 
cgit v1.3