Optionally limit sending to one user.
This commit is contained in:
parent
9c9386535b
commit
9498350d92
1 changed files with 4 additions and 1 deletions
|
@ -315,7 +315,10 @@
|
|||
(let ()
|
||||
(print "Notify" (-notify-months-))
|
||||
(let loop ((lst nmembers))
|
||||
(when (not (null? lst))
|
||||
(when (and (not (null? lst))
|
||||
(or (not mr)
|
||||
(eq? (member-id mr)
|
||||
(member-id (car lst)))))
|
||||
(if (-send-emails-)
|
||||
(make+send-reminder-email (car lst))
|
||||
(make+print-reminder-email (car lst)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue