move next on seen msg_id to the right location in bugreport.cgi

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 88e251f14a6ec11700aa5bc4aec5af070a3c33ba..83e9b12a2573cc0928b8019793c80ddd7cae76d4 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -536,10 +536,10 @@ END
          my $record_wanted_anyway = 0;
          my ($msg_id) = $record->{text} =~ /^Message-Id:\s+<(.+)>/im;
          next if exists $seen_message_ids{$msg_id};
-         $seen_message_ids{$msg_id} = 1;
          next if $msg_id =~/handler\..+\.ack(?:info|done)?\@/;
-         $record_wanted_anyway = 1 if $record->{text} =~ /^Received: \(at control|submit\)/;
+         $record_wanted_anyway = 1 if $record->{text} =~ /^Received: \(at control\)/;
          next if not $boring and not $record->{type} eq $wanted_type and not $record_wanted_anyway and @records > 1;
+         $seen_message_ids{$msg_id} = 1;
          my @lines = split( "\n", $record->{text}, -1 );
          if ( $lines[ 1 ] =~ m/^From / ) {
               my $tmp = $lines[ 0 ];