Index: openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl	8 May 2018 22:37:18 -0000	1.5
+++ openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl	12 Jun 2018 08:09:07 -0000	1.6
@@ -512,8 +512,7 @@
         set per_cycle_s_override [nsv_get acs_mail_lite \
                                       si_dur_per_cycle_s_override]
         set si_quit_cs \
-            [expr { $cycle_start_cs + int( $si_dur_per_cycle_s \
-                                               * .8 ) } ]
+            [expr { $cycle_start_cs + int( $si_dur_per_cycle_s * .8 )}]
         if { $per_cycle_s_override ne "" } {
             set si_quit_cs [expr { $si_quit_cs - $per_cycle_s_override } ]
             # deplayed
@@ -527,10 +526,10 @@
         # pause is in seconds
         set pause_s 10
         set pause_ms [expr { $pause_s * 1000 } ]
-        while { $active_cs eq $cycle_start_cs \
-                    && [clock seconds] < $si_quit_cs \
-                    && $concurrent_ct > 1 } {
-
+        while { $active_cs eq $cycle_start_cs 
+                && [clock seconds] < $si_quit_cs 
+                && $concurrent_ct > 1
+            } {
             incr per_cycle_s_override $pause_s
             nsv_set acs_mail_lite si_dur_per_cycle_s_override \
                 $per_cycle_s_override
Index: openacs-4/packages/acs-mail-lite/tcl/maildir-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/maildir-inbound-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-mail-lite/tcl/maildir-inbound-procs.tcl	30 Apr 2018 09:14:23 -0000	1.5
+++ openacs-4/packages/acs-mail-lite/tcl/maildir-inbound-procs.tcl	12 Jun 2018 08:09:07 -0000	1.6
@@ -42,8 +42,9 @@
         # pause is in seconds
         set pause_s 10
         set pause_ms [expr { $pause_s * 1000 } ]
-        while { $active_cs eq $cycle_start_cs \
-                    && $concurrent_ct > 1 } {
+        while { $active_cs eq $cycle_start_cs 
+                && $concurrent_ct > 1
+            } {
             set sj_actives_list [nsv_get acs_mail_lite sj_actives_list]
             set active_cs [lindex $sj_actives_list end]
             set concurrent_ct [llength $sj_actives_list]
@@ -136,8 +137,7 @@
                         }
                         
                         set id [acs_mail_lite::inbound_queue_insert \
-                                    -parts_arr_name parts_arr 
-                                \
+                                    -parts_arr_name parts_arr \
                                     -headers_arr_name hdrs_arr \
                                     -error_p $error_p ]
                         ns_log Notice "acs_mail_lite::maildir_check_incoming \