anchor.diff:      ]}.
   
   
  -options_to_query_args(HttpDb, Path, Options) ->
  +options_to_query_args(HttpDb, Path, Options0) ->
  +    case lists:keytake(max_url_len, 1, Options0) of
  +        false -> MaxLen = ?MAX_URL_LEN, Options = Options0;
  +        {value, {max_url_len, MaxLen}, Options} -> ok
  +    end,
       case lists:keytake(atts_since, 1, Options) of
       false ->
           options_to_query_args(Options, []);
  
positive.code:     JsonRevs = ?b2l(?JSON_ENCODE(couch_doc:revs_to_strs(Revs))),
      options_to_query_args(Rest, [{"open_revs", JsonRevs} | Acc]).
  
  
  -define(MAX_URL_LEN, 7000).
  
  atts_since_arg(_UrlLen, [], Acc) ->
      lists:reverse(Acc);
  atts_since_arg(UrlLen, [PA | Rest], Acc) ->
      RevStr = couch_doc:rev_to_str(PA),
      NewUrlLen = case Rest of
      [] ->
  
negative.code:         % plus 2 double quotes and a comma (% encoded)
          UrlLen + size(RevStr) + 9
      end,
      case NewUrlLen >= MaxLen of
      true ->
          lists:reverse(Acc);
      false ->
          atts_since_arg(NewUrlLen, Rest, MaxLen, [RevStr | Acc])
      end.
  
  
  