Someone

use strict;
use Irssi qw(signal_add signal_emit);
sub from {
  my ($server, $msg, $nick, $address, $target) = @_;
  Irssi::signal_emit("message public", $server, $msg, $nick, $address, $target);
}
Irssi::signal_add('message public', 'from');