Account for 'ae' as well a 'a'

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@19 088b83a4-0077-4247-935c-42ec02c2848b

diff --git a/irc.pl b/irc.pl
index f183736..0d117c8 100644 (file)
--- a/irc.pl
+++ b/irc.pl
@@ -161,7 +161,7 @@ sub on_public {
        my $nick = $self->{ "nick" };
        $who = (split( /!/, $who, 2 ))[0];
        $msg =~ s/^$nick[ ,:]+/~/i;
-       if( $who eq "a" ) {
+       if( $who eq "a" || $who eq "ae" ) {
                # Strip source tag
                $msg =~ s/^\[[^\]]*\] +//g;