Update of /cvsroot/gaim/gaim/src
In directory usw-pr-cvs1:/tmp/cvs-serv19429
Modified Files:
perl.c
Log Message:
whoops
Index: perl.c
===================================================================
RCS file: /cvsroot/gaim/gaim/src/perl.c,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- perl.c 2001/09/30 19:58:48 1.59
+++ perl.c 2001/10/12 06:59:25 1.60
@@ -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);
|
