Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	14 May 2006 16:12:57 -0000	1.44
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	15 May 2006 06:36:28 -0000	1.45
@@ -1009,7 +1009,7 @@
         {-to_addr ""}
 	{-cc_addr ""}
 	{-bcc_addr ""}
-        {-from_addr ""}
+        -from_addr:required
         {-subject ""}
         -body:required
 	{-package_id ""}
@@ -1144,7 +1144,7 @@
 		lappend to_list $email
 	    } else {	    
 		# Make sure we are not sending the same e-mail twice to the same person
-		if {[lsearch $to_party_ids $party_id($email)] > -1} {
+		if {[lsearch $to_party_ids $party_id($email)] < 0} {
 		    lappend to_party_ids $party_id($email)
 		}
 	    }
@@ -1161,7 +1161,7 @@
 		lappend cc_list $email
 	    } else {	    
 		# Make sure we are not sending the same e-mail twice to the same person
-		if {[lsearch $cc_party_ids $party_id($email)] > -1} {
+		if {[lsearch $cc_party_ids $party_id($email)] < 0} {
 		    lappend cc_party_ids $party_id($email)
 		}
 	    }
@@ -1177,7 +1177,7 @@
 		lappend bcc_list $email
 	    } else {	    
 		# Make sure we are not sending the same e-mail twice to the same person
-		if {[lsearch $bcc_party_ids $party_id($email)] > -1} {
+		if {[lsearch $bcc_party_ids $party_id($email)] < 0} {
 		    lappend bcc_party_ids $party_id($email)
 		}
 	    }
@@ -1232,7 +1232,7 @@
 
 		#Close all mime tokens
 		mime::finalize $multi_token -subordinates all
-
+		
 		if { !$no_callback_p } {
 		    callback acs_mail_lite::complex_send \
 			-package_id $package_id \