fixup! erp5_interface_post: sent Mail Message now display their post equivalent as preview

bt5/erp5_interface_post/SkinTemplateItem/portal_skins/erp5_interface_post/Base_getFirstPartFromMultipartMessage.py

+"""
+This script can be used to give a preview of an Internet Mail Message.
+Usually, the data is a multipart message (at least ERP5 only create
+multipart message). As for users don't want a fidel representation of
+the message, but a preview, we assume that rendering the first part
+of the multipart message is enough.
+"""
+import email
+
+message = email.message_from_string(data)
+
+payload = message.get_payload()
+
+while isinstance(payload, list):
+  payload = payload[0].get_payload()
+
+def escapeMessage(message):
+  """
+  An Internet Mail Message has a line length limit, and truncated lines
+  are added "=" at the end. Thus, other "=" in the payloads are escaped
+  to "=3D"
+  """
+  return message.replace('=\n', '').replace('=3D', '=')
+
+return escapeMessage(payload)

bt5/erp5_interface_post/SkinTemplateItem/portal_skins/erp5_interface_post/Base_getFirstPartFromMultipartMessage.xml

+<?xml version="1.0"?>
+<ZopeData>
+  <record id="1" aka="AAAAAAAAAAE=">
+    <pickle>
+      <global name="PythonScript" module="Products.PythonScripts.PythonScript"/>
+    </pickle>
+    <pickle>
+      <dictionary>
+        <item>
+            <key> <string>Script_magic</string> </key>
+            <value> <int>3</int> </value>
+        </item>
+        <item>
+            <key> <string>_bind_names</string> </key>
+            <value>
+              <object>
+                <klass>
+                  <global name="NameAssignments" module="Shared.DC.Scripts.Bindings"/>
+                </klass>
+                <tuple/>
+                <state>
+                  <dictionary>
+                    <item>
+                        <key> <string>_asgns</string> </key>
+                        <value>
+                          <dictionary>
+                            <item>
+                                <key> <string>name_container</string> </key>
+                                <value> <string>container</string> </value>
+                            </item>
+                            <item>
+                                <key> <string>name_context</string> </key>
+                                <value> <string>context</string> </value>
+                            </item>
+                            <item>
+                                <key> <string>name_m_self</string> </key>
+                                <value> <string>script</string> </value>
+                            </item>
+                            <item>
+                                <key> <string>name_subpath</string> </key>
+                                <value> <string>traverse_subpath</string> </value>
+                            </item>
+                          </dictionary>
+                        </value>
+                    </item>
+                  </dictionary>
+                </state>
+              </object>
+            </value>
+        </item>
+        <item>
+            <key> <string>_params</string> </key>
+            <value> <string>data</string> </value>
+        </item>
+        <item>
+            <key> <string>id</string> </key>
+            <value> <string>Base_getFirstPartFromMultipartMessage</string> </value>
+        </item>
+      </dictionary>
+    </pickle>
+  </record>
+</ZopeData>