anchor.diff:  %%% --------------------------------------------------------------------
   %%% Make a SOAP request (with attachments)
   %%% --------------------------------------------------------------------
  +call_attach(Wsdl, Operation, Port, Service, Headers, Message, Attachments, HttpHeaders) ->
  +    call_attach(Wsdl, Operation, Port, Service, Headers, Message, Attachments, http_details, [{headers, HttpHeaders}]).
  +
   call_attach(#wsdl{operations = Operations, model = Model},
  -            Operation, Port, Service, Headers, Message, Attachments, HttpHeaders) ->
  +            Operation, Port, Service, Headers, Message, Attachments, http_details, HttpDetails) ->
  +    HttpHeaders = findListValue(headers, HttpDetails),
  +    HttpClientOptions = findListValue(client_options, HttpDetails),
       %% find the operation
       case findOperation(Operation, Port, Service, Operations) of
   	#operation{address = URL, action=Action, operation = Operation} ->
  
positive.code: 
  		    {ContentType, Request} =
                          make_request_body(XmlMessage, Attachments, Action),
  		    HttpClientOptions = [],
                      ?dbg("+++ Request = ~p~n", [Request]),
  		    HttpRes = http_request(URL, Action, Request,
                                             HttpClientOptions, HttpHeaders,
  
negative.code: 	    {error, {unknown_operation, Operation}}
      end.
  
  findListValue(Key, KeyVals) ->
      case lists:keyfind(Key, 1, KeyVals) of
          {Key, List} ->
              List;
          false ->
              []
      end.
  %%%
  %%% returns {ok, Header, Body} | {error, Error}
  %%%
  