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

Different test domain and list sending.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 09:26:56 +02:00
parent fd5ef664d8
commit 3c9a3fe856
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/reminders.scm
View file

@ -94,8 +94,9 @@
;; Actually send emails ;; Actually send emails
(define (make+send-reminder-email mr) (define (make+send-reminder-email mr)
(let ((em (make-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) (send-mail (ldict-ref em 'body)
#:to "dominik.pantucek@trustica.cz" #:to "joe@joe.cz"
#:subject (ldict-ref em 'subject)))) #:subject (ldict-ref em 'subject))))
) )