diff options
| author | Badlop <badlop@process-one.net> | 2021-01-31 23:07:13 +0100 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2021-02-01 00:09:18 +0100 |
| commit | b3d9c0d1f7f7037c1a22161c857c931f5e4b7ed3 (patch) | |
| tree | eff459ea786e7c6715460458f7ea0145af752f21 /src | |
| parent | Fix MAM tests that now fail due to commit d6e9e0342 (#3506) (diff) | |
Diffstat (limited to 'src')
| -rw-r--r-- | src/mod_admin_extra.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl index cd6a321b..189a3714 100644 --- a/src/mod_admin_extra.erl +++ b/src/mod_admin_extra.erl @@ -1494,10 +1494,10 @@ send_message(Type, From, To, Subject, Body) -> #xmlel{name = <<"body">>, children = [{xmlcdata, Body}]}]}, ?NS_CLIENT, CodecOpts) of - #message{from = JID, subject = Subject, body = Body} = Msg -> - Msg2 = case {xmpp:get_text(Subject), xmpp:get_text(Body)} of - {_, <<>>} -> Msg; - {<<>>, _} -> Msg#message{subject = []}; + #message{from = JID, subject = SubjectEl, body = BodyEl} = Msg -> + Msg2 = case {xmpp:get_text(SubjectEl), xmpp:get_text(BodyEl)} of + {Subject, <<>>} -> Msg; + {<<>>, Body} -> Msg#message{subject = []}; _ -> Msg end, State = #{jid => JID}, |