From 4f9bdc6d34efcbc7da1268484987a2736b730937 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 11 Mar 2005 17:13:56 +0000
Subject: [PATCH] fix from_DXProt better

---
 perl/Thingy/Ping.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index 60c68078..daed9345 100644
--- a/perl/Thingy/Ping.pm
+++ b/perl/Thingy/Ping.pm
@@ -82,12 +82,13 @@ sub from_DXProt
 	my $thing = ref $_[0] ? shift : $_[0]->SUPER::new(origin=>$main::mycall);
 	my $dxchan = shift;
 	$thing->{DXProt} = shift;
+	shift;						# PC51
 	$thing->{group} = shift;	# to call
 	my $from = shift;
 	$thing->{out} = shift;		# 1 = ping, 0 = pong;
 	$thing->{user} = $dxchan->{call};
 	$thing->{o} = $from unless $from eq $dxchan->{call};
-	$thing->remember if $thing->{out};
+	$thing->remember if $thing->{out} && $thing->{group} ne $main::mycall;
 	return $thing;
 }
 
-- 
2.34.1