brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Try sending.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 09:12:16 +02:00
parent bb416724db
commit 2bdb51aa6c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/reminders.scm
View file

@ -93,7 +93,9 @@
;; Actually send emails ;; Actually send emails
(define (make+send-reminder-email mr) (define (make+send-reminder-email mr)
(print "SENDING") (let ((em (make-reminder-email mr)))
(make+print-reminder-email mr)) (send-mail (ldict-ref em 'body)
#:to "dominik.pantucek@trustica.cz"
#:subject (ldict-ref em 'subject))))
) )