From d901aa982bcd83a5952ee32aa5887717b855187e Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 22 Mar 2013 13:57:45 +0100
Subject: [PATCH] Fix privacy list broadcast internal stanza after binarization

---
 src/mod_privacy.erl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/mod_privacy.erl b/src/mod_privacy.erl
index 17b9299c5..22c5ce77d 100644
--- a/src/mod_privacy.erl
+++ b/src/mod_privacy.erl
@@ -491,10 +491,11 @@ process_list_set(LUser, LServer, {value, Name}, Els) ->
 		ejabberd_sm:route(jlib:make_jid(LUser, LServer,
                                                 <<"">>),
                                   jlib:make_jid(LUser, LServer, <<"">>),
-                                  {broadcast, {privacy_list,
+                                  #xmlel{name = <<"broadcast">>, children =
+                                  [{privacy_list,
                                                #userlist{name = Name,
                                                          list = []},
-                                               Name}}),
+                                               Name}]}),
 		{result, []};
 	    _ -> {error, ?ERR_INTERNAL_SERVER_ERROR}
 	  end;
@@ -507,11 +508,12 @@ process_list_set(LUser, LServer, {value, Name}, Els) ->
 		ejabberd_sm:route(jlib:make_jid(LUser, LServer,
                                                 <<"">>),
                                   jlib:make_jid(LUser, LServer, <<"">>),
-                                  {broadcast, {privacy_list,
+                                  #xmlel{name = <<"broadcast">>, children =
+                                  [{privacy_list,
                                                #userlist{name = Name,
                                                          list = List,
                                                          needdb = NeedDb},
-                                               Name}}),
+                                               Name}]}),
 		{result, []};
 	    _ -> {error, ?ERR_INTERNAL_SERVER_ERROR}
 	  end