Index: openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl,v
diff -u -N -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	24 Jun 2021 11:34:33 -0000	1.9.2.3
+++ openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	24 Mar 2023 16:02:27 -0000	1.9.2.4
@@ -130,7 +130,7 @@
 
 }
 
-ad_proc acs_mail_lite::utils::build_body {
+ad_proc -private acs_mail_lite::utils::build_body {
     {-mime_type "text/plain"}
     {-charset "UTF-8"}
     body
Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -N -r1.28.2.83 -r1.28.2.84
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	27 Feb 2023 18:53:56 -0000	1.28.2.83
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	24 Mar 2023 16:02:27 -0000	1.28.2.84
@@ -1750,7 +1750,6 @@
 
     set message_id [mime::uniqueID]
     set message_date [acs_mail_lite::utils::build_date]
-    #set tokens [acs_mail_lite::utils::build_body -mime_type text/html $body]
     set tokens [mime::initialize \
                     -canonical $mime_type \
                     -encoding "quoted-printable" -string $body]
@@ -1778,7 +1777,6 @@
                           -canonical application/ics -param [list name "invite.ics"] \
                           -header [list "Content-Disposition" "attachment; filename=\"todo.ics\""] \
                           -encoding "quoted-printable" -string $ical]
-      #lappend tokens [acs_mail_lite::utils::build_body -mime_type {application/ics; name="invite.ics"} $ical]
     }
 
     if {[llength $tokens]>1} {