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

When printing emails use default configured mailto if no specific from is there.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-19 20:12:56 +02:00
parent 4ce6d85ce5
commit 5ce09dda5b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/notifications.scm
View file

@ -56,7 +56,7 @@
;; Prints email to the console ;; Prints email to the console
(define (print-notification-email em) (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 "### To: " (ldict-ref em 'to))
(print "### Subject: " (ldict-ref em 'subject)) (print "### Subject: " (ldict-ref em 'subject))
(let loop ((lines (ldict-ref em 'body))) (let loop ((lines (ldict-ref em 'body)))