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 -N -r1.21.2.1 -r1.21.2.2
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	20 Nov 2019 11:27:31 -0000	1.21.2.1
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	11 Dec 2019 18:24:35 -0000	1.21.2.2
@@ -102,8 +102,27 @@
     return $message_data
 }
 
+ad_proc -deprecated parse_incoming_email {
+    message
+} {
+    Takes an incoming message and splits it into parts.  The main goal
+    of this proc is to return something that can be stuffed into the
+    database somewhere, such as a forum message.  Since we aggressively
+    filter HTML, the HTML tags are stripped out of the returned content.
 
-ad_proc parse_incoming_email {
+    The message may have only plain text, plain text and HTML, or plain
+    text and something else (Apple Mail uses text/enhanced, for example).
+    To make our lives simpler we support only text/html as a special case;
+    in all other cases the plain text is returned.
+
+    DEPRECATED: does not comply with OpenACS naming convention
+
+    @see ad_parse_incoming_email
+} {
+    return [ad_parse_incoming_email $message]
+}
+
+ad_proc -public ad_parse_incoming_email {
     message
 } {
     Takes an incoming message and splits it into parts.  The main goal
Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v
diff -u -N -r1.47.2.1 -r1.47.2.2
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	9 Aug 2019 20:19:04 -0000	1.47.2.1
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	11 Dec 2019 18:24:35 -0000	1.47.2.2
@@ -320,7 +320,7 @@
                 continue
             }
 
-            set body [parse_incoming_email $orig_file]
+            set body [ad_parse_incoming_email $orig_file]