package async_smtp
SMTP client and server
Install
Dune Dependency
Authors
Maintainers
Sources
v0.17.0.tar.gz
sha256=c416027c2537e22129f7049bf03ec3f867557d47b194d7e91d72c399fe656b27
doc/src/async_smtp.types/envelope.ml.html
Source file envelope.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 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115
module Stable = struct open! Core.Core_stable open Email_message.Email_message_stable module V1 = struct type t = { info : Envelope_info.Stable.V1.t ; email : Email.V1.t } [@@deriving bin_io, sexp] end module V2 = struct type t = { info : Envelope_info.Stable.V2.t ; email : Email.V1.t } [@@deriving bin_io, sexp, compare] let of_v1 (v1 : V1.t) = { info = Envelope_info.Stable.V2.of_v1 v1.info; email = v1.email } ;; end end open! Core open Email_message module T = struct type t = Stable.V2.t = { info : Envelope_info.t ; email : Email.t } [@@deriving sexp_of, fields ~getters ~iterators:create, compare, hash] end include T include Envelope_container.Make_with_info (T) include Comparable.Make_plain (T) include Hashable.Make_plain (T) type envelope = t [@@deriving sexp_of, compare, hash] let create ?id ~sender ?sender_args ~recipients ?rejected_recipients ?route ~email () = let info = Envelope_info.create ?id ~sender ?sender_args ~recipients ?rejected_recipients ?route () in { info; email } ;; let create' ~info ~email = Fields.create ~info ~email let set ?sender ?sender_args ?recipients ?rejected_recipients ?route ?email t () = { info = Envelope_info.set t.info ?sender ?sender_args ?recipients ?rejected_recipients ?route () ; email = Option.value email ~default:t.email } ;; let set' { info; email } ?(info = info) ?(email = email) () = { info; email } let of_email ?ignore_unparseable_recipient_header email = Or_error.map (Envelope_info.of_email ?ignore_unparseable_recipient_header email) ~f:(fun info -> { info; email }) ;; let modify_email t ~f = let email = email t in let email = f email in { t with email } ;; let of_bodiless bodiless body = let info = Envelope_bodiless.info bodiless in let email = Email.create ~headers:(Envelope_bodiless.headers bodiless) ~raw_content:body in create' ~info ~email ;; let split_bodiless { info; email } = let bodiless = Envelope_bodiless.create' ~info ~headers:(Email.headers email) in bodiless, Email.raw_content email ;; let with_bodiless t f = let bodiless, body = split_bodiless t in of_bodiless (f bodiless) body ;; include Envelope_container.Make_with_headers (struct type t = envelope let headers t = Email.headers t.email let set_headers t headers = let email = Email.set_headers t.email headers in set t ~email () ;; end)
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>