> --8<---------------cut here---------------start------------->8--- > (statprof (lambda () > (map parse-email > (call-with-input-file "large-base64-attachment.mbox" > mbox->emails)))) > --8<---------------cut here---------------end--------------->8--- I forgot to mention. The "large-base64-attachment.mbox" in this snippet is the mbox of bug 35518 that you mentioned earlier.