--- trunk/sender.pl	2005/05/25 15:20:38	53
+++ trunk/sender.pl	2005/06/08 14:26:31	55
@@ -214,6 +214,14 @@
 
 } elsif (defined($list_name = $opt->{'send'})) {
 
+	unless ($opt->{'email_send_driver'}) {
+		print "WARNING: this will dump debugging output to STDERR\n";
+		print "enter alternative driver (e.g. smtp): ";
+		my $d = <STDIN>;
+		chomp($d);
+		$opt->{'email_send_driver'} = $d;
+	}
+
 	$nos->send_queued_messages(
 		list => $list_name,
 		driver => $opt->{'email_send_driver'},