[Erp5-report] r42776 nicolas.dumazet - /erp5/trunk/products/ERP5/Document/EmailDocument.py

[nobody at svn.erp5.org]

Author: nicolas.dumazet
Date: Sun Jan 30 06:35:49 2011
New Revision: 42776

URL: http://svn.erp5.org?rev=42776&view=rev
Log:
set In-Reply-To header out outgoing email when DestinationReference is set on the document

Modified:
    erp5/trunk/products/ERP5/Document/EmailDocument.py

Modified: erp5/trunk/products/ERP5/Document/EmailDocument.py
URL: http://svn.erp5.org/erp5/trunk/products/ERP5/Document/EmailDocument.py?rev=42776&r1=42775&r2=42776&view=diff
==============================================================================
--- erp5/trunk/products/ERP5/Document/EmailDocument.py [utf8] (original)
+++ erp5/trunk/products/ERP5/Document/EmailDocument.py [utf8] Sun Jan 30 06:35:49 2011
@@ -626,6 +626,8 @@ class EmailDocument(TextDocument):
     if not _checkPermission(Permissions.View, self):
       raise Unauthorized
 
+    additional_headers = {}
+
     #
     # Build mail message
     # This part will be replaced with MailTemplate soon.
@@ -652,9 +654,13 @@ class EmailDocument(TextDocument):
     # Return-Path
     if reply_url is None:
       reply_url = self.portal_preferences.getPreferredEventSenderEmail()
-    additional_headers = None
     if reply_url:
-      additional_headers = {'Return-Path':reply_url}
+      additional_headers['Return-Path'] = reply_url
+
+    # Reply-To
+    destination_reference = self.getDestinationReference()
+    if destination_reference is not None:
+      additional_headers['In-Reply-To'] = destination_reference
 
     # To (multiple)
     to_url_list = []