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)))