let merge_channels c1 c2 = let items = sort_items_by_date (c1.ch_items @ c2.ch_items) in let c = copy_channel c1 in c.ch_items <- items ; c