# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 1005633387 0
# Node ID d17c504adc362d6ee9b84837d730e58dc8afdfe6
# Parent  b7455c506979697504579ddeace76886dae6470e
[gaim-migrate @ 2725]
more perl fixes from Dennis Lambe Jr. (malsyned)

committer: Tailor Script <tailor@pidgin.im>

diff -r b7455c506979 -r d17c504adc36 src/perl.c
--- a/src/perl.c	Tue Nov 13 06:30:37 2001 +0000
+++ b/src/perl.c	Tue Nov 13 06:36:27 2001 +0000
@@ -612,7 +612,7 @@
 	if (!c)
 		c = new_conversation(nick);
 	set_convo_gc(c, gc);
-	write_to_conv(c, what, WFLAG_SEND, NULL, time((time_t)NULL));
+	write_to_conv(c, what, WFLAG_SEND | (isauto ? WFLAG_AUTO : 0), NULL, time((time_t)NULL));
 	serv_send_im(c->gc, nick, what, isauto ? IM_FLAG_AWAY : 0);
 	XSRETURN(0);
 }