Index: openacs-4/packages/acs-admin/www/users/user-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-3.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-admin/www/users/user-add-3.tcl	1 Mar 2005 00:01:21 -0000	1.5
+++ openacs-4/packages/acs-admin/www/users/user-add-3.tcl	12 Jul 2009 01:08:22 -0000	1.6
@@ -21,13 +21,13 @@
 set context [list [list "./" "Users"] "New user notified"]
 set export_vars [export_url_vars user_id]
 
-set admin_email [db_string unused "select email from 
-parties where party_id = :admin_user_id"]
+set admin_email [db_string get_admin_email {}]
+set subject "You have been added as a user to [ad_system_name] at [ad_url]"
 
-if [catch {ns_sendmail "$email" "$admin_email" "You have been added as a user to [ad_system_name] at [ad_url]" "$message"} errmsg] {
-    ad_return_error "Mail Failed" "The system was unable to send email.  Please notify the user personally.  This problem is probably caused by a misconfiguration of your email system.  Here is the error:
-<blockquote><pre>
+if [catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $admin_email -subject $subject -body $message} errmsg] {
+    ad_return_error "Mail Failed" "<p>The system was unable to send email.  Please notify the user personally.  This problem is probably caused by a misconfiguration of your email system.  Here is the error:</p>
+<div><code>
 [ad_quotehtml $errmsg]
-</pre></blockquote>"
+</code></div>"
     return
 }