# checks if poster needs acknowledgment of receipt
#
sub checkAck {
- if( &nameIsInListExactly( $From, "noack.list" ) ) {
+ my $fromaddr = $From;
+ $fromaddr =~ s/^[-A-Za-z]+\s*\:\s*//;
+ print STDERR "checking noack.list for \"$From|$fromaddr\"\n";
+ if( &nameIsInListExactly( $fromaddr, "noack.list" ) ) {
$needAck = "no";
} else {
$needAck = "yes";
return 1 if( $header =~ /^Supersedes:/i );
return 1 if( $header =~ /^Precedence:/i );
return 1 if( $header =~ /^Apparently-To:/i );
- return 1 if( $header =~ /^Date:/i );
return 1 if( $header =~ /^Expires:/i );
return 1 if( $header =~ /^Distribution:/i );
return 1 if( $header =~ /^Path:/i );