--- trunk/sender.pl	2005/05/15 17:01:19	18
+++ trunk/sender.pl	2005/05/15 17:04:18	19
@@ -236,13 +236,14 @@
 
 		foreach my $u ($user_list->search(list_id => $m->list_id)) {
 
-			my $hdr = "To: ".$u->user_id->full_name." <". $u->user_id->email. ">\n";
-
 			if ($sent->search( message_id => $m->message_id, user_id => $u->user_id )) {
 				print "SKIP ",$u->user_id->email," message allready sent\n";
 			} else {
 				print "\t",$u->user_id->email,"\n";
 
+				my $hdr = "From: " . $u->list_id->name . " <" . $u->list_id->email . ">\n" .
+					"To: " . $u->user_id->full_name . " <". $u->user_id->email. ">\n";
+
 				# FIXME do real sending :-)
 				send IO => "$hdr\n$msg";