From 3c9a3fe856d59d48b4ffd7c60ed575d420fbd8ba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Apr 2023 09:26:56 +0200 Subject: [PATCH] Different test domain and list sending. --- src/reminders.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/reminders.scm b/src/reminders.scm index e7da991..bed05b0 100644 --- a/src/reminders.scm +++ b/src/reminders.scm @@ -94,8 +94,9 @@ ;; Actually send emails (define (make+send-reminder-email mr) (let ((em (make-reminder-email mr))) + (print "Sending " (ldict-ref em 'subject) " originally to " (ldict-ref em 'to)) (send-mail (ldict-ref em 'body) - #:to "dominik.pantucek@trustica.cz" + #:to "joe@joe.cz" #:subject (ldict-ref em 'subject)))) )