X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=6986a41aa60b1d8188dbc06d7ce4715a32eb35c1;hb=428e91daacae4fddcabc7e6279c1fbd40edbbe91;hp=18367bdfa76982c2b207cdc27b77b5bf1f75ba83;hpb=66ff43a4977e5877448981a7e3674a5c52b214ed;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 18367bdf..6986a41a 100644
--- 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}) {