sig
val content_type : < mailcap : Line.present; .. > Line.t -> string
val set_content_type :
string -> (< mailcap : Line.present; .. > as 'a) Line.t -> 'a Line.t
val command : < mailcap : Line.present; .. > Line.t -> string
val set_command :
string -> (< mailcap : Line.present; .. > as 'a) Line.t -> 'a Line.t
val flags : < mailcap : Line.present; .. > Line.t -> string list
val set_flags :
string list -> (< mailcap : Line.present; .. > as 'a) Line.t -> 'a Line.t
val fields :
< mailcap : Line.present; .. > Line.t -> (string * string) list
val set_fields :
(string * string) list ->
(< mailcap : Line.present; .. > as 'a) Line.t -> 'a Line.t
val create :
content_type:string ->
command:string ->
flags:string list ->
fields:(string * string) list ->
< delim : 'a; fstab : 'b; group : 'c; key_value : 'd;
mailcap : Line.absent; passwd : 'e; ps : 'f; seq : 'g; source : 'h;
stat : 'i >
Line.t ->
< delim : 'a; fstab : 'b; group : 'c; key_value : 'd;
mailcap : Line.present; passwd : 'e; ps : 'f; seq : 'g; source : 'h;
stat : 'i >
Line.t
end