--- trunk/sender.pl	2005/06/21 09:41:22	57
+++ trunk/sender.pl	2005/06/22 12:26:54	61
@@ -13,6 +13,7 @@
 
  sender.pl --new=mylist
  sender.pl --add=mylist members.txt
+ sender.pl --delete=mylist members.txt
  sender.pl --list[=mylist]
  sender.pl --queue[=mylist message.txt]
  sender.pl --send=mylist
@@ -35,6 +36,7 @@
 	"new=s" => \$opt->{'new'},
 	"list:s" => \$opt->{'list'},
 	"add=s" => \$opt->{'add'},
+	"delete=s" => \$opt->{'delete'},
 	"queue:s" => \$opt->{'queue'},
 	"send:s" => \$opt->{'send'},
 	"inbox=s" => \$opt->{'inbox'},
@@ -150,6 +152,28 @@
 	print "list ",$list->name," has $added users\n";
 
 
+=item --delete=list_name
+
+Delete users from list. User e-mails can be stored in file (which can be
+supplied as argument) or read from C<STDIN>.
+
+=cut
+} elsif ($list_name = $opt->{'delete'}) {
+
+	my $list = $nos->_get_list($list_name) || die "can't find list $list_name\n";
+
+	my $deleted = 0;
+
+	while(<>) {
+		chomp;
+		next if (/^#/ || /^\s*$/);
+		my $email = $_;
+		$deleted++ if ($nos->delete_member_from_list( email => $email, list => $list_name ));
+	}
+
+	print "list ",$list->name," lost $deleted users\n";
+
+
 =item --queue[=list_name]
 
 Queue message for later delivery. Message can be read from file (specified as