anchor.diff:           privacy_get_one/2,
            privacy_get_many/2,
            privacy_set_one/2,
  -         privacy_activate/2]).
  +         privacy_activate/2,
  +         privacy_deactivate/1]).
   
   -include("include/escalus.hrl").
   -include_lib("exmpp/include/exmpp.hrl").
  
positive.code:     Iq = exmpp_iq:get(?NS_JABBER_CLIENT, Query),
      exmpp_stanza:set_sender(Iq, Jid).
  
  privacy_get_one(Client = #client{jid=Jid}, ListName) ->
      privacy_get_many(Client, [ListName]).
  
  privacy_get_many(#client{jid=Jid}, ListNames) ->
  
negative.code: privacy_activate(#client{jid=Jid}, ListName) ->
      exmpp_stanza:set_sender(
          exmpp_iq:set(?NS_JABBER_CLIENT,
              exmpp_xml:append_child(
                  exmpp_xml:element(?NS_PRIVACY, 'query'),
                  case ListName of
                      'deactivate-should-not-happen-by-accident' ->
                          exmpp_xml:remove_attribute(
                              exmpp_xml:element('active'),
                              <<"xmlns">>);
                      _ ->
                          exmpp_xml:set_attribute(
                              exmpp_xml:remove_attribute(
                                  exmpp_xml:element('active'),
                                  <<"xmlns">>),
                              {<<"name">>, ListName})
                  end )),
          Jid).
  
  privacy_deactivate(Client) ->
      privacy_activate(Client,
          'deactivate-should-not-happen-by-accident').
  