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.20 -r1.108.2.21
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	2 Mar 2021 12:01:30 -0000	1.108.2.20
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	3 Mar 2021 04:49:14 -0000	1.108.2.21
@@ -13,7 +13,7 @@
 
 namespace eval acs_mail_lite {
 
-    ad_proc -public get_package_id {} {
+    ad_proc -private get_package_id {} {
         @return package_id of this package
     } {
         return [apm_package_id_from_key acs-mail-lite]
@@ -48,7 +48,7 @@
     }
 
     #---------------------------------------
-    ad_proc -public parse_email_address {
+    ad_proc -private parse_email_address {
         -email:required
     } {
         Extracts the email address out of a mail address (like Joe User <joe@user.com>)
@@ -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
@@ -90,14 +90,16 @@
     }
 
     #---------------------------------------
-    ad_proc -public valid_signature {
+    ad_proc -private valid_signature {
         -signature:required
         -message_id:required
     } {
-        Validates if provided signature matches message_id.
+        Validates if provided signature syntactically matches message_id
+        as generated by OpenACS and equals to the hash of the provided signature.
+        GN: not sure, why both is checked.
 
-        @option signature signature to be checked
-        @option msg message-id that the signature should be checked against
+        @param signature signature to be checked
+        @param message-id message ID that the signature should be checked against
         @return boolean 0 or 1
     } {
         if {![regexp "(<\[\-0-9\]+\\.\[0-9\]+\\.oacs@[address_domain]>)" $message_id match id]
@@ -966,7 +968,7 @@
             -extraheaders $extraheaders_list
     }
 
-    ad_proc -public address_domain {} {
+    ad_proc -private address_domain {} {
         @return domain address to which bounces are directed to.
         If empty, uses domain from FixedSenderEmail parameter,
         otherwise the hostname in config.tcl is used.