patch 61926820804dbe5661d868d10142ef8ce839735b
Author: Enrique D. Bosch <presidev@AT@gmail.com>
Date:   Tue Dec 13 22:03:31 CET 2016
  * Fix end-of-line character handling
diff -rN -u old-idlebiff/idlebiff new-idlebiff/idlebiff
--- old-idlebiff/idlebiff	2024-11-22 21:53:24.117198814 +0100
+++ new-idlebiff/idlebiff	2024-11-22 21:53:24.117198814 +0100
@@ -197,7 +197,7 @@
   else \
   {
     set search "SEARCH $criteria"
-    set rexpsearch {^\*\s+search\s+(.*)$}
+    set rexpsearch {^\* search((?: .*|$))}
   }
 }
 
@@ -255,7 +255,7 @@
 proc imap_command { con com } \
 {
 #  if [regexp {.*LOGIN.*} $com] {puts "C: LOGIN"} else {puts "C: $com"}
-  if [ catch { puts -nonewline $con "$com\r\n" } ] \
+  if [ catch { puts $con $com } ] \
   {
     recon $con
     return
@@ -560,7 +560,7 @@
   variable ::shared::sock
 
   set con [ exec_terse $sock -async $conf(host) $conf(port) ]
-  fconfigure $con -blocking 0 -buffering line
+  fconfigure $con -blocking 0 -buffering line -translation "crlf crlf"
   fileevent $con readable { parse_greeting $con }
   imap_command_tagged $con NOOP
 }