my $file = shift;
$main::mail_addr = "";
- $main::mail_text = "X-Debian: DAK\n";
+ $main::mail_text = "";
$main::mail_subject = $file ? "Processing of $file" : "";
}
my $text = shift;
debug( "Sending mail to $addr" );
- debug( "executing $conf::mail -s '$subject' '$addr'" );
- if (!open( MAIL, "|$conf::mail -s '$subject' '$addr'" )) {
+ debug( "executing $conf::mail -s '$subject' -a 'X-Debian: DAK' '$addr'" );
+ if (!open( MAIL, "|$conf::mail -s '$subject' -a 'X-Debian: DAK' '$addr'" )) {
msg( "log", "Could not open pipe to $conf::mail: $!\n" );
return 0;
}