Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	27 Oct 2014 16:39:42 -0000	1.8
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	7 Aug 2017 23:47:57 -0000	1.9
@@ -11,11 +11,7 @@
 } {
     Check if an integer is a valid OpenACS message id.
 } {
-    return [string equal [db_exec_plsql acs_message_p {
-	begin
-	    :1 := acs_message.message_p(:message_id);
-	end;
-    }] "t"]
+    return [string equal [db_exec_plsql acs_message_p {}] "t"]
 }
 
 ad_page_contract_filter acs_message_id { name value } {
@@ -44,7 +40,7 @@
     @param content   Text to view
 } {
     if {$mime_type eq "text/plain"} {
-	set result "<pre>[ad_quotehtml $content]</pre>"
+	set result "<pre>[ns_quotehtml $content]</pre>"
     } elseif {$mime_type eq "text/plain; format=flowed"} {
 	set result [ad_text_to_html -- $content]
     } elseif {$mime_type eq "text/html"} {
@@ -63,9 +59,7 @@
     the message_id of the first ancestor message (i.e. the message
     that originated the thread).
 } {
-    db_1row acs_message_first_ancestor {
-	select acs_message.first_ancestor(:message_id) as ancestor_id from dual
-    }
+    db_1row acs_message_first_ancestor {}
 
     return $ancestor_id
 }
@@ -155,3 +149,9 @@
         }
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: