Index: openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl,v diff -u -r1.9.2.2 -r1.9.2.3 --- openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl 18 Feb 2021 14:48:10 -0000 1.9.2.2 +++ openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl 24 Jun 2021 11:34:33 -0000 1.9.2.3 @@ -172,24 +172,18 @@ return [list $message_token] } -ad_proc -private acs_mail_lite::utils::valid_email_p { +ad_proc -private -deprecated acs_mail_lite::utils::valid_email_p { email } { - Checks if the email is valid. + Checks if the email is valid. Uses mime::parsemail to determine this @return boolean success + + DEPRECATED: duplicated by util_email_valid_p + + @see util_email_valid_p } { - array set test [lindex [mime::parseaddress "$email"] 0] - if {$email ne $test(proper)} { - regsub "\"" $test(proper) "" proper - if {$email ne $proper} { - return 0 - } else { - return 1 - } - } else { - return 1 - } + return [util_email_valid_p $email] } # Local variables: