Index: openacs-4/packages/simulation/www/simplay/control-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/control-bar.tcl,v
diff -u -N -r1.19.2.1 -r1.19.2.2
--- openacs-4/packages/simulation/www/simplay/control-bar.tcl	31 Oct 2006 10:13:04 -0000	1.19.2.1
+++ openacs-4/packages/simulation/www/simplay/control-bar.tcl	2 Nov 2006 07:17:11 -0000	1.19.2.2
@@ -33,6 +33,10 @@
       from sim_messagesx sm
      where (sm.to_role_id = :role_id or sm.from_role_id = :role_id)
        and sm.case_id = :case_id
+       and not exists (select 1 from sim_messages_trash st
+                       where st.message_id = sm.message_id and
+                         st.role_id = :role_id and
+                         st.case_id = :case_id)
 "]
 set messages_url [export_vars -base ${section_uri}messages { case_id role_id }]