error in read_mail_header / mhamain.pl

[Wolfgang Nejdl <nejdl@irb.uni-hannover.de>]

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