Index: openacs-4/packages/dotlrn/www/spam-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-2.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/spam-2.tcl	1 Nov 2013 21:08:32 -0000	1.10
+++ openacs-4/packages/dotlrn/www/spam-2.tcl	7 Aug 2017 23:48:09 -0000	1.11
@@ -38,9 +38,15 @@
 } elseif {$format eq "pre"} {
     set preview_message [ad_text_to_html $message]
 } else {
-    set preview_message [ad_quotehtml $message]
+    set preview_message [ns_quotehtml $message]
 }
 
 set context [list [list $referer Admin] "[_ dotlrn.Spam_Community]"]
 set community_id [dotlrn_community::get_community_id]
 set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: