--- trunk/sender.pl	2005/05/24 15:19:44	48
+++ trunk/sender.pl	2005/05/24 16:44:34	49
@@ -20,7 +20,6 @@
 In C</etc/aliases> something like:
 
  mylist: "| cd /path/to && ./sender.pl --inbox=mylist"
- mylist-bounce: "| cd /path/to && ./sender.pl --inbox=mylist --bounce"
 
 =head2 Command options
 
@@ -43,7 +42,7 @@
 	"verbose" => \$verbose,
 	"from=s" => \$opt->{'from'},
 	"driver=s" => \$opt->{'email_send_driver'},
-	"bounce" => \$opt->{'bounce'},
+	"sleep=i" => \$opt->{'sleep'},
 );
 
 my $nos = new Nos(
@@ -210,20 +209,24 @@
 Optional argument C<--driver=smtp> forces sending using SMTP server at
 localhost (127.0.0.1).
 
+Optional argument C<--sleep=42> defines that sender will sleep 42 seconds
+between sending e-mail.
+
 =cut
 
 } elsif (defined($list_name = $opt->{'send'})) {
 
-	$nos->send_queued_messages($list_name, $opt->{'email_send_driver'});
+	$nos->send_queued_messages(
+		list => $list_name,
+		driver => $opt->{'email_send_driver'},
+		sleep => $opt->{'sleep'},
+	);
 
 
 =item --inbox=list_name
 
 Feed incomming message back into notice sender.
 
-Optional argument C<--bounce> define that this message is received to
-bounce address.
-
 =cut
 
 } elsif ($list_name = $opt->{'inbox'}) {
@@ -236,7 +239,6 @@
 	$nos->inbox_message(
 		list => $list_name,
 		message => $message,
-		bounce => $opt->{'bounce'},
 	) || die "can't receive message for list $list_name";