diff src/perl.c @ 3033:1143524a2eaf

[gaim-migrate @ 3046] Laying the ground work for image send. Also an IRC fix. committer: Tailor Script <tailor@pidgin.im>
author Sean Egan <seanegan@gmail.com>
date Tue, 12 Mar 2002 17:21:46 +0000
parents b1e300a85678
children 2433056e9dab
line wrap: on
line diff
--- a/src/perl.c	Tue Mar 12 02:44:22 2002 +0000
+++ b/src/perl.c	Tue Mar 12 17:21:46 2002 +0000
@@ -586,7 +586,7 @@
 		XSRETURN(0);
 		return;
 	}
-	serv_send_im(gc, nick, what, isauto);
+	serv_send_im(gc, nick, what, -1, isauto);
 	XSRETURN(0);
 }
 
@@ -613,7 +613,7 @@
 		c = new_conversation(nick);
 	set_convo_gc(c, gc);
 	write_to_conv(c, what, WFLAG_SEND | (isauto ? WFLAG_AUTO : 0), NULL, time(NULL), -1);
-	serv_send_im(c->gc, nick, what, isauto ? IM_FLAG_AWAY : 0);
+	serv_send_im(c->gc, nick, what, -1, isauto ? IM_FLAG_AWAY : 0);
 	XSRETURN(0);
 }