+
+ parts = TNY_LIST (tny_simple_list_new());
+ tny_mime_part_get_parts (TNY_MIME_PART (msg), parts);
+
+ for (iter = tny_list_create_iterator(parts);
+ !tny_iterator_is_done (iter);
+ tny_iterator_next (iter)) {
+ gchar *content_type;
+ gboolean is_body;
+
+ part = TNY_MIME_PART (tny_iterator_get_current (iter));
+
+ if (first_part == NULL) {
+ g_object_ref (part);
+ first_part = part;
+ }
+
+ is_body = FALSE;
+ content_type = g_ascii_strdown (tny_mime_part_get_content_type (part), -1);
+ is_body = g_str_has_prefix (content_type, desired_mime_type);
+ if (is_body)
+ break;
+
+ /* Makes no sense to look for related MIME parts if we
+ only want the plain text parts */
+ if (want_html && g_str_has_prefix (content_type, "multipart/related")) {
+ /* In an alternative the last part is supposed
+ to be the richest */
+ if (related)
+ g_object_unref (related);
+ related = g_object_ref (part);
+ }
+
+ g_object_unref (part);
+ part = NULL;
+
+ }
+ g_object_unref (iter);
+ g_object_unref (parts);
+
+ if (part == NULL) {
+ if (related) {
+ TnyMimePart *retval;
+ if (first_part)
+ g_object_unref (first_part);
+ retval = modest_tny_msg_find_body_part_from_mime_part (related, want_html);
+ g_object_unref (related);
+ return retval;
+ } else {
+ return first_part;
+ }
+ } else {
+ if (first_part)
+ g_object_unref (first_part);
+ if (related)
+ g_object_unref (related);
+ return part;
+ }
+}
+
+static TnyMimePart*
+modest_tny_msg_find_body_part_from_mime_part (TnyMimePart *msg, gboolean want_html)
+{
+ TnyMimePart *part = NULL;
+ TnyList *parts = NULL;
+ TnyIterator *iter = NULL;
+ gchar *header_content_type;
+ gchar *header_content_type_lower = NULL;
+ gboolean is_related = FALSE;
+
+ if (!msg)
+ return NULL;
+
+ /* If it's an application multipart, then we don't get into as we don't
+ * support them (for example application/sml or wap messages */
+ header_content_type = modest_tny_mime_part_get_header_value (msg, "Content-Type");
+ if (header_content_type) {
+ header_content_type = g_strstrip (header_content_type);
+ header_content_type_lower = g_ascii_strdown (header_content_type, -1);
+ }
+ if (header_content_type_lower &&
+ g_str_has_prefix (header_content_type_lower, "multipart/") &&
+ !g_str_has_prefix (header_content_type_lower, "multipart/signed") &&
+ strstr (header_content_type_lower, "application/")) {
+ g_free (header_content_type_lower);
+ g_free (header_content_type);
+ return NULL;
+ }
+ if (header_content_type_lower &&
+ g_str_has_prefix (header_content_type_lower, "multipart/alternative")) {
+ g_free (header_content_type_lower);
+ g_free (header_content_type);
+ return modest_tny_msg_find_body_part_in_alternative (msg, want_html);
+ }
+
+ if (header_content_type_lower &&
+ g_str_has_prefix (header_content_type_lower, "multipart/related"))
+ is_related = TRUE;
+
+ g_free (header_content_type_lower);
+ g_free (header_content_type);
+
+ parts = TNY_LIST (tny_simple_list_new());
+ tny_mime_part_get_parts (TNY_MIME_PART (msg), parts);
+
+ /* no parts? assume it's single-part message */
+ iter = tny_list_create_iterator (parts);
+ if (tny_iterator_is_done(iter)) {
+ gchar *content_type;
+ gboolean is_text_part;
+
+ content_type = modest_tny_mime_part_get_content_type (msg);
+ if (content_type == NULL)
+ goto frees;
+ is_text_part = g_str_has_prefix (content_type, "text/");
+ g_free (content_type);
+
+ /* if this part cannot be a supported body return NULL */
+ if (is_text_part)
+ part = TNY_MIME_PART (g_object_ref(G_OBJECT(msg)));
+ } else {
+ TnyMimePart *fallback = NULL;
+ do {
+ gchar *tmp, *content_type = NULL;
+ gboolean has_content_disp_name = FALSE;
+
+ part = TNY_MIME_PART(tny_iterator_get_current (iter));
+
+ if (!part) {
+ g_warning ("%s: not a valid mime part", __FUNCTION__);
+ tny_iterator_next (iter);
+ continue;
+ }
+
+ /* it's a message --> ignore */
+ if (part && TNY_IS_MSG (part)) {
+ g_object_unref (part);
+ part = NULL;
+ tny_iterator_next (iter);
+ continue;
+ }
+
+ /* we need to strdown the content type, because
+ * tny_mime_part_has_content_type does not do it...
+ */
+ content_type = g_ascii_strdown (tny_mime_part_get_content_type (part), -1);
+
+ /* mime-parts with a content-disposition header (either 'inline' or 'attachment')
+ * and a 'name=' thingy cannot be body parts
+ */
+
+ tmp = modest_tny_mime_part_get_header_value (part, "Content-Disposition");
+ if (tmp) {
+ gchar *content_disp = g_ascii_strdown(tmp, -1);
+ g_free (tmp);
+ has_content_disp_name = g_strstr_len (content_disp, strlen(content_disp), "name=") != NULL;
+ g_free (content_disp);
+ }
+
+ if (g_str_has_prefix (content_type, "text/") &&
+ !has_content_disp_name &&
+ !modest_tny_mime_part_is_attachment_for_modest (part)) {
+ /* We found that some multipart/related emails include
+ empty text/plain parts at the end that could confuse the body
+ detection algorithm */
+ if (is_related && g_str_has_prefix (content_type, "text/plain")) {
+ fallback = g_object_ref (part);
+ } else {
+ /* we found the body. Doesn't have to be the desired mime part, first
+ text/ part in a multipart/mixed is the body */
+ g_free (content_type);
+ break;
+ }
+ } else if (g_str_has_prefix(content_type, "multipart/alternative")) {
+
+ /* multipart? recurse! */
+ g_object_unref (part);
+ g_free (content_type);
+ part = modest_tny_msg_find_body_part_in_alternative (part, want_html);
+ if (part)
+ break;
+
+ } else if (g_str_has_prefix(content_type, "multipart")) {
+
+ /* multipart? recurse! */
+ g_object_unref (part);
+ g_free (content_type);
+ part = modest_tny_msg_find_body_part_from_mime_part (part, want_html);
+ if (part)
+ break;
+ } else {
+ g_free (content_type);
+ }
+
+ if (part) {
+ g_object_unref (G_OBJECT(part));
+ part = NULL;
+ }
+ tny_iterator_next (iter);
+
+ } while (!tny_iterator_is_done(iter));
+
+ if (!part && fallback)
+ part = g_object_ref (fallback);
+ if (fallback)
+ g_object_unref (fallback);
+ }
+
+ frees:
+ g_object_unref (G_OBJECT(iter));
+ g_object_unref (G_OBJECT(parts));
+
+ return part;
+}
+
+static TnyMimePart*
+modest_tny_msg_find_calendar_from_mime_part (TnyMimePart *msg)
+{