# /WHOIS all the users who send you a private message.
# for irssi 0.7.98 by Timo Sirainen
use Irssi;

my $lastfrom;

sub msg_private {
  my ($server, $msg, $nick, $address) = @_;

  return if $lastfrom eq $nick;

  $lastfrom = $nick;
  $server->command("whois $nick");
}

Irssi::signal_add('message private', 'msg_private');