Index: openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/complex-send-procs.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl	11 Jan 2008 11:10:40 -0000	1.24
+++ openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl	7 Jun 2008 20:28:56 -0000	1.25
@@ -619,7 +619,7 @@
                 foreach party $recipient_list {
                     set message_id [mime::uniqueID]
                     set email [party::email_not_cached -party_id $party]
-                    if {[acs_mail_lite::utils::valid_email_p -email $email]} {
+                    if {[acs_mail_lite::utils::valid_email_p $email]} {
                         set email "\"[party::name -party_id $party]\" <$email>"
                         
                         acs_mail_lite::smtp -multi_token $multi_token \