Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[cleanup] smtpClient: indent

  • Loading branch information...
commit 364e6e46c0849ced9805c295feb5df502f9b576e 1 parent c8e6d30
@Aqua-Ye Aqua-Ye authored
Showing with 7 additions and 4 deletions.
  1. +7 −4 libnet/smtpClient.ml
View
11 libnet/smtpClient.ml
@@ -292,10 +292,13 @@ let mail_send ?client_certificate ?verify_params ?secure sched
?subject mfrom mdst ?mto mdata ?return_path ?html ?files ?cte ?charset nb_attempt
?port cont () =
let files = match files with
- | Some l -> Some(List.map (fun (file,filename) ->
- let content_type = HttpServer.mime_type file in
- let base, content = get_cte content_type (File.content file) in
- (filename,content_type,base,content)) l)
+ | Some l ->
+ let res =
+ List.map (fun (file,filename) ->
+ let content_type = HttpServer.mime_type file in
+ let base, content = get_cte content_type (File.content file) in
+ (filename,content_type,base,content)) l in
+ Some res
| None -> None in
mail_send_aux ?client_certificate ?verify_params ?secure sched
?subject mfrom mdst ?mto mdata ?return_path ?html ?files ?cte ?charset nb_attempt
Please sign in to comment.
Something went wrong with that request. Please try again.