my ($dest, $text, $stripped) = @_;
# my ($server, $msg, $nick, $addr, $target) = @_;
my $server = $dest->{server};
my ($dest, $text, $stripped) = @_;
# my ($server, $msg, $nick, $addr, $target) = @_;
my $server = $dest->{server};
- return unless ($dest->{level} & MSGLEVEL_HILIGHT);
+ my $mynick = $server->{nick};
+ return unless ($dest->{level} & MSGLEVEL_HILIGHT)
+ or ($dest->{level} & MSGLEVEL_MSGS && index($stripped, $mynick) != -1 && $stripped !~ /<.?\Q$mynick\E>/);
my $msg = '';
for my $c (split //, $stripped) {
if (ord($c) > 31 && ord($c) < 127) {
my $msg = '';
for my $c (split //, $stripped) {
if (ord($c) > 31 && ord($c) < 127) {
Irssi::settings_add_str('smshi', 'smshi_token', '');
Irssi::settings_add_str('smshi', 'smshi_from', '');
Irssi::settings_add_str('smshi', 'smshi_to', '');
Irssi::settings_add_str('smshi', 'smshi_token', '');
Irssi::settings_add_str('smshi', 'smshi_from', '');
Irssi::settings_add_str('smshi', 'smshi_to', '');
Irssi::signal_add('print text', 'msg');
Irssi::print('%G>>%n '.$IRSSI{name}.' '.$VERSION.' loaded');
Irssi::signal_add('print text', 'msg');
Irssi::print('%G>>%n '.$IRSSI{name}.' '.$VERSION.' loaded');