summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xprocessmail12
1 files changed, 7 insertions, 5 deletions
diff --git a/processmail b/processmail
index b81398680..f2f0f26fc 100755
--- a/processmail
+++ b/processmail
@@ -191,7 +191,7 @@ sub GetBugText {
my $status_whiteboard = "";
if (Param('useqacontact') && $::bug{'qa_contact'} > 0) {
$::bug{'qa_contact'} = DBID_to_name($::bug{'qa_contact'});
- $qa_contact = "QAContact: $::bug{'qa_contact'}\n";
+ $qa_contact = "$::bug{'qa_contact'}\n";
} else {
$::bug{'qa_contact'} = "";
}
@@ -463,10 +463,12 @@ sub NewProcessOneBug {
my $newcomments = GetLongDescriptionAsText($id, $start, $end);
my $count = 0;
- for my $person ($values{'assigned_to'}, $values{'reporter'},
- split(/,/, $values{'cc'}),
- @voterlist,
- @forcecc) {
+ my @personlist = ($values{'assigned_to'}, $values{'reporter'},
+ split(/,/, $values{'cc'}),
+ @voterlist,
+ @forcecc);
+ if ($values{'qa_contact'}) { push @personlist, $values{'qa_contact'} }
+ for my $person (@personlist) {
$count++;
NewProcessOnePerson($person, $count, \@headerlist, \%values,