I wrote a Perl script that takes care of this, about three years ago. Will have to dig it up and send it out
--
Sent from my Android phone with K-9 Mail. Please excuse my brevity.