25a26,33
> $checksub = 1;
> $checkfrom = 1;
> $checkreply = 1;
> $checkng = 1;
> $checkarc = 1;
> $checkmiss = 1;
> $checkfreq = 1;
> $valid = 1;
33,35c41,45
< $usage = "Usage: $0 [ -new ... ] [ -nocache ] [ -noread ] [ -nosave ]
< 	[ -nosort ] [ -noreformat ] [ -nodelete ] [ -report ] [
< 	-repfile filename ] [ -mail ] [ -prompt ] [ -start num ] [
---
> $usage = "Usage: $0 [ -new ... ] [ -days num ] [ -nocache ] [ -noread ] 
>         [ -nosave ] [ -nosort ] [ -noreformat ] [ -nodelete ] [ -report ] 
>         [ -nochecksub ] [ -nocheckfrom ] [ -nocheckreply ] [ - nocheckng ]
>         [ -nocheckarc ] [ -nocheckmiss ] [ -nocheckfreq ] [ -novalid ]
>         [ -repfile filename ] [ -mail ] [ -prompt ] [ -start num ] [
44a55,59
>     elsif (/^-days$/) {
>         (@ARGV > 0) || die "Missing argument to \"-days\".\n$usage";
>         $new += shift;
>         next;
>     }
68a84,115
>     elsif (/^-nochecksub$/) {
> 	$checksub = undef;
> 	next;
>     }
>     elsif (/^-nocheckfrom$/) {
> 	$checkfrom = undef;
> 	next;
>     }
>     elsif (/^-nocheckreply$/) {
> 	$checkreply = undef;
> 	next;
>     }
>     elsif (/^-nocheckng$/) {
> 	$checkng = undef;
> 	next;
>     }
>     elsif (/^-nocheckarc$/) {
> 	$checkarc = undef;
> 	next;
>     }
>     elsif (/^-nocheckmiss$/) {
> 	$checkmiss = undef;
> 	next;
>     }
>     elsif (/^-nocheckfreq$/) {
> 	$checkfreq = undef;
> 	next;
>     }
>     elsif (/^-novalid$/) {
> 	$valid = undef;
> 	next;
>     }
463a511
>             $checkfreq &&
472a521
>              $checkreply && 
489c538,541
< 	if (($f ne $f2) && !&lopip'is_valid($records[$num], "From")) {
---
> 	if (($f ne $f2) && 
>             $checkfrom &&  
>             (&namestrip($f) ne &namestrip($f2)) && 
>             !&lopip'is_valid($records[$num], "From")) {
501c553,554
< 	if (($n ne $n2) && !&lopip'is_valid($records[$num], "Newsgroups")) {
---
> 	if (($n ne $n2) && 
>             $checkng && !&lopip'is_valid($records[$num], "Newsgroups")) {
514c567
< 	if (!&matches_oneof($s2, @s_regexp) &&
---
> 	if (!&matches_oneof($s2, @s_regexp) && $checksub && 
525a579
>         $checkarc && 
565c619
< 	print PROMPTOUT "Replace \"$old\" with \"$new\" in\n$records[$number]\n? ";
---
> 	print PROMPTOUT "Replace \"$old\" \nwith \"$new\" in\n$records[$number]\n? ";
586c640
< 	else {
---
> 	elsif ($valid) {
633a688,690
>     elsif ($do =~ /^Q$/) {
>         $signal_received++;        
>     }
651,652c708,711
<     print PROMPTOUT "Mark it valid (actually, this prompt is a placebo to make this look like\nall the other times you're prompted for stuff)? ";
<     $do = <PROMPTIN>;
---
>     if ($valid) {
>         print PROMPTOUT "Mark it valid (actually, this prompt is a placebo to make this look like\nall the other times you're prompted for stuff)? ";
>         $do = <PROMPTIN>;
>     }
695c754
< posting archive on rtfm.mit.edu [18.181.0.24], which is
---
> posting archive on rtfm.mit.edu [18.172.1.27], which is
1349a1409,1425
> 
> sub namestrip {
>     local($raw) = @_;
>     local ($clean);
> 
>     $clean = $raw;
>     $clean =~ s/\(.*\(.*\).*\)//;
>     $clean =~ s/\(.*\)//;
>     $clean =~ s/^.*\<//;
>     $clean =~ s/\>.*$//;
>     $clean =~ s/^ //g;
>     $clean =~ s/ $//g;
>     $clean =~ tr/A-Z/a-z/;
>     
>     return $clean;
> }
>