- if ($suppress_ann_to_talk) {
- my ($to, $call) = $text =~ /^\s*([\w-]+)[\s:]+([\w-]+)/;
- return if ($to && $call && ((uc $to =~ /^TO?$/ && is_callsign(uc $call)) || is_callsign($call = uc $to)));
- }
+ if (!$self->{ann_talk} && $to ne $self->{call}) {
+ my $call = AnnTalk::is_talk_candidate($_[0], $text);
+ return if $call;
+ }