--- ../../biomail-0_70/BioMail/Mails.pm	Wed Dec  5 23:27:33 2001
+++ Mails.pm	Fri Sep  6 14:57:12 2002
@@ -537,7 +537,7 @@
 			"Content-Type: $content_type_main",);
 
 	#Sending mail by using Net::SMTP class
-	my $mailer=Net::SMTP->new($SMTPSERVER) or die "Unable to connect to mail server: $@";
+	my $mailer=Net::SMTP->new($SMTPSERVER, Debug => 1) or die "Unable to connect to mail server: $@";
 	$@='';
 
 	if ($self->{"_format"}=~/attachment/) {
@@ -569,7 +569,7 @@
 ENDB
 		my $end_body="\n\n--$boundary--\n";
 		eval {
-			$mailer->mail("BioMail <$admin>");
+			$mailer->mail($admin);
 			$mailer->to($mail);
 			$mailer->data();
 			$mailer->datasend("$mail_header\n\n");
@@ -582,7 +582,7 @@
 	}
 	else {
 		eval {
-			$mailer->mail("BioMail <$admin>");
+			$mailer->mail($admin);
 			$mailer->to($mail);
 			$mailer->data();
 			$mailer->datasend("$mail_header\n\n");
@@ -852,7 +852,7 @@
 my $mailer=Net::SMTP->new($SMTPSERVER) or die "Unable to connect to mail server: $@\n";
 $@='';
 eval {
-	$mailer->mail("BioMail <$admin>");
+	$mailer->mail($admin);
 	$mailer->to($mail, $admin);
 	$mailer->data();
 	$mailer->datasend("$mail_header\n\n");