Index: openacs-4/packages/acs-admin/www/send-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/send-email.tcl,v
diff -u -N -r1.3 -r1.3.4.1
--- openacs-4/packages/acs-admin/www/send-email.tcl	10 Jan 2007 21:21:59 -0000	1.3
+++ openacs-4/packages/acs-admin/www/send-email.tcl	14 May 2009 12:54:38 -0000	1.3.4.1
@@ -23,9 +23,9 @@
     return_url:onevalue
 }
 
-if {[catch {ns_sendmail $email $email_from $subject $message} errmsg]} {
-    ad_return_error $error_subject "$error_message:
-    <blockquote><pre>[ad_quotehtml $errmsg]</pre></blockquote>"
+if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $email_from -subject $subject -body $message} errmsg]} {
+    ad_return_error $error_subject "<p>$error_message</p>
+    <div><code>[ad_quotehtml $errmsg]</code></div>"
     ad_script_abort
 }