Source file email_message_kernel.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
include Email (** @inline *)
module Bigstring_shared = Bigstring_shared
module Content = Email_content
module Raw_content = Email_raw_content
module Simple = Email_simple
module Mimestring = Mimestring
module Octet_stream = Octet_stream
module String_monoid = String_monoid
module Lf_or_crlf = Lf_or_crlf
module Stable = struct
include Email.Stable
module Raw_content = Email_raw_content.Stable
module Simple = Email_simple.Stable
end
module Private = struct
module Boundary = Boundary
module Media_type = Media_type
module Rfc = Rfc
module Encoded_word = Encoded_word
module Email_intf = struct
module type Email = Email_intf.Email with type t = Email.t
end
module Email_simple_intf = struct
module type Email_simple =
Email_simple_intf.Email_simple
with type Mimetype.t = Email_simple.Mimetype.t
and type Content.t = Email_simple.Content.t
module type Mimetype =
Email_simple_intf.Mimetype with type t = Email_simple.Mimetype.t
module type Content =
Email_simple_intf.Content
with module Mimetype := Email_simple.Mimetype
and type attachment_name := Email_simple.attachment_name
and type t = Email_simple.Content.t
module type Expert =
Email_simple_intf.Expert
with module Mimetype := Email_simple.Mimetype
and module Content := Email_simple.Content
and type attachment_name := Email_simple.attachment_name
and type t := Email_simple.t
module type Stable =
Email_simple_intf.Stable
with type Mimetype.latest := Email_simple.Mimetype.t
and type Content.latest := Email_simple.Content.t
end
module String_monoid_intf = struct
module type Underlying =
String_monoid_intf.Underlying with type t = String_monoid.Underlying.t
module type String_monoid =
String_monoid_intf.String_monoid
with type t = String_monoid.t
and type Underlying.t = String_monoid.Underlying.t
end
end