Index: openacs-4/packages/acs-mail-lite/acs-mail-lite.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/acs-mail-lite.info,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-mail-lite/acs-mail-lite.info	3 May 2006 10:41:13 -0000	1.17
+++ openacs-4/packages/acs-mail-lite/acs-mail-lite.info	15 May 2006 06:36:28 -0000	1.18
@@ -7,15 +7,15 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="1.2b1" url="http://openacs.org/repository/download/apm/acs-mail-lite-1.2b1.apm">
+    <version name="1.3b1" url="http://openacs.org/repository/download/apm/acs-mail-lite-1.3b1.apm">
         <owner url="mailto:eric@openforce.biz">Eric Lorenzo</owner>
         <owner url="mailto:timo@studio-k4.de">Timo Hentschel</owner>
         <summary>Simplified reliable email transmission with bounce management.</summary>
         <release-date>2005-10-19</release-date>
         <description format="text/html">This package provides a simple ns_sendmail-like interface for sending messages, but queues messages in the database to ensure reliable sending and make sending a message 'transactional'. Prefered over acs-messaging or acs-mail.</description>
         <maturity>0</maturity>
 
-        <provides url="acs-mail-lite" version="1.2b1"/>
+        <provides url="acs-mail-lite" version="1.3b1"/>
 
         <callbacks>
             <callback type="after-install"  proc="acs_mail_lite::after_install"/>
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 \