comparison src/perl.c @ 2712:d17c504adc36

[gaim-migrate @ 2725] more perl fixes from Dennis Lambe Jr. (malsyned) committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Tue, 13 Nov 2001 06:36:27 +0000
parents c17afaccaf09
children b1e300a85678
comparison
equal deleted inserted replaced
2711:b7455c506979 2712:d17c504adc36
610 } 610 }
611 c = find_conversation(nick); 611 c = find_conversation(nick);
612 if (!c) 612 if (!c)
613 c = new_conversation(nick); 613 c = new_conversation(nick);
614 set_convo_gc(c, gc); 614 set_convo_gc(c, gc);
615 write_to_conv(c, what, WFLAG_SEND, NULL, time((time_t)NULL)); 615 write_to_conv(c, what, WFLAG_SEND | (isauto ? WFLAG_AUTO : 0), NULL, time((time_t)NULL));
616 serv_send_im(c->gc, nick, what, isauto ? IM_FLAG_AWAY : 0); 616 serv_send_im(c->gc, nick, what, isauto ? IM_FLAG_AWAY : 0);
617 XSRETURN(0); 617 XSRETURN(0);
618 } 618 }
619 619
620 XS (XS_GAIM_print_to_chat) 620 XS (XS_GAIM_print_to_chat)