This block in adddelays is superfluous:

    my %hash = map { $_, 1 } @nicks;
     @nicks = keys %hash;
     if (keys %delaylist) {
         my @isect = ();
         map { $hash{$_} = 1 } keys %delaylist;
         @isect = grep { $hash{$_} } @nicks;
         if (@isect) {
 #            removedelays(@isect);
         }
     }
[download]

It probably was supposed to remove those messages, which later would be overwritten anyway, so it was superfluous from the very beginning...