Index: openacs-4/packages/simulation/tcl/message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/message-procs.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/simulation/tcl/message-procs.tcl	17 Mar 2004 09:15:08 -0000	1.5.2.1
+++ openacs-4/packages/simulation/tcl/message-procs.tcl	18 Mar 2004 13:46:43 -0000	1.5.2.2
@@ -78,25 +78,16 @@
         }
         workflow::case::get -case_id $case_id -array case
         workflow::get -workflow_id $case(workflow_id) -array workflow
-        set notif_subject "\[SimPlay\] New message in simulation $workflow(pretty_name): $subject"
+
+        # I18N message variables:
+        set simulation_name $workflow(pretty_name)
         set package_id [ad_conn package_id]
         set simplay_url \
             [export_vars -base "[ad_url][apm_package_url_from_id $package_id]simplay" { workflow_id }]
-        set notif_body "You have just received the following message in simulation $workflow(pretty_name):
 
------------------------------------------------------
-subject: $subject
+        set notif_subject [_ simulation.message_notificaiton_email_subject]
+        set notif_body [_ simulation.message_notification_email_body]
 
-body:
-
-$body
------------------------------------------------------
-
-Please visit $simplay_url to continue playing the simulation.
-
-Thank you.
-"
-
         notification::new \
             -type_id [notification::type::get_type_id -short_name [simulation::notification::message::type_short_name]] \
             -object_id [ad_conn package_id] \