Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.108.2.16 -r1.108.2.17
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	9 Feb 2021 15:20:03 -0000	1.108.2.16
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	18 Feb 2021 14:48:10 -0000	1.108.2.17
@@ -78,7 +78,7 @@
 
 
     #---------------------------------------
-    ad_proc -public generate_message_id {
+    ad_proc -private generate_message_id {
     } {
         Generate an id suitable as a Message-Id: header for an email.
         @return valid message-id for mail header