use Irssi 20020120.0250 ();
$VERSION = "1.0";
%IRSSI = (
    authors     => 'Daniel De Graaf',
    contact     => 'irssi@dgd.no-ip.com',
    name        => 'noact',
    description => 'test',
    license     => 'GNU GPL',
    url         => 'http://danieldegraaf.afraid.org/info/irssi/',
);

sub out_args {
	Irssi::signal_remove('print text', 'out_args');
	my($dest,$pretty,$ugly) = @_;
	@foo = map "$_:$$dest{$_}", sort keys %$dest;
	print '<'.join(';',@foo).">: $pretty";
	Irssi::signal_add('print text', 'out_args');
}

sub add_no_act {
	Irssi::signal_remove('print text', 'add_no_act');
	my($dest,$pretty,$ugly) = @_;
	if ($pretty =~ s/away/away_/) {
		$$dest{level} = MSGLEVEL_NO_ACT + $$dest{level};
		print "Level $$dest{level}";
		Irssi::signal_stop();
		Irssi::signal_emit('print text',$dest,$pretty,$ugly);
	}
	Irssi::signal_add_first('print text', 'add_no_act');
}

Irssi::signal_add_first('print text', 'add_no_act');
Irssi::signal_add('print text', 'out_args');