Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-subsite/www/admin/users/new.tcl	6 Jan 2009 02:25:34 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl	15 May 2009 16:00:37 -0000	1.10.2.1
@@ -1,4 +1,4 @@
-# /packages/subsite/www/admin/parties/new.tcl
+# /packages/subsite/www/admin/users/new.tcl
 
 ad_page_contract {
 
@@ -232,16 +232,17 @@
 	    }]
 
 	    # we're supposed to notify the administrator when someone new registers
-	    ns_sendmail $notification_address \
-		    [template::element::get_value add_user email] \
-		    "New registration at [ad_url]" "
-	[template::element::get_value add_user first_names] [template::element::get_value add_user last_name] ([template::element::get_value add_user email]) was added as a registered as a user of 
+	    acs_mail_lite::send -send_immediately \
+            -to_addr ns_sendmail $notification_address \
+		    -from_addr [template::element::get_value add_user email] \
+            -subject "New registration at [ad_url]" \
+            -body "[template::element::get_value add_user first_names] [template::element::get_value add_user last_name] ([template::element::get_value add_user email]) was added as a registered as a user of 
 [ad_url]
 
-The user was added by $creation_name from [ad_conn url].
-	"
-        }
+The user was added by $creation_name from [ad_conn url]."
 
+    }
+
 	if { $email_verified_p eq "f" } {
 	
 	    set row_id [db_string user_new_2_rowid_for_email "select rowid from users where user_id = :user_id"]