diff src/perl.c @ 2231:8c4ff1a368bd

[gaim-migrate @ 2241] blue:~/gaim/app/src/protocols $ ./gtk icq: 0 irc: 0 jabber: 52 msn: 0 napster: 0 oscar: 7 toc: 17 yahoo: 0 zephyr: 1 committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Fri, 07 Sep 2001 08:09:22 +0000
parents b66aca8e8dce
children e243bf60f2d6
line wrap: on
line diff
--- a/src/perl.c	Fri Sep 07 07:30:28 2001 +0000
+++ b/src/perl.c	Fri Sep 07 08:09:22 2001 +0000
@@ -517,7 +517,7 @@
 	if (!c)
 		c = new_conversation(nick);
 	write_to_conv(c, what, WFLAG_SEND, NULL, time((time_t)NULL));
-	serv_send_im(c->gc, nick, what, atoi(isauto));
+	serv_send_im(c->gc, nick, what, atoi(isauto) ? IM_FLAG_AWAY : 0);
 }
 
 XS (XS_GAIM_print_to_chat)