Index: openacs-4/packages/webmail-system/www/folder-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/folder-delete.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/webmail-system/www/folder-delete.tcl 26 Apr 2018 08:56:39 -0000 1.3 +++ openacs-4/packages/webmail-system/www/folder-delete.tcl 9 May 2018 15:33:33 -0000 1.4 @@ -46,7 +46,7 @@ # -------------------------- PROCESSING ------------------------- # set folders [ns_imap list $id $mailbox *] -set fnames {} +set fnames [list] foreach {odd even} $folders { lappend fnames $odd