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-05-05 23:30:53.200743620 +0200
+++ new-idlebiff/idlebiff 2024-05-05 23:30:53.200743620 +0200
@@ -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
}