Use correct db backend for remove_mam_for_user_with_peer

diff --git a/src/mod_mam.erl b/src/mod_mam.erl
index 791bcd16f7b37e6ecb5d2f59b017599147cb6062..6c2a0358d2fdcc520faef6f249d556ab4eb092e6 100644 (file)
--- a/src/mod_mam.erl
+++ b/src/mod_mam.erl
@@ -281,7 +281,7 @@ remove_mam_for_user_with_peer(User, Server, Peer) ->
     LServer = jid:nameprep(Server),
     try jid:decode(Peer) of
        Jid ->
-           Mod = gen_mod:db_mod(LUser, ?MODULE),
+           Mod = gen_mod:db_mod(LServer, ?MODULE),
            case Mod:remove_from_archive(LUser, LServer, Jid) of
                ok ->
                    {ok, <<"MAM archive removed">>};