54a55
> #   20130212: Missing chan parameter added to all imaptotcl* procs -ger
75c76
<     variable version "2010-07-16"
---
>     variable version "2013-02-12"
356c357
<         foreach {name val} [imaptotcl items literals] {
---
>         foreach {name val} [imaptotcl $chan items literals] {
411c412
<     proc imaptotcl {datavar literalsvar} {
---
>     proc imaptotcl {chan datavar literalsvar} {
415,420c416,421
<             \{ {imaptotcl_literal data literals}
<             "(" {imaptotcl_list data literals}
<             "\"" {imaptotcl_quoted data}
<             0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {imaptotcl_number data}
<             \) {imaptotcl_endlist data;# that's a trick to parse lists}
<             default {imaptotcl_symbol data}
---
>             \{ {imaptotcl_literal $chan data literals}
>             "(" {imaptotcl_list $chan data literals}
>             "\"" {imaptotcl_quoted $chan data}
>             0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {imaptotcl_number $chan data}
>             \) {imaptotcl_endlist $chan data;# that's a trick to parse lists}
>             default {imaptotcl_symbol $chan data}
425c426
<     proc imaptotcl_literal {datavar literalsvar} {
---
>     proc imaptotcl_literal {chan datavar literalsvar} {
437c438
<     proc imaptotcl_quoted {datavar} {
---
>     proc imaptotcl_quoted {chan datavar} {
447c448
<     proc imaptotcl_number {datavar} {
---
>     proc imaptotcl_number {chan datavar} {
460c461
<     proc imaptotcl_symbol {datavar} {
---
>     proc imaptotcl_symbol {chan datavar} {
473c474
<     proc imaptotcl_list {datavar literalsvar} {
---
>     proc imaptotcl_list {chan datavar literalsvar} {
481c482
<             set ele [imaptotcl data literals]
---
>             set ele [imaptotcl $chan data literals]
492c493
<     proc imaptotcl_endlist {datavar} {
---
>     proc imaptotcl_endlist {chan datavar} {
1288a1290
> 
