Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	30 Nov 2004 11:18:56 -0000	1.13
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	13 Jan 2005 23:32:05 -0000	1.14
@@ -129,6 +129,10 @@
         set $var $user($var)
     }
 } -on_submit {
+
+    # Makes the email an image or text according to the level of privacy
+    email_image::edit_email_image -user_id $user_id -new_email $email
+
     set user_info(authority_id) $user(authority_id)
     set user_info(username) $user(username)
     foreach elm $form_elms {
@@ -161,6 +165,7 @@
             break
         }
     }
+ 
 } -after_submit {
     if { [string equal [ad_conn account_status] "closed"] } {
         auth::verify_account_status