# HG changeset patch
# User daurnimator <quae@daurnimator.com>
# Date 1397586138 14400
# Node ID da9469e68deeb693d215706fa6d0b79fdfa69273
# Parent  f67eacb1ac9f693ca38869df3768e746b52d80ca
mod_mam_muc: Place stanza type in 'with' column; when sending history, only send messages with type=groupchat

diff -r f67eacb1ac9f -r da9469e68dee mod_mam_muc/mod_mam_muc.lua
--- a/mod_mam_muc/mod_mam_muc.lua	Fri Apr 11 14:58:44 2014 +0200
+++ b/mod_mam_muc/mod_mam_muc.lua	Tue Apr 15 14:22:18 2014 -0400
@@ -222,6 +222,7 @@
 		limit = m_min(maxstanzas or 20, max_history_length);
 		after = since;
 		reverse = true;
+		with = "message<groupchat";
 	});
 
 	if not data then
@@ -259,7 +260,11 @@
 
 	module:log("debug", "We're logging this")
 	-- And stash it
-	local ok, id = archive:append(room, time_now(), "", stanza);
+	local with = stanza.name
+	if stanza.attr.type then
+		with = with .. "<" .. stanza.attr.type
+	end
+	local ok, id = archive:append(room, nil, time_now(), with, stanza);
 	if ok and advertise_archive then
 		stanza:tag("archived", { xmlns = xmlns_mam, by = jid_bare(orig_to), id = id }):up();
 	end