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

Fix CC.

Browse source
This commit is contained in:
Dominik Pantůček 2023-10-17 19:19:58 +02:00
parent 8a3b9f0b10
commit f2b7384ff6
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/notifications.scm
View file

@ -53,7 +53,8 @@
members-print members-print
table table
bank-account bank-account
logging) logging
srfi-1)
;; Prints email to the console ;; Prints email to the console
(define (print-notification-email em) (define (print-notification-email em)
@ -78,8 +79,10 @@
(send-mail (ldict-ref em 'body) (send-mail (ldict-ref em 'body)
#:from (*email-from*) #:from (*email-from*)
#:headers (ldict-ref em 'headers '()) #:headers (ldict-ref em 'headers '())
#:to (list (ldict-ref em 'to) #:to (filter
(ldict-ref em 'cc)) identity
(list (ldict-ref em 'to)
(ldict-ref em 'cc #f)))
#:subject (ldict-ref em 'subject))) #:subject (ldict-ref em 'subject)))
;; Creates reminder email body ;; Creates reminder email body