From f2b7384ff601b3ad921a44def767597447d7af57 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 17 Oct 2023 19:19:58 +0200
Subject: [PATCH] Fix CC.

---
 src/notifications.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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