allow 't <call>' for swopping from announces as well

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 18367bdfa76982c2b207cdc27b77b5bf1f75ba83..6986a41aa60b1d8188dbc06d7ce4715a32eb35c1 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -707,7 +707,7 @@ sub announce
 
        if ($suppress_ann_to_talk) {
                my ($to, $call) = $text =~ /^\s*([\w-]+)[\s:]+([\w-]+)/;
-               return if ($to && $call && ((uc $to eq 'TO' && is_callsign(uc $call)) || is_callsign($call = uc $to)));
+               return if ($to && $call && ((uc $to =~ /^TO?$/ && is_callsign(uc $call)) || is_callsign($call = uc $to)));
        }       
 
        if ($self->{annfilter}) {