From 9e7012c1852765a259847fc94a7009d088b2e2c3 Mon Sep 17 00:00:00 2001
From: short <>
Date: Fri, 11 Oct 2002 14:02:22 +0000
Subject: [PATCH] Fixed --clean: "retries" was not checked!

---
 perlmail-submit | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
-- 
1.8.3.1