Archive messages with type=normal and pubsub payload (like mucsub messages)

diff --git a/src/mod_mam.erl b/src/mod_mam.erl
index 2a43322c8092283369465131c0bb14910b76918a..4581a6daac03f2de39ab0dd2169993ecfb251f45 100644 (file)
--- a/src/mod_mam.erl
+++ b/src/mod_mam.erl
@@ -649,7 +649,8 @@ should_archive(#message{body = Body, subject = Subject,
                    false;
                none ->
                    xmpp:get_text(Body) /= <<>> orelse
-                       xmpp:get_text(Subject) /= <<>>
+                   xmpp:get_text(Subject) /= <<>> orelse
+                   xmpp:has_subtag(Pkt, #ps_event{})
            end
     end;
 should_archive(_, _LServer) ->