--- trunk/sender.pl	2005/05/15 22:30:54	24
+++ trunk/sender.pl	2005/05/16 20:58:44	29
@@ -16,6 +16,10 @@
  sender.pl --queue[=mylist message.txt]
  sender.pl --send=mylist
 
+In C</etc/aliases> something like:
+
+ mylist: "| /path/to/sender.pl --inbox=mylist"
+
 =head2 Command options
 
 =over 20
@@ -29,12 +33,14 @@
 my $queue_opt;
 my $send_opt;
 my $email_opt;
+my $inbox_opt;
 
 my $result = GetOptions(
 	"list:s" => \$list_opt,
 	"add=s" => \$add_opt,
 	"queue:s" => \$queue_opt,
 	"send:s" => \$send_opt,
+	"inbox=s" => \$inbox_opt,
 	"debug"	=> \$debug,
 	"verbose" => \$verbose,
 	"email=s" => \$email_opt,
@@ -145,7 +151,7 @@
 			$message_text .= $_;
 		}
 
-		my $id = $nos->add_message_to_queue(
+		my $id = $nos->add_message_to_list(
 			list => $queue_opt,
 			message => $message_text,
 		);
@@ -184,6 +190,16 @@
 
 	$nos->send_queued_messages($send_opt);
 
+=item --inbox=list_name
+
+Feed incomming message back into notice sender.
+
+=cut
+
+} elsif ($inbox_opt) {
+
+	warn "inbox option is not implemented";
+
 } else  {
 	die "see perldoc $0 for help";
 }