--- trunk/sender.pl 2005/05/25 15:02:12 51 +++ trunk/sender.pl 2005/05/25 15:20:38 53 @@ -117,7 +117,7 @@ } foreach my $list (@lists) { - print $list->name," <",$list->email,">\n"; + print $list->name,": ",$list->from_addr," <",$list->email,">\n"; foreach my $u ($nos->list_members( list => $list->name )) { print "\t",$u->{'name'}, " <", $u->{'email'}, ">\n"; }