From 130d4f80eff0764dc161983d080a6960497d882e Mon Sep 17 00:00:00 2001
From: "ian%hixie.ch" <ian%hixie.ch@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Sat, 9 Aug 2003 13:54:27 +0000
Subject: [PATCH] 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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mozilla/webtools/mozbot/BotModules/Rude.bm b/mozilla/webtools/mozbot/BotModules/Rude.bm
index b74602e3204..047e165a4fc 100644
--- a/mozilla/webtools/mozbot/BotModules/Rude.bm
+++ b/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};