From 3fc0eb4f5b449f4832a1a47147d33aed6795da89 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Fri, 20 Apr 2018 14:06:23 +0200
Subject: [PATCH] Use correct db backend for remove_mam_for_user_with_peer

---
 src/mod_mam.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mod_mam.erl b/src/mod_mam.erl
index 791bcd16f..6c2a0358d 100644
--- 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">>};