anchor.diff:  -export([https_get/2, https_post/3]).
   
   % Misscellaneous convenience functions
  --export([proplist_to_url_params/1, fully_qualified_url/1, normalize_email/1]).
  +-export([proplist_to_url_params/1, fully_qualified_url/1, validate_email/1, normalize_email/1]).
   
   %% Name of cookie remembering if cookie policy is accepted (value is T/F)
   -define(cookie_policy_cookie_name, "cookie_policy_accepted").
  
positive.code:     end.
  
  
  %% normalize_email/1
  %% ====================================================================
  %% @doc Performs email normalization by removing all the dots in the local part.
  %% @end
  %% ====================================================================
  -spec normalize_email(binary()) -> binary().
  
negative.code: normalize_email(Email) ->
      case binary:split(Email, [<<"@">>], [global]) of
          [Account, Domain] ->
              case Domain of
                  <<"google.com">> -> <<(binary:replace(Account, <<".">>, <<"">>, [global]))/binary, "@", Domain/binary>>;
                  _ -> Email
              end;
          _ ->
              Email
      end.
  