error in read_mail_header / mhamain.pl

I think there is an error in mhamain.pl (missing brackets). I had to
include additional brackets as follows, in order to get the
-nochecknoarchive flag working.

[uderzo64]% !dif
diff mhamain.pl mhamain.pl.~1~
705,709c705,709
<          ((defined($fields->{'restrict'}) &&
<            grep { /no-external-archive/i } @{$fields->{'restrict'}}) ||
<           (defined($fields->{'x-no-archive'}) &&
<            grep { /yes/i } @{$fields->{'x-no-archive'}}) ) ){
<       return undef;
---
>        (defined($fields->{'restrict'}) &&
>         grep { /no-external-archive/i } @{$fields->{'restrict'}}) ||
>        (defined($fields->{'x-no-archive'}) &&
>         grep { /yes/i } @{$fields->{'x-no-archive'}}) ) {
>       return undef;
[uderzo65]% 

Wolfgang