Index: openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/incoming-mail-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	23 Apr 2018 07:17:32 -0000	1.15
+++ openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	26 Apr 2018 08:56:37 -0000	1.16
@@ -206,7 +206,7 @@
 	#get all available headers
 	set keys [mime::getheader $mime -names]
 		
-	set headers [list]
+	set headers {}
 
 	# create both the headers array and all headers directly for the email array
 	foreach header $keys {
@@ -225,7 +225,7 @@
 	}
 	
 	# travers the tree and extract parts into a flat list
-	set all_parts [list]
+	set all_parts {}
 	foreach part $parts {
 	    if {[mime::getproperty $part content] eq "multipart/alternative"} {
 		foreach child_part [mime::getproperty $part parts] {
@@ -236,8 +236,8 @@
 	    }
 	}
 	
-	set bodies [list]
-	set files [list]
+	set bodies {}
+	set files {}
 	
 	#now extract all parts (bodies/files) and fill the email array
 	foreach part $all_parts {