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

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