anchor.diff:      message(undefined, Recipient, <<"groupchat">>, Msg).
   
   get_registration_fields() ->
  -    iq(<<"get">>, [
  -        #xmlel{name = <<"query">>, attrs = [
  -            {<<"xmlns">>, <<"jabber:iq:register">>}
  -        ]}
  -    ]).
  +    iq(<<"get">>, [#xmlel{name = <<"query">>,
  +                          attrs = [{<<"xmlns">>, <<"jabber:iq:register">>}]}]).
   
   register_account(Body) ->
  -    iq(<<"set">>, [
  -        #xmlel{name = <<"query">>, attrs = [
  -            {<<"xmlns">>, <<"jabber:iq:register">>}
  -        ], children = Body}
  -    ]).
  +    iq(<<"set">>, [#xmlel{name = <<"query">>,
  +                          attrs = [{<<"xmlns">>, <<"jabber:iq:register">>}],
  +                          children = Body}]).
   
   remove_account() ->
  -    iq(<<"set">>, [
  -        #xmlel{name = <<"query">>, attrs = [
  -            {<<"xmlns">>, <<"jabber:iq:register">>}
  -        ], children = [#xmlel{name = <<"remove">>}]}
  -    ]).
  +    iq(<<"set">>, [#xmlel{name = <<"query">>,
  +                          attrs = [{<<"xmlns">>, <<"jabber:iq:register">>}],
  +                          children = [#xmlel{name = <<"remove">>}]}]).
   
   iq_result(Request) ->
       ToAttr = case exml_query:attr(Request, <<"from">>) of
  
positive.code:          compress/1]).
  
  -export([iq/2, iq/3]).
  -export([bind/1, session/0]).
  
  %% new ones
  -export([setattr/3, to/2, from/2, tags/1]).
  -export([get_registration_fields/0, register_account/1]).
  -export([remove_account/0]).
  
  -import(escalus_compat, [bin/1]).
  
negative.code: search_fields([null|Rest]) ->
      [#xmlel{name = <<"field">>} | search_fields(Rest)];
  search_fields([{Key, Val}|Rest]) ->
      [#xmlel{name = <<"field">>,
              attrs = [{<<"var">>, Key}],
              children = [#xmlel{name = <<"value">>,
                                 children = [{xmlcdata, Val}]}]}
       | search_fields(Rest)].
  
  search_fields_iq(JID) ->
      iq(JID, <<"get">>, [
  