Check that MailHost is sane.

getMessageList shall not be available on normal mail host. It will be available
on one coming from live tests, so in such case die immediately.

bt5/erp5_promise/SkinTemplateItem/portal_skins/erp5_promise/Alarm_checkPromiseMailServer.xml

@@ -55,6 +55,14 @@
 portal = context.getPortalObject()\n
 mailhost = portal.MailHost\n
 promise_url = portal.getPromiseParameter(\'external_service\', \'smtp_url\').rstrip(\'/\')\n
+if getattr(mailhost, \'getMessageList\', None) is not None:\n
+  context.newActiveProcess().postResult(ActiveResult(\n
+    severity=1,\n
+    summary="%s/MailHost is not real MailHost" % portal.getPath(),\n
+    detail="Possibly comes from DummyMailHost. The object has to be fixed by recreating it."\n
+  ))\n
+  return\n
+\n
 \n
 if promise_url is None:\n
   return\n

bt5/erp5_promise/SkinTemplateItem/portal_skins/erp5_promise/Alarm_installMailServer.xml

@@ -52,6 +52,9 @@
             <key> <string>_body</string> </key>
             <value> <string>portal = context.getPortalObject()\n
 mailhost = portal.MailHost\n
+if getattr(mailhost, \'getMessageList\', None) is not None:\n
+  # cannot fix wrong MailHost\n
+  return\n
 promise_url = portal.getPromiseParameter(\'external_service\', \'smtp_url\')\n
 \n
 protocol, promise_url = promise_url.split(\'://\', 1)\n

bt5/erp5_promise/bt/revision

-24
\ No newline at end of file
+25
\ No newline at end of file