From 5ce09dda5b0f9bd90974de1f33e6762d96f70724 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 19 Apr 2023 20:12:56 +0200 Subject: [PATCH] When printing emails use default configured mailto if no specific from is there. --- src/notifications.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/notifications.scm b/src/notifications.scm index 31c9884..25387dd 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -56,7 +56,7 @@ ;; Prints email to the console (define (print-notification-email em) - (print "### From: " (ldict-ref em 'from "-")) + (print "### From: " (ldict-ref em 'from (*email-from*))) (print "### To: " (ldict-ref em 'to)) (print "### Subject: " (ldict-ref em 'subject)) (let loop ((lines (ldict-ref em 'body)))