From c0bf0545837c3b0940ec60e3a9fa33fac7132107 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 14 May 2013 18:50:29 +0200
Subject: [PATCH] Tweak ejabberd_listener to allow ejabberd_xmlrpc work
 properly

---
 src/ejabberd_listener.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl
index 9df8678b0..1f38e88ee 100644
--- a/src/ejabberd_listener.erl
+++ b/src/ejabberd_listener.erl
@@ -175,7 +175,11 @@ listen_tcp(PortIP, Module, SockOpts, Port, IPS) ->
 			catch
 			    _:_ -> []
 			end,
-	    Res = gen_tcp:listen(Port, [binary,
+	    DeliverAs = case Module of
+			    ejabberd_xmlrpc -> list;
+			    _ -> binary
+			end,
+	    Res = gen_tcp:listen(Port, [DeliverAs,
 					{packet, 0},
 					{active, false},
 					{reuseaddr, true},