Index: openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl	28 Aug 2003 09:41:47 -0000	1.11
+++ openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl	7 Nov 2003 17:43:32 -0000	1.12
@@ -886,7 +886,7 @@
     } elseif {[string equal $mime_type "text/plain; format=flowed"]} {
 	set result [wrap_string $content]
     } elseif {[string equal $mime_type "text/html"]} {
-	set result [ad_html_to_text $content]
+	set result [ad_html_to_text -- $content]
     } else {
 	set result "Error display bboard posting as email!
 Our bboard system has received a post we don't know how to 
Index: openacs-4/contrib/obsolete-packages/library/www/comment-add-4.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/library/www/comment-add-4.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/library/www/comment-add-4.tcl	2 Jul 2003 12:19:42 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/library/www/comment-add-4.tcl	7 Nov 2003 17:43:33 -0000	1.2
@@ -143,7 +143,7 @@
 	    set feedback_category "Comment"
 	}
 
-	if { $html_p == "t" } { set comment [ad_html_to_text $comment] }
+	if { $html_p == "t" } { set comment [ad_html_to_text -- $comment] }
 
 	set replacement_list \
 	    [list \
Index: openacs-4/contrib/obsolete-packages/library/www/comment-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/library/www/comment-delete-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/library/www/comment-delete-2.tcl	2 Jul 2003 12:19:42 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/library/www/comment-delete-2.tcl	7 Nov 2003 17:43:33 -0000	1.2
@@ -53,7 +53,7 @@
         end;
     }
  
-    if { $html_p == "t" } { set comment [ad_html_to_text $content] }
+    if { $html_p == "t" } { set comment [ad_html_to_text -- $content] }
 
     set author_id [km_conn original_author_id]
     set author_email [km_conn original_author_email]
Index: openacs-4/contrib/obsolete-packages/library/www/comment-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/library/www/comment-edit-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/library/www/comment-edit-2.tcl	2 Jul 2003 12:19:42 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/library/www/comment-edit-2.tcl	7 Nov 2003 17:43:33 -0000	1.2
@@ -53,7 +53,7 @@
 
     km_general_comment_update -html_p $html_p -public_p $public_p -feedback_category_id $feedback_category_id $feedback_author_id $object_id $comment_id $comment
  
-    if { $html_p == "t" } { set comment [ad_html_to_text $comment] }
+    if { $html_p == "t" } { set comment [ad_html_to_text -- $comment] }
  
     set author_id [km_conn original_author_id]
     set author_email [km_conn original_author_email]
Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	19 May 2003 12:25:54 -0000	1.12
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	7 Nov 2003 17:43:33 -0000	1.13
@@ -716,7 +716,7 @@
             array set doc_elements [nsv_get api_proc_doc $function]
             switch $format {
                 text/plain {
-                    lappend matches [ad_html_to_text [api_proc_documentation -script $function]]
+                    lappend matches [ad_html_to_text -- [api_proc_documentation -script $function]]
                 }
                 default {
                     lappend matches [api_proc_documentation -script $function]
Index: openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	6 Nov 2003 17:06:37 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	7 Nov 2003 17:43:33 -0000	1.4
@@ -147,7 +147,7 @@
   }
 
   if { [info exists html] } {
-    set body [ad_html_to_text $html]
+    set body [ad_html_to_text -- $html]
   } elseif { [info exists plain] } {
     set body $plain
   } else {
Index: openacs-4/packages/forums/tcl/forums-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-sc-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/tcl/forums-sc-procs.tcl	1 Nov 2003 08:45:38 -0000	1.2
+++ openacs-4/packages/forums/tcl/forums-sc-procs.tcl	7 Nov 2003 17:43:33 -0000	1.3
@@ -63,7 +63,7 @@
         }
         
         if  { $html_p } {
-            append combined_content [ad_html_to_text -showtags $content]
+            append combined_content [ad_html_to_text -showtags -- $content]
         } else {
             append combined_content $content
         }
Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/forums/tcl/messages-procs.tcl	7 Nov 2003 17:24:00 -0000	1.22
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	7 Nov 2003 17:43:33 -0000	1.23
@@ -81,7 +81,7 @@
     append new_content "<p>-------------------<br>"
 
     # send text for now.
-    set new_content [ad_html_to_text $new_content]
+    set new_content [ad_html_to_text -- $new_content]
     set html_version $new_content
 
     set text_version ""
Index: openacs-4/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/forums/www/message-email.tcl	9 Oct 2003 13:04:05 -0000	1.9
+++ openacs-4/packages/forums/www/message-email.tcl	7 Nov 2003 17:43:33 -0000	1.10
@@ -44,13 +44,13 @@
     # Get the data
     forum::message::get -message_id $message_id -array message
 
-    set new_body "[ad_html_to_text $pre_body]"
+    set new_body "[ad_html_to_text -- $pre_body]"
     append new_body "\n\n===================================\n\n"
     # Variables for I18N message lookup:
     set posting_date $message(posting_date)
     set user_name $message(user_name)
     append new_body "[_ forums.email_alert_body_header]\n\n"
-    append new_body "[ad_html_to_text $message(content)]\n"
+    append new_body "[ad_html_to_text -- $message(content)]\n"
 
     # Send the email
     acs_mail_lite::send -to_addr $to_email \