Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/simulation/www/simplay/message.tcl	30 Jan 2004 11:23:25 -0000	1.24
+++ openacs-4/packages/simulation/www/simplay/message.tcl	4 Mar 2004 12:09:44 -0000	1.25
@@ -26,10 +26,7 @@
 
 set to_role_options [list]
 foreach one_role_id [workflow::role::get_ids -workflow_id $workflow_id] {
-    # A role cannot send message to himself
-    if { ![exists_and_equal role_id $one_role_id] } {
         lappend to_role_options [list [workflow::role::get_element -role_id $one_role_id -element pretty_name] $one_role_id]
-    }
 }
 
 set attachment_options [simulation::case::attachment_options -case_id $case_id -role_id $role_id]