Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	22 Sep 2003 08:45:22 -0000	1.40
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	24 Sep 2003 15:17:12 -0000	1.41
@@ -349,7 +349,6 @@
     {-first_names ""}
     {-last_name ""}
     {-screen_name ""}
-    {-email ""}
     {-password ""}
     {-password_confirm ""}
     {-url ""}
@@ -796,8 +795,9 @@
     # Admin approval
     if { [parameter::get -parameter RegistrationRequiresApprovalP -default 0] } {
         set member_state "needs approval"
+        set system_name [ad_system_name]
         set result(account_status) "closed"
-        set result(account_message) [_ acs-subsite.lt_Your_registration_is_]
+        set result(account_message) [_ acs-subsite.Registration_Approval_Notice]
     } else {
         set member_state "approved"
     }
@@ -853,6 +853,7 @@
     set result(creation_status) "ok"
 
     if { [parameter::get -parameter RegistrationRequiresEmailVerificationP -default 0] } {
+        set email $user_info(email)
         set result(account_status) "closed"
         set result(account_message) "<p>[_ acs-subsite.lt_Registration_informat_1]</p><p>[_ acs-subsite.lt_Please_read_and_follo]</p>"