Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	25 Sep 2003 13:49:05 -0000	1.18
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	25 Sep 2003 16:07:41 -0000	1.19
@@ -433,12 +433,14 @@
     if { $generated_pwd_p || \
              [parameter::get -parameter RegistrationProvidesRandomPasswordP -default 0] || \
              [parameter::get -parameter EmailRegistrationConfirmationToUserP -default 0] } {
+
 	with_catch errmsg {
-	    ns_sendmail \
-                $email \
-                [parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]] \
-                [_ acs-subsite.lt_Welcome_to_system_nam] \
-                [_ acs-subsite.lt_Thank_you_for_visitin]
+            auth::password::email_password \
+                -username $username \
+                -authority_id $authority_id \
+                -password $password \
+                -message_type "Registration" \
+                -from [parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]]
 	} {
             # We don't fail hard here, just log an error
             global errorInfo