use warnings;
use strict;
-use locale;
use POSIX qw(strftime locale_h);
setlocale(LC_TIME, "C");
use Scalar::Util qw(looks_like_number);
-use List::Util qw(first);
+use List::AllUtils qw(first);
use Mail::RFC822::Address;
use Encode qw(decode encode);
$temp_transcript = decode("utf8",$temp_transcript,Encode::FB_CROAK);
};
my $reply =
- create_mime_message([From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ create_mime_message([From => qq("$gProject $gBug Tracking System" <$gMaintainerEmail>),
To => $replyto,
@maintccs ? (Cc => join(', ',@maintccs)):(),
Subject => "Processed${error_text}: $header{subject}",
close(D);
print {$transcript} "Sending $description in separate message.\n";
&sendmailmessage(<<END.$doc,$replyto);
-From: $gMaintainerEmail ($gProject $gBug Tracking System)
+From: "$gProject $gBug Tracking System" <$gMaintainerEmail>
To: $replyto
Subject: $gProject $gBug help: $description
References: $header{'message-id'}
} else {
print {$transcript} "Sending $description.\n";
&sendmailmessage(<<END.$doc,$replyto);
-From: $gMaintainerEmail ($gProject $gBug Tracking System)
+From: "$gProject $gBug Tracking System" <$gMaintainerEmail>
To: $replyto
Subject: $gProject $gBugs information: $description
References: $header{'message-id'}
}
print {$transcript} "Sending $description.\n";
&sendmailmessage(<<END.$doc,$replyto);
-From: $gMaintainerEmail ($gProject $gBug Tracking System)
+From: "$gProject $gBug Tracking System" <$gMaintainerEmail>
To: $replyto
Subject: $gProject $gBugs information: $description
References: $header{'message-id'}