Artifact
04f0f229d44922c1ad4ddf8b55c359c57d1d1e90:
Attachment "patch" to
ticket [3483716fff]
added by
cnassau
2012-02-03 17:21:15.
801,803c801,816
< mime::initializeaux $child \
< -lineslist [lrange $state(lines) \
< $state(lines.current) end]
---
> if {[info exists state(encoding)]} {
> set strng [join [lrange $state(lines) \
> $state(lines.current) end] "\n"]
> switch -- $state(encoding) {
> base64 -
> quoted-printable {
> set strng [$state(encoding) -mode decode -- $strng]
> }
> default {}
> }
> mime::initializeaux $child -string $strng
> } else {
> mime::initializeaux $child \
> -lineslist [lrange $state(lines) \
> $state(lines.current) end]
> }
