--- trunk/sender.pl	2005/05/16 21:54:41	30
+++ trunk/sender.pl	2005/05/17 11:09:08	33
@@ -83,12 +83,12 @@
 
 	die "need e-mail address for list (as argument or on STDIN)\n" unless ($email);
 
-	my $l = $nos->_get_list($list_name) || $nos->_add_list(
+	my $id = $nos->new_list(
 		list => $list_name,
 		email => $email,
 	) || die "can't add list $list_name\n";
 
-	print "added list $list_name with ID ",$l->id,"\n";
+	print "added list $list_name with ID $id\n";
 
 
 =item --list[=list_name]
@@ -173,7 +173,7 @@
 		my $id = $nos->add_message_to_list(
 			list => $list_name,
 			message => $message_text,
-		);
+		) || die "can't add message to list $list_name\n";
 
 		print "added message $id to list $list_name\n";