Index: openacs-4/packages/dotlrn/www/member-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-email.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/member-email.tcl	7 Oct 2007 22:36:56 -0000	1.3
+++ openacs-4/packages/dotlrn/www/member-email.tcl	7 Aug 2017 23:48:09 -0000	1.4
@@ -27,7 +27,7 @@
     {email:richtext,optional {label "Message"} {html {rows 30 cols 80}}}
 } -on_request {
 
-    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 [dotlrn_community::get_community_name $community_id]!"
 
 } -on_submit {
@@ -54,3 +54,9 @@
     ad_script_abort
 
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: