Index: openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp	19 Jul 2019 09:00:32 -0000	1.4.2.2
+++ openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp	21 Nov 2019 19:08:47 -0000	1.4.2.3
@@ -241,7 +241,7 @@
 
     template::util::list_of_lists_to_array $email(bodies) email_body
 
-    if {[exists_and_not_null email_body(text/html)]} {
+    if {[info exists email_body(text/html)] && $email_body(text/html) ne ""} {
 
     set body $email_body(text/html)
 
@@ -426,7 +426,7 @@
     # make the bodies an array
     template::util::list_of_lists_to_array $email(bodies) email_body
     
-    if {[exists_and_not_null email_body(text/html)]} {
+    if {[info exists email_body(text/html)] && $email_body(text/html) ne ""} {
     set body $email_body(text/html)
     } else {
     set body $email_body(text/plain)