Skip to content
This repository
Browse code

[fix] Email: use return_path for Message-ID

  • Loading branch information...
commit c6cdd1dfb5b60c06ad71c6f9125238f5e0db9feb 1 parent bee0c33
Frederic Ye authored January 02, 2012

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. 4  libnet/smtpClient.ml
4  libnet/smtpClient.ml
... ...
@@ -1,5 +1,5 @@
1 1
 (*
2  
-    Copyright © 2011 MLstate
  2
+    Copyright © 2011, 2012 MLstate
3 3
 
4 4
     This file is part of OPA.
5 5
 
@@ -142,7 +142,7 @@ let full_email ?(subject="") mfrom mto mdata ?return_path ?html ?(files=[]) ?(cu
142 142
     | None -> mfrom
143 143
   in
144 144
   (Printf.sprintf "From: %s\r\nReturn-Path:<%s>\r\nTo: %s\r\nMessage-ID: <%s.%s>\r\nX-Mailer: MLstate mailclient\r\nDate: %s\r\nMime-Version: 1.0\r\n%s%s"
145  
-                mfrom return_path mto (String.random 10) mfrom (Date.rfc1123 (Time.gmtime (Time.now())))
  145
+                mfrom return_path mto (String.random 10) return_path (Date.rfc1123 (Time.gmtime (Time.now())))
146 146
                 (if subject = "" then "" else sprintf "Subject: %s\r\n" subject)
147 147
                 (attach_custom_headers custom_headers))
148 148
   ^(if files = []

0 notes on commit c6cdd1d

Please sign in to comment.
Something went wrong with that request. Please try again.