diff --git a/scripts/send-renewal-notices.plx b/scripts/send-renewal-notices.plx
index cfdb35e..f94605d 100644
--- a/scripts/send-renewal-notices.plx
+++ b/scripts/send-renewal-notices.plx
@@ -50,6 +50,9 @@ foreach my $supporterId (@supporterIds) {
     }
     next;
   }
+  print STDERR "$supporterId skipped since he is not lapsed\n" if ( (not $isLapsed) and $VERBOSE > 1);
+  next if not $isLapsed;
+
   my %emails;
   my $email = $sp->getPreferredEmailAddress($supporterId);
   if (defined $email) {