diff -r 749f11b02abf -r 12f08de92674 plugins/perl/common/Conversation_IM.xs
--- a/plugins/perl/common/Conversation_IM.xs	Sat Sep 27 15:45:49 2003 +0000
+++ b/plugins/perl/common/Conversation_IM.xs	Sat Sep 27 19:17:21 2003 +0000
@@ -30,7 +30,7 @@
 	const char *message
 	int flags
 CODE:
-	gaim_im_write(im, who, message, -1, flags, time(NULL));
+	gaim_im_write(im, who, message, flags, time(NULL));
 
 void
 gaim_im_send(im, message)