From a5b42f8de3d2882755f72d42d9e9092868a61ec1 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 20 Jul 2006 01:10:28 +0000
Subject: [PATCH] don't expose channel data on talks in gtk mode more console
 fixes

---
 gtkconsole/gtkconsole | 2 +-
 perl/DXCommandmode.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index 554d1984..54dcba6b 100755
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -326,7 +326,7 @@ sub handlemsg
 		if (__PACKAGE__->can($handle)) {
 			__PACKAGE__->$handle($list);
 		} else {
-			push @$list, $cmd;
+			unshift @$list, $cmd;
 			__PACKAGE__->handle_def($list);
 		}
 	}
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 52806706..4ec31dee 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -833,7 +833,7 @@ sub talk
 	$line =~ s/\\5E/\^/g;
 	if ($self->{talk}) {
 		if ($self->{gtk}) {
-			$self->local_send('T', dd(['talk',$to,$from,$via,$line,@_]));
+			$self->local_send('T', dd(['talk',$to,$from,$via,$line]));
 		} else {
 			$self->local_send('T', "$to de $from: $line");
 		}
-- 
2.34.1