Add description to feature-not-implemented error

diff --git a/src/mod_mam.erl b/src/mod_mam.erl
index acd2c46ad2f16af3a4c44103fe568ef78c8e50ae..1a3fcacccb020c711c0328bf85d3bb99dcef6696 100644 (file)
--- a/src/mod_mam.erl
+++ b/src/mod_mam.erl
@@ -518,7 +518,8 @@ process_iq(LServer, #iq{from = #jid{luser = LUser}, lang = Lang,
     end,
     case SubEl of
        #mam_query{rsm = #rsm_set{index = I}} when is_integer(I) ->
-           xmpp:make_error(IQ, xmpp:err_feature_not_implemented());
+           Txt = <<"Unsupported <index/> element">>,
+           xmpp:make_error(IQ, xmpp:err_feature_not_implemented(Txt, Lang));
        #mam_query{rsm = RSM, xmlns = NS} ->
            case parse_query(SubEl, Lang) of
                {ok, Query} ->