Artifact
4aa5137413e8a036ff3956d0127019b7c36a7f6f:
Attachment "imap4-0.51.patch" to
ticket [3604129fff]
added by
exgerhardr
2013-02-14 01:20:47.
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
>
