(* ************************************************************** *) (* mbox-cleaner *) (* deletes superflous mails of mbox, which has same body. *) (* only ONE instance of such mails will survive *) (* -------------------------------------------------------------- *) (* Copyright: Oliver Bandel, Germany *) (* Program-Version: Version 1.0.0 (Sun Apr 3 18:26:19 CEST 2005) *) (* ************************************************************** *) (* No warranty on this program - use on your own risk. *) (* Redistribution under GPL, Vers. 2 is possible. *) (* ************************************************************** *) val collect_uniq: in_channel -> (string * string) list