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 -N -r1.108.2.17 -r1.108.2.18
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	18 Feb 2021 14:48:10 -0000	1.108.2.17
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	22 Feb 2021 16:32:41 -0000	1.108.2.18
@@ -78,7 +78,7 @@
 
 
     #---------------------------------------
-    ad_proc -private generate_message_id {
+    ad_proc -public generate_message_id {
     } {
         Generate an id suitable as a Message-Id: header for an email.
         @return valid message-id for mail header