mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib mhamain.pl,2.48,2.49

2002-10-18 09:58:21
Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv12394

Modified Files:
	mhamain.pl 
Log Message:
Bug #1404: Warning message of possible malformed received header has
    been disabled.  This is to avoid bogus warnings for received headers
    that have semi-colons in a comment token.  Supressing the warning is
    more efficient performance-wise than adding full RFC 822 parsing.
    A warning is still generated if MHonArc is unable to determine the
    date of a message.


Index: mhamain.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhamain.pl,v
retrieving revision 2.48
retrieving revision 2.49
diff -C2 -r2.48 -r2.49
*** mhamain.pl	15 Oct 2002 22:18:54 -0000	2.48
--- mhamain.pl	18 Oct 2002 16:58:15 -0000	2.49
***************
*** 790,798 ****
  	if ($field eq 'received') {
  	    @array = split(/;/, $value);
! 	    if ((scalar(@array) <= 1) || (scalar(@array) > 2)) {
! 		warn qq/\nWarning: Received header field looks improper:\n/,
! 		       qq/         Received: $value\n/,
! 		       qq/         Message-Id: <$msgid>\n/;
! 	    }
  	    $date = pop @array;
  	## Any other field should just be a date
--- 790,798 ----
  	if ($field eq 'received') {
  	    @array = split(/;/, $value);
! #	    if ((scalar(@array) <= 1) || (scalar(@array) > 2)) {
! #		warn qq/\nWarning: Received header field looks improper:\n/,
! #		       qq/         Received: $value\n/,
! #		       qq/         Message-Id: <$msgid>\n/;
! #	    }
  	    $date = pop @array;
  	## Any other field should just be a date

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV