Bart Schaefer wrote:
>On Sun, 10 Mar 2002, Rob McMillin wrote:
>
>>+ return !($subject cmp uc($subject));
>>
>
>Um, why not:
>
> return ($subject eq uc($subject))
>
>??
>
Sure, if you like:
diff -c
/usr/home/rlm/src/RPMS/BUILD/Mail-SpamAssassin/lib/Mail/SpamAssassin/EvalTests.pm.\~1\~
/usr/home/rlm/src/RPMS/BUILD/Mail-SpamAssassin/lib/Mail/SpamAssassin/EvalTests.pm
***
/usr/home/rlm/src/RPMS/BUILD/Mail-SpamAssassin/lib/Mail/SpamAssassin/EvalTests.pm.~1~
Wed Mar 6 00:29:44 2002
---
/usr/home/rlm/src/RPMS/BUILD/Mail-SpamAssassin/lib/Mail/SpamAssassin/EvalTests.pm
Sun Mar 10 09:01:46 2002
***************
*** 867,872 ****
--- 867,879 ----
return $time;
}
+ sub subject_is_all_caps {
+ my ($self) = @_;
+ my $subject = $self->get('Subject');
+ $subject =~ s/[^a-zA-Z]//;
+ return $subject eq uc($subject);
+ }
+
###########################################################################
# BODY TESTS:
###########################################################################
--
http://www.pricegrabber.com | Dog is my co-pilot.
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk
