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 -r1.40 -r1.41
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	24 Apr 2018 18:42:41 -0000	1.40
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	25 Apr 2018 19:23:27 -0000	1.41
@@ -139,7 +139,7 @@
        set content [ad_html_qualify_links $content]
 
        # Use this to build up extra mail headers
-       set extra_headers [list]
+       set extra_headers {}
 
        # This should disable most auto-replies.
        lappend extra_headers [list "Precedence" "list"]
@@ -235,7 +235,7 @@
             return {}
         }
 
-        set list_of_reply_ids [list]
+        set list_of_reply_ids {}
         set new_messages_p 0
 
         foreach msg $messages {
@@ -253,7 +253,7 @@
             set end_of_headers_p 0
             set i 0
             set line [lindex $file $i]
-            set headers [list]
+            set headers {}
             set orig_headers ""
 
             # walk through the headers and extract each one