path: root/em-format/e-mail-part-headers.c

/*
 * e-mail-part-headers.c
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) version 3.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with the program; if not, see <http://www.gnu.org/licenses/>
 *
 */

#include "e-mail-part-headers.h"

#include <config.h>
#include <glib/gi18n-lib.h>

#include "e-mail-part-list.h"

#define E_MAIL_PART_HEADERS_GET_PRIVATE(obj) \
    (G_TYPE_INSTANCE_GET_PRIVATE \
    ((obj), E_TYPE_MAIL_PART_HEADERS, EMailPartHeadersPrivate))

struct _EMailPartHeadersPrivate {
    GMutex property_lock;
    gchar **default_headers;
    GtkTreeModel *print_model;
};

enum {
    PROP_0,
    PROP_DEFAULT_HEADERS
};

G_DEFINE_TYPE (
    EMailPartHeaders,
    e_mail_part_headers,
    E_TYPE_MAIL_PART)

static const gchar *basic_headers[] = {
    N_("From"),
    N_("Reply-To"),
    N_("To"),
    N_("Cc"),
    N_("Bcc"),
    N_("Subject"),
    N_("Date"),
    N_("Newsgroups"),
    N_("Face"),
    NULL
};

static GtkTreeModel *
mail_part_headers_build_print_model (EMailPartHeaders *part)
{
    GtkListStore *list_store;
    EMailPartList *part_list;
    CamelMimeMessage *message;
    GArray *array;
    gint default_position = 0;
    guint ii, length = 0;

    /* If the part list is NULL, it means the function was called
     * too early.  The part must be added to a part list first so
     * we have access to the CamelMimeMessage. */
    part_list = e_mail_part_ref_part_list (E_MAIL_PART (part));
    g_return_val_if_fail (part_list != NULL, NULL);

    list_store = gtk_list_store_new (
        E_MAIL_PART_HEADERS_PRINT_MODEL_NUM_COLUMNS,
        G_TYPE_BOOLEAN,  /* INCLUDE */
        G_TYPE_STRING,   /* HEADER_NAME */
        G_TYPE_STRING);  /* HEADER_VALUE */

    message = e_mail_part_list_get_message (part_list);
    array = camel_medium_get_headers (CAMEL_MEDIUM (message));

    if (array != NULL)
        length = array->len;

    for (ii = 0; ii < length; ii++) {
        CamelMediumHeader *header;
        GtkTreeIter iter;
        gboolean include = FALSE;
        gint position = -1;

        header = &g_array_index (array, CamelMediumHeader, ii);

        /* EMailFormatterPrintHeaders excludes "Subject" from
         * its header table (because it puts it in an <h1> tag
         * at the top of the page), so we'll exclude it too. */
        if (g_ascii_strncasecmp (header->name, "Subject", 7) == 0)
            continue;

        /* Arrange default headers first and select them to be
         * included in the final printout.  All other headers
         * are excluded by default in the final printout. */
        if (e_mail_part_headers_is_default (part, header->name)) {
            position = default_position++;
            include = TRUE;
        }

        gtk_list_store_insert (list_store, &iter, position);

        gtk_list_store_set (
            list_store, &iter,
            E_MAIL_PART_HEADERS_PRINT_MODEL_COLUMN_INCLUDE,
            include,
            E_MAIL_PART_HEADERS_PRINT_MODEL_COLUMN_HEADER_NAME,
            header->name,
            E_MAIL_PART_HEADERS_PRINT_MODEL_COLUMN_HEADER_VALUE,
            header->value,
            -1);
    }

    if (array != NULL)
        camel_medium_free_headers (CAMEL_MEDIUM (message), array);

    g_object_unref (part_list);

    /* Stash the print model internally. */

    g_mutex_lock (&part->priv->property_lock);

    g_clear_object (&part->priv->print_model);
    part->priv->print_model = g_object_ref (list_store);

    g_mutex_unlock (&part->priv->property_lock);

    return GTK_TREE_MODEL (list_store);
}

