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

Optionally limit sending to one user.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 14:37:49 +02:00
parent 9c9386535b
commit 9498350d92
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/hackerbase.scm
View file

@ -315,7 +315,10 @@
(let () (let ()
(print "Notify" (-notify-months-)) (print "Notify" (-notify-months-))
(let loop ((lst nmembers)) (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-) (if (-send-emails-)
(make+send-reminder-email (car lst)) (make+send-reminder-email (car lst))
(make+print-reminder-email (car lst))) (make+print-reminder-email (car lst)))