anchor.diff:  %%%===================================================================
   %%% Helpers
   %%%===================================================================
  +
   handle_data(Data, State = #state{owner = Owner,
                                    parser = Parser,
                                    compress = Compress,
  
positive.code:             end,
              ok = zlib:close(Zin),
              wsecli:send(Socket, zlib:deflate(Zout,
                                                exml:to_iolist(StreamEnd),
                                                finish)),
              ok = zlib:deflateEnd(Zout),
              ok = zlib:close(Zout);
          false ->
  
negative.code:         end,
      NewState = State#state{parser = NewParser},
      lists:foreach(fun(Stanza) ->
                            escalus_event:incoming_stanza(EventClient, Stanza),
                            Owner ! {stanza, transport(NewState), Stanza}
                    end, Stanzas),
      case [StrEnd || #xmlstreamend{} = StrEnd <- Stanzas] of
          [] -> {noreply, NewState};
          __ -> {stop, normal, NewState}
  