Simply prints STM source
@@ -120,4 +120,6 @@ sub mkmymime {
return join $d1, @t;
}
+sub source { return $_[0]->{text} }
+
1;