Index: openacs-4/packages/dotlrn/lib/member-email-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/lib/member-email-confirm.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/dotlrn/lib/member-email-confirm.tcl	20 May 2016 20:17:34 -0000	1.6.2.2
+++ openacs-4/packages/dotlrn/lib/member-email-confirm.tcl	12 Sep 2016 11:14:56 -0000	1.6.2.3
@@ -30,7 +30,7 @@
         if {![db_0or1row member_email {}]} {
 	    set default_email [lindex [callback dotlrn::default_member_email -community_id $community_id -type $type -var_list [list course_name $community_name community_name $community_name]] 0]
 	    if {![llength $default_email]} {
-		set from_addr [cc_email_from_party [ad_conn user_id]]
+		set from_addr [party::email -party_id [ad_conn user_id]]
 		set subject "Welcome to ${community_name}!"
 	    }
 	    set from_addr [lindex $default_email 0]
@@ -45,7 +45,7 @@
  	    set email [_ dotlrn.added_community_message]
 	}
 	if {$from_addr eq ""} {
-	    set from_addr [cc_email_from_party [ad_conn user_id]]
+	    set from_addr [party::email -party_id [ad_conn user_id]]
 	}
         set email [template::util::richtext::create $email text/html]
     } -on_submit {