static void
mail_part_headers_set_property (GObject *object,
                                guint property_id,
                                const GValue *value,
                                GParamSpec *pspec)
{
    switch (property_id) {
        case PROP_DEFAULT_HEADERS:
            e_mail_part_headers_set_default_headers (
                E_MAIL_PART_HEADERS (object),
                g_value_get_boxed (value));
            return;
    }

    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
mail_part_headers_get_property (GObject *object,
                                guint property_id,
                                GValue *value,
                                GParamSpec *pspec)
{
    switch (property_id) {
        case PROP_DEFAULT_HEADERS:
            g_value_take_boxed (
                value,
                e_mail_part_headers_dup_default_headers (
                E_MAIL_PART_HEADERS (object)));
            return;
    }

    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
mail_part_headers_dispose (GObject *object)
{
    EMailPartHeadersPrivate *priv;

    priv = E_MAIL_PART_HEADERS_GET_PRIVATE (object);

    g_clear_object (&priv->print_model);

    /* Chain up to parent's dispose() method. */
    G_OBJECT_CLASS (e_mail_part_headers_parent_class)->dispose (object);
}

static void
mail_part_headers_finalize (GObject *object)
{
    EMailPartHeadersPrivate *priv;

    priv = E_MAIL_PART_HEADERS_GET_PRIVATE (object);

    g_mutex_clear (&priv->property_lock);

    g_strfreev (priv->default_headers);

    /* Chain up to parent's finalize() method. */
    G_OBJECT_CLASS (e_mail_part_headers_parent_class)->finalize (object);
}

static void
mail_part_headers_constructed (GObject *object)
{
    EMailPart *part;

    part = E_MAIL_PART (object);

    /* Chain up to parent's constructed() method. */
    G_OBJECT_CLASS (e_mail_part_headers_parent_class)->
        constructed (object);

    e_mail_part_set_mime_type (part, E_MAIL_PART_HEADERS_MIME_TYPE);
}

static void
mail_part_headers_bind_dom_element (EMailPart *part,
                                    WebKitDOMElement *element)
{
    WebKitDOMDocument *document;
    WebKitDOMElement *photo;
    gchar *addr, *uri;

    document = webkit_dom_node_get_owner_document (
        WEBKIT_DOM_NODE (element));
    photo = webkit_dom_document_get_element_by_id (
        document, "__evo-contact-photo");

    /* Contact photos disabled, the <img> tag is not there. */
    if (photo == NULL)
        return;

    addr = webkit_dom_element_get_attribute (photo, "data-mailaddr");
    uri = g_strdup_printf ("mail://contact-photo?mailaddr=%s", addr);

    webkit_dom_html_image_element_set_src (
        WEBKIT_DOM_HTML_IMAGE_ELEMENT (photo), uri);

    g_free (addr);
    g_free (uri);
}

static void
e_mail_part_headers_class_init (EMailPartHeadersClass *class)
{
    GObjectClass *object_class;
    EMailPartClass *mail_part_class;

    g_type_class_add_private (class, sizeof (EMailPartHeadersPrivate));

    object_class = G_OBJECT_CLASS (class);
    object_class->set_property = mail_part_headers_set_property;
    object_class->get_property = mail_part_headers_get_property;
    object_class->dispose = mail_part_headers_dispose;
    object_class->finalize = mail_part_headers_finalize;
    object_class->constructed = mail_part_headers_constructed;

    mail_part_class = E_MAIL_PART_CLASS (class);
    mail_part_class->bind_dom_element = mail_part_headers_bind_dom_element;

    g_object_class_install_property (
        object_class,
        PROP_DEFAULT_HEADERS,
        g_param_spec_boxed (
            "default-headers",
            "Default Headers",
            "Headers to display by default",
            G_TYPE_STRV,
            G_PARAM_READWRITE |
            G_PARAM_CONSTRUCT |
            G_PARAM_STATIC_STRINGS));
}

static void
e_mail_part_headers_init (EMailPartHeaders *part)
{
    part->priv = E_MAIL_PART_HEADERS_GET_PRIVATE (part);

    g_mutex_init (&part->priv->property_lock);
}

EMailPart *
e_mail_part_headers_new (CamelMimePart *mime_part,
                         const gchar *id)
{
    g_return_val_if_fail (id != NULL, NULL);

    return g_object_new (
        E_TYPE_MAIL_PART_HEADERS,
        "id", id, "mime-part", mime_part, NULL);
}

gchar **
e_mail_part_headers_dup_default_headers (EMailPartHeaders *part)
{
    gchar **default_headers;

    g_return_val_if_fail (E_IS_MAIL_PART_HEADERS (part), NULL);

    g_mutex_lock (&part->priv->property_lock);

    default_headers = g_strdupv (part->priv->default_headers);

    g_mutex_unlock (&part->priv->property_lock);

    return default_headers;
}

void
e_mail_part_headers_set_default_headers (EMailPartHeaders *part,
                                         const gchar * const *default_headers)
{
    g_return_if_fail (E_IS_MAIL_PART_HEADERS (part));

    if (default_headers == NULL)
        default_headers = basic_headers;

    g_mutex_lock (&part->priv->property_lock);

    g_strfreev (part->priv->default_headers);
    part->priv->default_headers = g_strdupv ((gchar **) default_headers);

    g_mutex_unlock (&part->priv->property_lock);

    g_object_notify (G_OBJECT (part), "default-headers");
}

gboolean
e_mail_part_headers_is_default (EMailPartHeaders *part,
                                const gchar *header_name)
{
    gboolean is_default = FALSE;
    guint ii, length = 0;

    g_return_val_if_fail (E_IS_MAIL_PART_HEADERS (part), FALSE);
    g_return_val_if_fail (header_name != NULL, FALSE);

    g_mutex_lock (&part->priv->property_lock);

    if (part->priv->default_headers != NULL)
        length = g_strv_length (part->priv->default_headers);

    for (ii = 0; ii < length; ii++) {
        const gchar *candidate;

        /* g_strv_length() stops on the first NULL pointer,
         * so we don't have to worry about this being NULL. */
        candidate = part->priv->default_headers[ii];

        if (g_ascii_strcasecmp (header_name, candidate) == 0) {
            is_default = TRUE;
            break;
        }
    }

    g_mutex_unlock (&part->priv->property_lock);

    return is_default;
}

GtkTreeModel *
e_mail_part_headers_ref_print_model (EMailPartHeaders *part)
{
    GtkTreeModel *print_model = NULL;

    g_return_val_if_fail (E_IS_MAIL_PART_HEADERS (part), NULL);

    g_mutex_lock (&part->priv->property_lock);

    if (part->priv->print_model != NULL)
        print_model = g_object_ref (part->priv->print_model);

    g_mutex_unlock (&part->priv->property_lock);

    if (print_model == NULL) {
        /* The print model is built once on demand. */
        print_model = mail_part_headers_build_print_model (part);
    }

    return print_model;
}