Index: openacs-4/packages/forums/www/message-preview-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/Attic/message-preview-chunk.tcl,v
diff -u -N
--- openacs-4/packages/forums/www/message-preview-chunk.tcl	26 Jul 2002 01:04:35 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,19 +0,0 @@
-ad_page_contract {
-    
-    a message preview chunk to be included elsewhere
-
-    @author yon (yon@openforce.net)
-    @creation-date 2002-06-02
-    @version $Id: message-preview-chunk.tcl,v 1.2 2002/07/26 01:04:35 arjun Exp $
-
-}
-
-if {![array exists message]} {
-    ad_return_complaint 1 "Need to provide a message to display."
-}
-if {![exists_and_not_null bgcolor]} { set bgcolor "#ffffff" }
-
-
-if {[string equal f $message(html_p)]} {
-    set message(content)  [ad_text_to_html [string trim $message(content)]]
-}