From 9498350d92c1f0d31a95d62836b831fb3617cecf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Apr 2023 14:37:49 +0200 Subject: [PATCH] Optionally limit sending to one user. --- src/hackerbase.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/hackerbase.scm b/src/hackerbase.scm index ba6f750..2eb8d6c 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -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)))