From 4bbf16b21aa88641a7e79dcef9a987c1022449e2 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Fri, 10 Oct 2014 11:38:13 +0400
Subject: Fix list unblocking when Riak is used as a backend

---
 src/mod_blocking.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/mod_blocking.erl b/src/mod_blocking.erl
index 241a29f0e..0f57ce723 100644
--- a/src/mod_blocking.erl
+++ b/src/mod_blocking.erl
@@ -299,7 +299,8 @@ process_blocklist_unblock_all(LUser, LServer, Filter,
                      NewList = Filter(List),
                      NewLists1 = lists:keydelete(Default, 1, Lists),
                      NewLists = [{Default, NewList} | NewLists1],
-                     case ejabberd_riak:put(P#privacy{lists = NewLists}) of
+                     case ejabberd_riak:put(P#privacy{lists = NewLists},
+					    mod_privacy:privacy_schema()) of
                          ok ->
                              {ok, Default, NewList};
                          Err ->
-- 
cgit v1.2.3