anchor.diff:  	end.
   
   send(Socket, URI, false, Payload, ExtraHeader, SslOption) ->
  -	send(Socket, URI, lists:flatten(["Connection: close\r\n" | ExtraHeader]), Payload, SslOption);
  -send(Socket, URI, true, Payload, ExtraHeader, SslOption) -> 
  -	send(Socket, URI, ExtraHeader, Payload, SslOption).
  +    send(Socket, URI, lists:flatten(["Connection: close\r\n" | ExtraHeader]), Payload, SslOption);
  +send(Socket, URI, true, Payload, ExtraHeader, SslOption) ->
  +    send(Socket, URI, ExtraHeader, Payload, SslOption).
   
   send(Socket, URI, Header, Payload, SslOption) ->
       Request =
  -	["POST ", URI, " HTTP/1.1\r\n",
  -	 "Content-Length: ", integer_to_list(lists:flatlength(Payload)),
  -	 "\r\n",
  -	 "User-Agent: Erlang XML-RPC Client 1.13\r\n",
  -	 "Content-Type: text/xml\r\n",
  -	 Header, "\r\n",
  -	 Payload],
  -	M = fetch_comm_module(SslOption),
  -	apply(M, send, [Socket, Request]).
  +              ["POST ", URI, " HTTP/1.1\r\n",
  +               "Content-Length: ", integer_to_list(lists:flatlength(Payload)), "\r\n",
  +               "User-Agent: Erlang XML-RPC Client 1.13\r\n",
  +               "Content-Type: text/xml\r\n",
  +               Header, "\r\n",
  +               Payload],
  +    M = fetch_comm_module(SslOption),
  +    apply(M, send, [Socket, Request]).
   
   parse_response(Socket, Timeout, SslOption) ->
   	M = fetch_comm_module(SslOption),
  
positive.code: comm_close(Options, Socket) ->
  	M = fetch_comm_module(Options),
  	apply(M, close, [ Socket ]).
  	
  parse_header(Socket, Timeout, SslOption) -> parse_header(Socket, Timeout, SslOption, #header{}).
  
  parse_header(Socket, Timeout, SslOption, Header) ->
  
negative.code: 
  start_link(IP, Port, MaxSessions, Timeout, Handler, State) ->
      OptionList = [{active, false}, {reuseaddr, true}] ++ ip(IP),
      SessionHandler = {xmlrpc_http, handler, [Timeout, Handler, State]},
      tcp_serv:start_link([Port, MaxSessions, OptionList, SessionHandler]).
  
  ip(all) -> [];
  