use warnings;
use strict;
-use locale;
use POSIX qw(strftime locale_h);
setlocale(LC_TIME, "C");
$_ = $hdr;
s/\n\s/ /g;
finish() if m/^x-loop: (\S+)$/i && $1 eq "$gMaintainerEmail";
- my $ins = !m/^(?:(?:subject|reply-to|return-path|mail-followup-to):
+ my $ins = !m/^(?:(?:subject|reply-to|return-path|
+ mail-followup-to|
+ references):
|From\s|X-Debbugs-)/xi;
$fwd .= encode_utf8($hdr)."\n" if $ins;
# print {$debugfh} ">$_<\n";
$ref= $tryref;
} else {
&sendmessage(create_mime_message(
- [From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ [From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => $replyto,
Subject => "Unknown problem report $gBug#$tryref ($subject)",
'Message-ID' => "<handler.x.$nn.unknown\@$gEmailDomain>",
}
if ($ref<0) {
&sendmessage(create_mime_message(
- [From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ [From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => $replyto,
Subject => "Message with no $gBug number ignored by $receivedat ($subject)",
'Message-ID' => "<handler.x.$nn.warnignore\@$gEmailDomain>",
&htmllog("Reply","sent",$replyto,"You have marked $gBug as forwarded.");
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => "$replyto",
Subject => "$gBug#$ref: marked as forwarded ($data->{subject})",
"Message-ID" => "<header.$ref.$nn.ackfwdd\@$gEmailDomain>",
&htmllog("Reply","sent",$replyto,"You have taken responsibility.");
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => $replyto,
Subject => "$gBug#$ref: marked as done ($data->{subject})",
"Message-ID" => "<handler.$ref.$nn.ackdone\@$gEmailDomain>",
"$gBug acknowledged by developer.");
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => "$data->{originator}",
Subject => "$gBug#$ref closed by $markedby ($header{'subject'})",
"Message-ID" => "<handler.$ref.$nn.notifdone\@$gEmailDomain>",
if ($codeletter eq 'U') { # -submitter
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => $replyto,
Subject => "Message with no $gBug number cannot be sent to submitter! ($subject)",
'Message-ID' => "<handler.x.$nn.nonumnosub\@$gEmailDomain>",
);
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => $replyto,
Subject => "Message with no Package: tag cannot be processed! ($subject)",
"Message-ID" => "<handler.x.$nn.nonumnosub\@$gEmailDomain>",
$resentcc= "Resent-CC: $resentccval\n";
}
+my $referencesval = join(' ',grep {defined $_} $header{'references'},$data->{msgid});
+my $references = '';
+if (!$newref && length($referencesval)) {
+ $references = "References: $referencesval\n";
+}
+
my $common_headers='';
{
my @tmp = @common_headers;
X-$gProject-PR-Message: report $ref
X-$gProject-PR-Package: $data->{package}
X-$gProject-PR-Keywords: $data->{keywords}
-${source_pr_header}
+${references}${source_pr_header}
END
chomp $enc_msg;
$enc_msg = encode_utf8($enc_msg).$fwd."\n";
X-$gProject-PR-Message: $report_followup $ref
X-$gProject-PR-Package: $data->{package}
X-$gProject-PR-Keywords: $data->{keywords}
-${source_pr_header}
+${references}${source_pr_header}
END
chomp $enc_msg;
$enc_msg = encode_utf8($enc_msg).$fwd."\n";
${common_headers}X-$gProject-PR-Message: $report_followup $ref
X-$gProject-PR-Package: $data->{package}
X-$gProject-PR-Keywords: $data->{keywords}
-${source_pr_header}
+${references}${source_pr_header}
END
chomp $enc_msg;
$enc_msg = encode_utf8($enc_msg).$fwd."\n";
);
&sendmessage(create_mime_message(
[@common_headers,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => $replyto,
Subject => $t_h{subject},
"Message-ID" => $t_h{messageid},
my $error_text = $errors > 0 ? " (with $errors error" . ($errors > 1 ? "s" : "") . ")" : "";
my $reply =
create_mime_message(['X-Loop' => $gMaintainerEmail,
- From => "$gMaintainerEmail ($gProject $gBug Tracking System)",
+ From => qq("$gProject $gBug Tracking System" <$gMaintainer>),
To => $replyto,
@maintccs ? (Cc => join(', ',@maintccs)):(),
Subject => "Processed${error_text}: $header{subject}",