X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-submit;h=782bb4dcced3e0aeeb141fa123904426b6a40c7a;hp=43d3fdcf5a7545ecbe49b65205521852eb407970;hb=0bbe2cd392f227450f9096b267db413744e3a0af;hpb=2b4b3458493f6134d91065512a14948e759f8d41

diff --git a/perlmail-submit b/perlmail-submit
index 43d3fdc..782bb4d 100755
--- a/perlmail-submit
+++ b/perlmail-submit
@@ -177,7 +177,7 @@ my($keyword,$interval)=@_;
 	$sec+=$1 while s/(\d+)s//g;
 	die "Interval parse error; left \"$_\", parsed: $interval" if $_ ne "";
 	$sth=$DBI->prepare(($print ? "select id" : "delete")
-			." from $DB_table where time<from_unixtime(unix_timestamp()-$sec)");
+			." from $DB_table where retries is null and time<from_unixtime(unix_timestamp()-$sec)");
 	$sth->execute();
 	if (!$print) {
 		print $sth->rows()."\n";