anchor.diff:      io_lib:format("GET ~s HTTP/1.1\r\n" ++
   		  "Host: ~s\r\n" ++
   		  "Connection: Keep-Alive\r\n" ++
  -		  "Accept-Encoding: chunked, identity\r\n" ++
  +		  "Accept-Encoding: chunked, deflate, identity\r\n" ++
   		  "User-Agent: Harvester-e/0\r\n" ++
   		  "\r\n", [Path, Host]).
   
  
positive.code: 	end,
      {atomic, _} = mnesia:transaction(F).
  
  one_request_done(#state{dumb = false,
  			requests = [Request | Requests]} = State) ->
      request_done(Request),
      requests_send_ahead(State#state{requests = Requests});
  
  one_request_done(#state{dumb = true,
  			requests = [Request | _],
  			socket = Socket} = State) ->
      request_done(Request),
      gen_tcp:close(Socket),
      State#state{socket = none}.
  
  %% HTTP Engine
  
  
negative.code: 	Code == 204 orelse
  	Code == 304 orelse
  	Length == 0 ->
  	    NewState2 = one_request_done(NewState),
  	    NewState2#state{mode = line,
  			    state = status,
  			    chunked = false,
  			    dumb = Dumb};
  	Chunked ->
  	    NewState#state{mode = line,
  			   state = chunksize,
  			   chunked = true,
  			   dumb = Dumb};
  	Length =/= unknown ->
  	    NewState#state{mode = packet,
  			   packet_length = Length,
  			   chunked = false,
  			   dumb = Dumb};
  	true ->
  	    NewState#state{mode = packet,
  			   packet_length = -1,
  			   chunked = false,
  			   dumb = true}
      end;
  
  handle_line(HeaderLine,
  