anchor.diff:      %% proxy really has to understand the From:. We currently don't.
       _ = (catch process_parsed_packet(CheckResponse3, #siporigin{proto=tcp})),
   
  +    autotest:mark(?LINE, "process_parsed_packet/2 response - 4"),
  +    CRHeader4 = keylist:set("From", ["<sip:test@example.org"], CRHeader1),
  +    CheckResponse4 = #response{status=200, reason="Ok", header=CRHeader4, body=EmptyBody},
  +    %% check with From: without closing ">"
  +    {sipparseerror, response, _, 400, "Invalid From: header"} =
  +	(catch process_parsed_packet(CheckResponse4, #siporigin{proto=tcp})),
  +
   
       %% build request header for other tests
       %%--------------------------------------------------------------------
  
positive.code:     %% valid test
      true = check_supported_uri_scheme(URISchemeURL1, URISchemeHeader),
  
      autotest:mark(?LINE, "check_supported_uri_scheme/2 - 1"),
      URISchemeURL2 = sipurl:parse("bogus:ft@example.org"),
      %% URL was unparseable
      {sipparseerror, request, URISchemeHeader, 416, "Unsupported URI Scheme (bogus:)"} =
  	(catch check_supported_uri_scheme(URISchemeURL2, URISchemeHeader)),
  
      ok.
  
negative.code: %%           have failed, and we just format the 416 error response.
  %% Returns : true | throw({sipparseerror, ...})
  %%--------------------------------------------------------------------
  check_supported_uri_scheme({unparseable, URIstr}, Header) when is_list(URIstr), is_record(Header, keylist) ->
      case string:chr(URIstr, $:) of
  	0 ->
  	    throw({sipparseerror, request, Header, 416, "Unsupported URI Scheme"});
  	Index ->
  	    case http_util:to_lower(string:substr(URIstr, 1, Index)) of
  		Proto when Proto == "sip:"; Proto == "sips:" ->
  		    throw({sipparseerror, request, Header, 400, "Unparsable Request-URI"});
  		Scheme ->
  		    throw({sipparseerror, request, Header, 416, "Unsupported URI Scheme (" ++ Scheme ++ ")"})
  	    end
      end;
  check_supported_uri_scheme(URI, Header) when is_record(URI, sipurl), is_record(Header, keylist) ->
      true.
  