Posted to tcl by patthoyts at Tue Aug 12 22:25:58 GMT 2008view raw
- 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]]