# HG changeset patch
# User Daniel Atallah <daniel.atallah@gmail.com>
# Date 1298865158 0
# Node ID 3ff4467e4b461c8ac3a10d5c2ea46a520e7c1982
# Parent  531bcead5652355050606cb4f3ece49123557a87
Add some missing Perl conversation functions

diff -r 531bcead5652 -r 3ff4467e4b46 ChangeLog.API
--- a/ChangeLog.API	Thu Feb 24 18:02:21 2011 +0000
+++ b/ChangeLog.API	Mon Feb 28 03:52:38 2011 +0000
@@ -1,6 +1,11 @@
 Pidgin and Finch: The Pimpin' Penguin IM Clients That're Good for the Soul
 
 version 2.7.11 (??/??/????):
+	* Perl:
+		Added:
+		* Purple::find_conversation_with_account
+		* Purple::Conversation::Chat::send_with_flags
+		* Purple::Conversation::IM::send_with_flags
 
 version 2.7.10 (02/06/2011):
 	* No changes
diff -r 531bcead5652 -r 3ff4467e4b46 libpurple/plugins/perl/common/Conversation.xs
--- a/libpurple/plugins/perl/common/Conversation.xs	Thu Feb 24 18:02:21 2011 +0000
+++ b/libpurple/plugins/perl/common/Conversation.xs	Mon Feb 28 03:52:38 2011 +0000
@@ -118,6 +118,12 @@
 		XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Conversation")));
 	}
 
+Purple::Conversation
+purple_find_conversation_with_account(type, name, account)
+	Purple::ConversationType type
+	const char *name
+	Purple::Account account
+
 MODULE = Purple::Conversation  PACKAGE = Purple::Conversations  PREFIX = purple_conversations_
 PROTOTYPES: ENABLE
 
@@ -297,6 +303,12 @@
 	const char *message
 
 void
+purple_conv_im_send_with_flags(im, message, flags)
+	Purple::Conversation::IM im
+	const char *message
+	Purple::MessageFlags flags
+
+void
 purple_conv_im_write(im, who, message, flags, mtime)
 	Purple::Conversation::IM im
 	const char *who
@@ -410,6 +422,12 @@
 	const char * message
 
 void
+purple_conv_chat_send_with_flags(chat, message, flags)
+	Purple::Conversation::Chat chat
+	const char * message
+	Purple::MessageFlags flags
+
+void
 purple_conv_chat_write(chat, who, message, flags, mtime)
 	Purple::Conversation::Chat chat
 	const char *who