Index: openacs-4/packages/dotlrn/tcl/spam-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/spam-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/spam-procs.tcl	9 Nov 2008 23:29:23 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/spam-procs.tcl	15 May 2009 22:38:13 -0000	1.8
@@ -84,7 +84,7 @@
             set message [interpolate -values $values -text $message]
 
             # send the email
-            if {[catch {ns_sendmail $email $from $subject $message} errmsg]} {
+            if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $from -subject $subject -body $message} errmsg]} {
                 append errors "
 <p>
 Failed to deliver to $email because:
@@ -129,7 +129,7 @@
 </p>
             "
 
-            if {[catch {ns_sendmail $real_from $real_from $error_subject $error_message} errmsg]} {
+            if {[catch {acs_mail_lite::send -send_immediately -to_addr $real_from -from_addr $real_from -subject $error_subject -body $error_message} errmsg]} {
                 ad_return_error $error_subject $error_message
                 ad_script_abort
             }