Index: openacs-4/packages/webmail/tcl/wm-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/tcl/wm-util-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/webmail/tcl/wm-util-procs.tcl	1 Mar 2005 00:01:45 -0000	1.3
+++ openacs-4/packages/webmail/tcl/wm-util-procs.tcl	25 Apr 2018 19:47:48 -0000	1.4
@@ -101,7 +101,7 @@
     "Name" <email>, the corresponding output will be similar (including both
     names and email), but only the actual email address will be checked.
 } {
-  set return_emails [list]
+  set return_emails {}
   foreach email $email_list {
     set email [string trim $email]
     if { ![regexp {<([^>]+)>} $email match email_value] } {
@@ -170,11 +170,11 @@
     @param content_types The name of the variable you want the list of content-type headers stored in.
     @return A list of header value pairs.
 } {
-    set return_fields [list]
+    set return_fields {}
     upvar $references_var rvar
-    set rvar [list]
+    set rvar {}
     upvar $content_types c_types
-    set c_types [list]
+    set c_types {}
     if { $header_display_style == "short" } {
 	set header_restriction_clause " and lower(name) in ('cc', 'in-response-to', 'references', 'reply-to', 'to', 'from', 'subject', 'date', 'content-type')"
     } else {
@@ -188,7 +188,7 @@
       ORDER BY sort_order desc"]
 
     # Re-order four main headers to always be first
-    set new_header_fields [list]
+    set new_header_fields {}
     foreach name { from to subject date } {
 	set pos [lsearch -regexp $header_fields "^${name} (.*)"]
 	lappend new_header_fields [lindex $header_fields $pos]
@@ -301,7 +301,7 @@
         }
         set last $msg_id
     }
-    set nav_links [list]
+    set nav_links {}
     return [list [list "Previous Unread" $prev_unread] \
 	    [list "Previous" $prev] [list "Next" $next] \
 	    [list "Next Unread" $next_unread] ]