diff --git a/src/notifications.scm b/src/notifications.scm index 5d6d272..b0b6b30 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -53,7 +53,8 @@ members-print table bank-account - logging) + logging + srfi-1) ;; Prints email to the console (define (print-notification-email em) @@ -78,8 +79,10 @@ (send-mail (ldict-ref em 'body) #:from (*email-from*) #:headers (ldict-ref em 'headers '()) - #:to (list (ldict-ref em 'to) - (ldict-ref em 'cc)) + #:to (filter + identity + (list (ldict-ref em 'to) + (ldict-ref em 'cc #f))) #:subject (ldict-ref em 'subject))) ;; Creates reminder email body