From af0e6bdd59291e0fb872660f261ad720288068b5 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 22 Aug 2000 22:18:40 +0000
Subject: [PATCH] slight change to the checking for announces

---
 perl/AnnTalk.pm | 2 +-
 perl/DXProt.pm  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index a6032363..911c2724 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -28,7 +28,7 @@ sub dup
 	chomp $text;
 	unpad($text);
 	$text = substr($text, 0, $duplth) if length $text > $duplth; 
-	my $dupkey = "$call|$to|$text";
+	my $dupkey = "$to|$text";
 	return 1 if exists $dup{$dupkey};
 	$dup{$dupkey} = $d;         # in seconds (to the nearest minute)
 	return 0; 
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2e22bc91..09708332 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -53,7 +53,7 @@ $baddxfn = "$main::data/baddx.pl";
 (
  [ qw(c c m p bc c) ],			# pc10
  [ qw(f m d t m c c h) ],		# pc11
- [ qw(c bc m bp c p h) ],		# pc12
+ [ qw(c bc m bp bm p h) ],		# pc12
  [ qw(c h) ],					# 
  [ qw(c h) ],					# 
  [ qw(c m h) ],					# 
-- 
2.34.1