Prepare for sending emails.
This commit is contained in:
parent
1eb93de083
commit
3e94f022bd
2 changed files with 10 additions and 1 deletions
|
@ -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."))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue