summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xprocessmail4
1 files changed, 1 insertions, 3 deletions
diff --git a/processmail b/processmail
index a51a07667..88c633140 100755
--- a/processmail
+++ b/processmail
@@ -657,7 +657,6 @@ sub getEmailAttributes ($@) {
my ($commentField,@fieldDiffs) = @_;
my (@flags,@uniqueFlags,%alreadySeen) = ();
- my $Status = 0;
foreach my $ref (@fieldDiffs) {
my ($who, $fieldName, $when, $old, $new) = (@$ref);
@@ -671,7 +670,6 @@ sub getEmailAttributes ($@) {
if ($new eq 'RESOLVED' || $new eq 'VERIFIED') {
push (@flags, 'Resolved');
}
- $Status = 1;
}
elsif ( $fieldName eq 'Severity' || $fieldName eq 'Status' ||
$fieldName eq 'Priority' ) {
@@ -686,7 +684,7 @@ sub getEmailAttributes ($@) {
if ( $commentField =~ /Created an attachment \(/ ) {
push (@flags, 'Attachments');
}
- elsif ( $commentField ne '' && !($Status)) {
+ elsif ( ($commentField ne '') && (scalar(@flags) == 1) && ($flags[0] eq 'Resolved')) {
push (@flags, 'Comments');
}