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] 
> 		}
