anchor.diff:      Id = exml_query:attr(Request, <<"id">>),
       Attrs = ToAttr ++ [{<<"id">>, Id}, {<<"type">>, <<"result">>}],
       #xmlel{name = <<"iq">>,
  -                attrs = Attrs}.
  +           attrs = Attrs}.
   
   iq_get(NS, Payload) ->
       iq_with_type(<<"get">>, NS, Payload).
  
positive.code: %% Create empty list element with given name.
  privacy_list(Name, Items) ->
      #xmlel{name = <<"list">>,
                  attrs = [{<<"name">>, Name}],
                  children = Items}.
  
  privacy_list_item(Order, Action, Content) ->
      #xmlel{name = <<"item">>,
                  attrs = [{<<"order">>, Order},
                           {<<"action">>, Action}],
                  children = [#xmlel{name = C} || C <- Content]}.
  
  privacy_list_item(Order, Action, Type, Value, Content) ->
      #xmlel{name = <<"item">>,
                  attrs = [{<<"order">>, Order},
                           {<<"type">>, Type},
                           {<<"value">>, Value},
                           {<<"action">>, Action}],
                  children = [#xmlel{name = C} || C <- Content]}.
  
  privacy_list_jid_item(Order, Action, Who, Contents) ->
      privacy_list_item(Order, Action, <<"jid">>,
  
negative.code:          compress/1]).
  
  -export([iq/2, iq/3]).
  
  -export([bind/1,
           session/0]).
  
  -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]).
  