anchor.diff:  normalize_email(Email) ->
       case binary:split(Email, [<<"@">>], [global]) of
           [Account, Domain] ->
  -            <<(binary:replace(Account, <<".">>, <<"">>, [global]))/binary, "@", Domain/binary>>;
  +            case Domain of
  +                <<"google.com">> -> <<(binary:replace(Account, <<".">>, <<"">>, [global]))/binary, "@", Domain/binary>>;
  +                _ -> Email
  +            end;
           _ ->
               Email
       end.
  
positive.code: -export([https_get/2, https_post/3]).
  
  % Misscellaneous convenience functions
  -export([proplist_to_url_params/1, fully_qualified_url/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").
  
negative.code: -define(max_redirects, 5).
  %% Maximum depth of CA cert analize
  -define(ca_cert_max_depth, 11).
  
  -define(mail_validation_regexp,
      <<"^[a-z0-9!#$%&'*+\\/=?^_`{|}~-]+(?:\\.[a-z0-9!#$%&'*+\\/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?$">>).
  
  
  %% ====================================================================
  