anchor.diff:  %%% Helpers
   %%%===================================================================
   send0(#transport{socket = {Host, Port, Path}} = Transport, Elem0, #state{parser = Parser} = State) ->
  -    Headers = [{"Content-Type", "text/xml; charset-utf-8"}],
  +    Headers = [{"Content-Type", "text/xml; charset=utf-8"}],
       Elem = wrap_elem(Elem0, State),
       {ok, {{StatusCode, Reason}, Hdrs, RespBody}} =
           lhttpc:request(Host, Port, false, Path, 'POST',
  
positive.code: common_attrs(Rid) ->
      [{<<"rid">>, pack_rid(Rid)},
       {<<"xmlns">>, <<"http://jabber.org/protocol/httpbind">>}].
  common_attrs(Rid, Sid) ->
      common_attrs(Rid) ++ [{<<"sid">>, Sid}].
  
  pack_rid(Rid) ->
      list_to_binary(integer_to_list(Rid)).
  
  unwrap_elem(#xmlelement{name = <<"body">>, body = [], attrs=Attrs}) ->
      case proplists:get_value(<<"from">>, Attrs) of
          undefined -> [];
          Server ->
              StreamStart = #xmlstreamstart{name = <<"stream:stream">>, attrs=[
                          {<<"from">>, Server},
                          {<<"version">>, <<"1.0">>},
                          {<<"xml:lang">>, <<"en">>},
                          {<<"xmlns">>, <<"jabber:client">>},
                          {<<"xmlns:stream">>, <<"http://etherx.jabber.org/streams">>}]},
              StreamFeatures = #xmlelement{
                      name = <<"stream:features">>,
                      attrs= [], body = []},
              [StreamStart, StreamFeatures]
      end;
  unwrap_elem(#xmlelement{name = <<"body">>, body = Body}) ->
      Body.
  
  
negative.code:     lists:foreach(fun(Stanza) ->
          Owner ! {stanza, transport(State), Stanza}
      end, Stanzas),
      case [StrEnd || #xmlstreamend{} = StrEnd <- Stanzas] of
          [] -> ok;
          _ -> gen_server:cast(self(), stop)
      end,
      Body.
  
  transport(#state{url = Url}) ->
  