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 -N -r1.58.2.4 -r1.58.2.5
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	25 Feb 2004 21:10:16 -0000	1.58.2.4
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	17 Mar 2004 09:52:44 -0000	1.58.2.5
@@ -443,6 +443,9 @@
         }
     }
 
+    # email_verified_p 
+    set user_info(email_verified_p) $email_verified_p
+
     db_transaction {
         array set creation_info [auth::create_local_account \
                                      -user_id $user_id \