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 -r1.8 -r1.9
--- openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl	14 Jun 2018 22:16:08 -0000	1.8
+++ openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl	3 Sep 2024 15:37:33 -0000	1.9
@@ -55,7 +55,8 @@
     set changes_p [array exists new]
     set exists_p [db_0or1row acs_mail_lite_imap_conn_r {
         select ho,pa,po,ti,us,na,fl
-        from acs_mail_lite_imap_conn limit 1
+        from acs_mail_lite_imap_conn
+        fetch first 1 rows only
     } ]
 
     if { !$exists_p } {
@@ -71,7 +72,7 @@
  config.tcl's mailbox '${mb}' not in good form. \
  Quote mailbox with curly braces like: {{mailbox.host}mailbox.name} "
             set mb_list [acs_mail_lite::imap_mailbox_split $mb]
-            if { [llength $mb_list] eq 3 } {
+            if { [llength $mb_list] == 3 } {
                 lassign $mb_list ho na ssl_p
                 ns_log Notice "acs_mail_lite::imap_conn_set.479: \
  Used alternate parsing. host '${ho}' mailbox.name '${na}' ssl_p '${ssl_p}'"
@@ -647,7 +648,7 @@
                                              -struct_list $struct_list]
 
                             if { !$error_p && [string match {[a-z]*_[a-z]*} $filter_proc] } {
-                                set hdrs_arr(aml_package_ids_list) [safe_eval ${filter_proc}]
+                                set hdrs_arr(aml_package_ids_list) [ad_safe_eval ${filter_proc}]
                             }
                             if { !$error_p } {