patch 6cb864e02d9646202d1c02fce406e57ba2059f46
Author: Enrique D. Bosch <presidev@AT@gmail.com>
Date:   Thu Aug 30 00:52:43 CEST 2018
  * Add imap_trace option to show IMAP protocol dialog
diff -rN -u old-idlebiff/.idlebiffrc new-idlebiff/.idlebiffrc
--- old-idlebiff/.idlebiffrc	2024-11-22 21:25:50.867816501 +0100
+++ new-idlebiff/.idlebiffrc	2024-11-22 21:25:50.867816501 +0100
@@ -20,6 +20,7 @@
 pos_y=1
 tip=1
 nodecor=1
+imap_trace=0
 criteria=
 tls_validate_cert=1
 tls_ca_dir=
diff -rN -u old-idlebiff/idlebiff new-idlebiff/idlebiff
--- old-idlebiff/idlebiff	2024-11-22 21:25:50.867816501 +0100
+++ new-idlebiff/idlebiff	2024-11-22 21:25:50.867816501 +0100
@@ -264,7 +264,11 @@
 
 proc imap_command { con com } \
 {
-#  if {[regexp {.*LOGIN.*} $com]} {puts "C: [string range $com 0 10]"} else {puts "C: $com"}
+  variable ::shared::conf
+
+  if { $conf(imap_trace) } \
+  { if {[ regexp {.*LOGIN.*} $com ]} { puts "C: [string range $com 0 10]" } else { puts "C: $com" } }
+
   if {[ catch { puts $con $com } ]} \
   {
     recon $con
@@ -513,6 +517,8 @@
 
 proc read_line con \
 {
+  variable ::shared::conf
+
   cancel_timeout
   if {[ catch { set r [ gets $con line ] } ]} \
   {
@@ -531,7 +537,8 @@
   } \
   else \
   {
-#    puts "S: $line"
+    if { $conf(imap_trace) } { puts "S: $line" }
+
     return $line
   }
 }