From 2bdb51aa6cc7a1a1209cb2da5dafac75498bddf8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Apr 2023 09:12:16 +0200 Subject: [PATCH] Try sending. --- src/reminders.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/reminders.scm b/src/reminders.scm index 41dde10..e7da991 100644 --- a/src/reminders.scm +++ b/src/reminders.scm @@ -93,7 +93,9 @@ ;; Actually send emails (define (make+send-reminder-email mr) - (print "SENDING") - (make+print-reminder-email mr)) + (let ((em (make-reminder-email mr))) + (send-mail (ldict-ref em 'body) + #:to "dominik.pantucek@trustica.cz" + #:subject (ldict-ref em 'subject)))) )