Index: openacs-4/packages/forums/lib/message/attachment-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/attachment-list.tcl,v
diff -u -r1.8.2.7 -r1.8.2.8
--- openacs-4/packages/forums/lib/message/attachment-list.tcl	12 Jul 2019 15:29:12 -0000	1.8.2.7
+++ openacs-4/packages/forums/lib/message/attachment-list.tcl	12 Jul 2019 15:57:49 -0000	1.8.2.8
@@ -1,19 +1,15 @@
-ad_page_contract {
-    a message attachment chunk to be included to display attachments
+ad_include_contract {
+    A message attachment chunk to be included to display attachments
 
     @author ben (ben@openforce.net)
     @creation-date 2002-07-02
     @cvs-id $Id$
+} {
+    {preview:boolean 0}
+    {message}
+    {bgcolor "#ffffff"}
 }
 
-if {![array exists message]} {
-    ad_return_complaint 1 "[_ forums.lt_need_to_provide_a_mes]"
-    ad_script_abort
-}
-
-if {(![info exists bgcolor] || $bgcolor eq "")} {
-    set bgcolor "#ffffff"
-}
 #
 # Can the user detach?
 #