pub fn archive(session_dir: &Path, original: &[Message]) -> Result<()>
Append the pre-compaction history to the archive on disk.