Charlie Watts wrote:
>On Sat, 9 Mar 2002, Rob McMillin wrote:
>
>><sheepish>
>>s/b
>>
>> return $subject cmp uc($subject);
>>
>></sheepish>
>>
>
>'s OK, I'll share my prize with you. Everybody goes home a winner here at
>"The Regex is Right!"
>
Okay, so here's my mods:
cd ~/src/RPMS/BUILD/Mail-SpamAssassin/lib/Mail/SpamAssassin/
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 00:02:42 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 cmp uc($subject));
+ }
+
###########################################################################
# BODY TESTS:
###########################################################################
Diff finished at Sun Mar 10 00:04:19
=====================================
and
=====================================
header SUBJ_ALL_CAPS eval:subject_is_all_caps
describe SUBJ_ALL_CAPS SUBJECT TEXT IS ALL CAPS
score SUBJ_ALL_CAPS 2
--
http://www.pricegrabber.com | Dog is my co-pilot.
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk
