--- trunk/Nos.pm	2005/06/22 16:42:06	63
+++ trunk/Nos.pm	2005/06/29 17:05:30	65
@@ -520,7 +520,7 @@
 			if ($sent->search( message_id => $m->message_id, user_id => $u->user_id )) {
 				print "SKIP $to_email message allready sent\n";
 			} else {
-				print "=> $to_email\n";
+				print "=> $to_email ";
 
 				my $secret = $m->list_id->name . " " . $u->user_id->email . " " . $m->message_id;
 				my $auth = Email::Auth::AddressHash->new( $secret, $self->{'hash_len'} );
@@ -546,18 +546,32 @@
 				$m_obj->header_set('X-Nos-Hash', $hash);
 
 				# really send e-mail
+				my $sent_status;
+
 				if (@email_send_options) {
-					send $email_send_driver => $m_obj->as_string, @email_send_options;
+					$sent_status = send $email_send_driver => $m_obj->as_string, @email_send_options;
 				} else {
-					send $email_send_driver => $m_obj->as_string;
+					$sent_status = send $email_send_driver => $m_obj->as_string;
 				}
 
-				$sent->create({
-					message_id => $m->message_id,
-					user_id => $u->user_id,
-					hash => $hash,
-				});
-				$sent->dbi_commit;
+				croak "can't send e-mail: $sent_status\n\nOriginal e-mail follows:\n".$m_obj->as_string unless ($sent_status);
+				my @bad = @{ $sent_status->prop('bad') };
+				croak "failed sending to ",join(",",@bad) if (@bad);
+
+				if ($sent_status) {
+
+					$sent->create({
+						message_id => $m->message_id,
+						user_id => $u->user_id,
+						hash => $hash,
+					});
+					$sent->dbi_commit;
+
+					print " - $sent_status\n";
+
+				} else {
+					warn "ERROR: $sent_status\n";
+				}
 
 				if ($sleep) {
 					warn "sleeping $sleep seconds\n";