anchor.diff:  	[{error, nxdomain} | _] ->
   	    host_port_to_dstlist(InHost, InPort, ApproxMsgSize);
   	[{error, What} | _] ->
  -	    % If first element returned from siplookup is an error then they all are.
  +	    %% If first element returned from siplookup is an error then they all are.
   	    {error, What};
   	none ->
   	    host_port_to_dstlist(InHost, InPort, ApproxMsgSize);
  
positive.code: make_3261_token([H | T]) when H >= $0, H =< $9 ->
      [H|make_3261_token(T)];
  make_3261_token([H | T]) when H == $-; H == $.; H == $!; H == $%;
  	H == $*; H == $_; H == $+; H == $`; H == $'; H == $~ ->
      [H|make_3261_token(T)];
  make_3261_token([H | T]) ->
      [$_|make_3261_token(T)].
  
  generate_branch() ->
      {Megasec, Sec, Microsec} = now(),
      % We don't need port here since erlang guarantees that Microsecond is never the
      % same on one node.
      In = lists:concat([node(), Megasec * 1000000 + Sec, 8, $., Microsec]),
      Out = make_base64_md5_token(In),
      "z9hG4bK-yxa-" ++ Out.
  
negative.code: 	    error
      end.
  
  %% Make md5 of input, base64 of that and RFC3261 token of the result
  make_base64_md5_token(In) ->
      Out = string:strip(httpd_util:encode_base64(binary_to_list(erlang:md5(In))), right, $=),
      make_3261_token(Out).
  
  %% RFC 3261 chapter 25 BNF notation of token :
  %%      token       =  1*(alphanum / "-" / "." / "!" / "%" / "*"
  %%                           / "_" / "+" / "" / "'" / "~" )
  make_3261_token([]) ->
      [];
  make_3261_token([H | T]) when H >= $a, H =< $z ->
  