from='%(%f=^[\" ]*\([^\"][^\"]*\)[\" ]*<.*>$?%1:%(%f=([ ]*\([^ ].*\)[ ]*)$?%1:%(%f=^ *< *\([^>][^>]*\)>[() ]*$?%1:%f)))'
sptw='\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040'
sps='\040\040\040\040\040\040'
dottw='....................'
export SUBJLINE="%($from=^\($dottw\)\(.*\)?%1%2\n$sps${sptw}:%($from$sptw=^\($dottw\)?%1)) %[subject]"