Make mozbot slightly more willing to insult people (won't help much since the servers are down, but oh well)

git-svn-id: svn://10.0.0.236/trunk@145813 18797224-902f-48f8-a5cc-f745e15eee43

mozilla/webtools/mozbot/BotModules/Rude.bm

@@ -42,7 +42,7 @@ sub RegisterConfig {
 sub Told {
     my $self = shift;
     my ($event, $message) = @_;
-    if ($message =~ /^\s*insult\s+(\S+?)\s*$/osi) {
+    if ($message =~ /^\s*(?:will\s+you\s+)?(?:insult|harass)\s+(\S+?)(?:[\s,.]+please)?[\s.?!]*$/osi) {
         my $line;
         if (defined($self->{'insultOverrides'}->{lc $1})) {
             $line = "$1: ".$self->{'insultOverrides'}->{lc $1};