Prepare for sending emails.

This commit is contained in:
Dominik Pantůček 2023-04-19 13:41:42 +02:00
parent 1eb93de083
commit 3e94f022bd
2 changed files with 10 additions and 1 deletions

View file

@ -342,7 +342,9 @@
(print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys)))))))
((summary)
(make+print-summary-email MB))
(if (-send-emails-)
(make+send-summary-email MB)
(make+print-summary-email MB)))
(else
(print "Nothing to do."))