Posted to tcl by patthoyts at Tue Aug 12 22:25:58 GMT 2008view pretty

set k {}
            lappend k [wrapper::createtag subject -chdata [$subject get]]
            lappend k [wrapper::createtab body -chdata $msg]
            set m [wrapper::createtah message -subtags $k \
                       -attrlist [list type normal to tcl@paste.tclers.tk]]