In-Reply-To header field. Note extra list.rev in convert

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@41 eb64cd80-c68d-6f47-b6a3-0ada418499da
2022-12-13 23:04:19 +00:00
parent da47c68af6
commit 3e971f40dc
5 changed files with 55 additions and 33 deletions
--- a/cli/conversion.ml
+++ b/cli/conversion.ml
@@ -10,6 +10,7 @@ type t = {
 	topic_roots: string list;
 	topics: (String_set.t * String_set.t) Topic_set.Map.t;
 	references: Ref_set.t Id_map.t;
+	replies: Ref_set.t Id_map.t;
 	texts: Text.t list
 }

@@ -25,5 +26,6 @@ let empty () = {
 	topic_roots = [];
 	topics = Topic_set.Map.empty;
 	references = Id_map.empty;
+	replies = Id_map.empty;
 	texts = []
 }