Prepare summary email action.
This commit is contained in:
parent
863afdc5b4
commit
c5955679db
2 changed files with 10 additions and 0 deletions
|
@ -30,6 +30,8 @@
|
|||
(
|
||||
make+print-reminder-email
|
||||
make+send-reminder-email
|
||||
|
||||
make+print-summary-email
|
||||
)
|
||||
|
||||
(import scheme
|
||||
|
@ -118,4 +120,8 @@
|
|||
(subject . "xxx")
|
||||
(body . ,(summary-email-body mb)))))
|
||||
|
||||
(define (make+print-summary-email mb)
|
||||
(let ((em (make-summary-email mb)))
|
||||
(print-notification-email em)))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue