# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 1002869965 0
# Node ID e87e4a9e6566f5a42606d5ea4457ef675cc71228
# Parent  43a75ca5b9091d7c736ffb5706fa77a2fa30514c
[gaim-migrate @ 2501]
whoops

committer: Tailor Script <tailor@pidgin.im>

diff -r 43a75ca5b909 -r e87e4a9e6566 src/perl.c
--- a/src/perl.c	Fri Oct 12 06:06:40 2001 +0000
+++ b/src/perl.c	Fri Oct 12 06:59:25 2001 +0000
@@ -324,7 +324,6 @@
 	case 2:
 		{
 			struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1));
-			debug_printf("%lu %lu\n", connections->data, gc);
 			if (g_slist_find(connections, gc))
 				XST_mIV(i++, gc->protocol);
 			else
@@ -334,7 +333,6 @@
 	case 3:
 		{
 			struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1));
-			debug_printf("%lu %lu\n", connections->data, gc);
 			if (g_slist_find(connections, gc))
 				XST_mPV(i++, gc->username);
 			else
@@ -344,7 +342,6 @@
 	case 4:
 		{
 			struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1));
-			debug_printf("%lu %lu\n", connections->data, gc);
 			if (g_slist_find(connections, gc))
 				XST_mIV(i++, g_slist_index(aim_users, gc->user));
 			else
@@ -374,7 +371,6 @@
 	case 7:
 		{
 			struct gaim_connection *gc = (struct gaim_connection *)SvIV(ST(1));
-			debug_printf("%lu %lu\n", connections->data, gc);
 			if (g_slist_find(connections, gc))
 				XST_mPV(i++, (*gc->prpl->name)());
 			else
@@ -609,6 +605,7 @@
 	c = find_conversation(nick);
 	if (!c)
 		c = new_conversation(nick);
+	set_convo_gc(c, gc);
 	write_to_conv(c, what, WFLAG_SEND, NULL, time((time_t)NULL));
 	serv_send_im(c->gc, nick, what, isauto ? IM_FLAG_AWAY : 0);
 	XSRETURN(0);