path: root/composer/e-msg-composer.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* e-msg-composer.c
 *
 * Copyright (C) 1999  Helix Code, Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * 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
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 *
 * Authors:
 *   Ettore Perazzoli (ettore@ximian.com)
 *   Jeffrey Stedfast (fejj@ximian.com)
 *   Miguel de Icaza  (miguel@ximian.com)
 * 
 */

/*

   TODO

   - Somehow users should be able to see if any file(s) are attached even when
     the attachment bar is not shown.

   Should use EventSources to keep track of global changes made to configuration
   values.  Right now it ignores the problem olympically. Miguel.
*/

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <errno.h>
#include <libgnome/gnome-defs.h>
#include <libgnome/gnome-config.h>
#include <libgnomeui/gnome-app.h>
#include <libgnomeui/gnome-uidefs.h>
#include <libgnomeui/gnome-dialog.h>
#include <libgnomeui/gnome-dialog-util.h>
#include <libgnomeui/gnome-stock.h>
#include <libgnomeui/gnome-window-icon.h>
#include <bonobo/bonobo-exception.h>
#include <bonobo/bonobo-moniker-util.h>
#include <bonobo/bonobo-object-client.h>
#include <bonobo/bonobo-stream-memory.h>
#include <bonobo/bonobo-ui-util.h>
#include <bonobo/bonobo-widget.h>
#include <libgnomevfs/gnome-vfs.h>

#include <glade/glade.h>
#include <gal/widgets/e-gui-utils.h>
#include <gal/widgets/e-scroll-frame.h>
#include <gtkhtml/gtkhtml.h>

#include "camel/camel.h"
#include "camel-charset-map.h"

#include "mail/mail.h"
#include "mail/mail-crypto.h"
#include "mail/mail-tools.h"
#include "mail/mail-ops.h"
#include "mail/mail-mt.h"

#include "e-util/e-html-utils.h"

#include "e-msg-composer.h"
#include "e-msg-composer-attachment-bar.h"
#include "e-msg-composer-hdrs.h"
#include "e-msg-composer-select-file.h"

#include "Editor.h"
#include "listener.h"

#define GNOME_GTKHTML_EDITOR_CONTROL_ID "OAFIID:GNOME_GtkHTML_Editor"


#define DEFAULT_WIDTH 600
#define DEFAULT_HEIGHT 500

enum {
    SEND,
    POSTPONE,
    LAST_SIGNAL
};

static guint signals[LAST_SIGNAL] = { 0 };

static GnomeAppClass *parent_class = NULL;

/* local prototypes */
static GList *add_recipients (GList *list, const char *recips, gboolean decode);
static void free_recipients (GList *list);
static void handle_multipart (EMsgComposer *composer, CamelMultipart *multipart, int depth);


static char *
get_text (Bonobo_PersistStream persist, char *format)
{
    BonoboStream *stream;
    BonoboStreamMem *stream_mem;
    CORBA_Environment ev;
    char *text;
    
    CORBA_exception_init (&ev);
    
    stream = bonobo_stream_mem_create (NULL, 0, FALSE, TRUE);
    Bonobo_PersistStream_save (persist, (Bonobo_Stream)bonobo_object_corba_objref (BONOBO_OBJECT (stream)),
                   format, &ev);
    if (ev._major != CORBA_NO_EXCEPTION) {
        g_warning ("Exception getting mail '%s'",
               bonobo_exception_get_text (&ev));
        return NULL;
    }
    
    CORBA_exception_free (&ev);
    
    stream_mem = BONOBO_STREAM_MEM (stream);
    text = g_malloc (stream_mem->pos + 1);
    memcpy (text, stream_mem->buffer, stream_mem->pos);
    text[stream_mem->pos] = 0;
    bonobo_object_unref (BONOBO_OBJECT(stream));
    
    return text;
}

#define LINE_LEN 72

typedef enum {
    MSG_FORMAT_PLAIN,
    MSG_FORMAT_ALTERNATIVE,
} MsgFormat;

static gboolean
is_8bit (const guchar *text)
{
    guchar *c;
    
    for (c = (guchar *) text; *c; c++)
        if (*c > (guchar) 127)
            return TRUE;
    
    return FALSE;
}

static int
best_encoding (const guchar *text)
{
    guchar *ch;
    int count = 0;
    int total;
    
    for (ch = (guchar *) text; *ch; ch++)
        if (*ch > (guchar) 127)
            count++;
    
    total = (int) (ch - text);
    
    if (count * 1.0 <= total * 0.17)
        return CAMEL_MIME_PART_ENCODING_QUOTEDPRINTABLE;
    else
        return CAMEL_MIME_PART_ENCODING_BASE64;
}

static char *
best_content (gchar *plain)
{
    char *result;
    const char *best;

    if ((best = camel_charset_best (plain, strlen (plain)))) {
        result = g_strdup_printf ("text/plain; charset=%s", best);
    } else {
        result = g_strdup ("text/plain");
    }

    return result;
}

static gboolean
clear_inline_images (gpointer key, gpointer value, gpointer user_data)
{
    g_free (key);
    g_free (value);

    return TRUE;
}

void
e_msg_composer_clear_inlined_table (EMsgComposer *composer)
{
    g_hash_table_foreach_remove (composer->inline_images, clear_inline_images, NULL);
}

static void
add_inlined_image (gpointer key, gpointer value, gpointer data)
{
    gchar *file_name          = (gchar *) key;
    gchar *cid                = (gchar *) value;
    gchar *mime_type;
    CamelMultipart *multipart = (CamelMultipart *) data;
    CamelStream *stream;
    CamelDataWrapper *wrapper;
    CamelMimePart *part;
    struct stat statbuf;

    /* check for regular file */
    if (stat (file_name, &statbuf) < 0 || !S_ISREG (statbuf.st_mode))
        return;

    if (!(stream = camel_stream_fs_new_with_name (file_name, O_RDONLY, 0)))
        return;

    wrapper = camel_data_wrapper_new ();
    camel_data_wrapper_construct_from_stream (wrapper, stream);
    camel_object_unref (CAMEL_OBJECT (stream));

    mime_type = e_msg_composer_guess_mime_type (file_name);
    camel_data_wrapper_set_mime_type (wrapper, mime_type ? mime_type : "application/octet-stream");
    g_free (mime_type);

    part = camel_mime_part_new ();
    camel_medium_set_content_object (CAMEL_MEDIUM (part), wrapper);
    camel_object_unref (CAMEL_OBJECT (wrapper));

    camel_mime_part_set_content_id (part, cid);
    /* FIXME: should this use g_basename (file_name)? */
    camel_mime_part_set_filename (part, strchr (file_name, '/') ? strrchr (file_name, '/') + 1 : file_name);
    camel_mime_part_set_encoding (part, CAMEL_MIME_PART_ENCODING_BASE64);

    camel_multipart_add_part (multipart, part);
    camel_object_unref (CAMEL_OBJECT (part));
}

static void
add_inlined_images (EMsgComposer *composer, CamelMultipart *multipart)
{
    g_hash_table_foreach (composer->inline_images, add_inlined_image, multipart);
}

/* This functions builds a CamelMimeMessage for the message that the user has
   composed in `composer'.  */
static CamelMimeMessage *
build_message (EMsgComposer *composer)
{
    EMsgComposerAttachmentBar *attachment_bar =
        E_MSG_COMPOSER_ATTACHMENT_BAR (composer->attachment_bar);
    MsgFormat type = MSG_FORMAT_ALTERNATIVE;
    CamelInternetAddress *from;
    CamelMimeMessage *new;
    CamelMultipart *body = NULL;
    CamelMimePart *part;
    gboolean plain_e8bit = FALSE, html_e8bit = FALSE;
    CamelException ex;
    char *html = NULL, *plain = NULL;
    char *content_type = NULL;
    int i;
    
    if (composer->persist_stream_interface == CORBA_OBJECT_NIL)
        return NULL;
    
    if (composer->send_html)
        type = MSG_FORMAT_ALTERNATIVE;
    else
        type = MSG_FORMAT_PLAIN;
    
    /* get and/or set the From field */
    from = e_msg_composer_hdrs_get_from (E_MSG_COMPOSER_HDRS (composer->hdrs));
    if (!from) {
        const MailConfigAccount *account = NULL;
        
        account = mail_config_get_default_account ();
        
        /* if !account then we have mucho problemos, amigo */
        if (!account)
            return NULL;
        
        e_msg_composer_hdrs_set_from_account (E_MSG_COMPOSER_HDRS (composer->hdrs), account->name);
    }
    camel_object_unref (CAMEL_OBJECT (from));
    
    new = camel_mime_message_new ();
    
    e_msg_composer_hdrs_to_message (E_MSG_COMPOSER_HDRS (composer->hdrs), new);
    for (i = 0; i < composer->extra_hdr_names->len; i++) {
        camel_medium_add_header (CAMEL_MEDIUM (new),
                     composer->extra_hdr_names->pdata[i],
                     composer->extra_hdr_values->pdata[i]);
    }
    
    plain = get_text (composer->persist_stream_interface, "text/plain");
    
    /* the component has probably died */ 
    if (plain == NULL)
        return NULL;
    
    plain_e8bit = is_8bit (plain);
    
    if (type != MSG_FORMAT_PLAIN) {
        e_msg_composer_clear_inlined_table (composer);
        html = get_text (composer->persist_stream_interface, "text/html");
        
        html_e8bit = is_8bit (html);
        /* the component has probably died */
        if (html == NULL) {
            g_free (plain);
            return NULL;
        }
    }
    
    if (type == MSG_FORMAT_ALTERNATIVE) {
        body = camel_multipart_new ();
        camel_data_wrapper_set_mime_type (CAMEL_DATA_WRAPPER (body),
                          "multipart/alternative");
        camel_multipart_set_boundary (body, NULL);
        
        part = camel_mime_part_new ();
        
        content_type = best_content (plain);
        camel_mime_part_set_content (part, plain, strlen (plain), content_type);
        g_free (content_type);
        
        if (plain_e8bit)
            camel_mime_part_set_encoding (part, best_encoding (plain));     
        
        g_free (plain);
        camel_multipart_add_part (body, part);
        camel_object_unref (CAMEL_OBJECT (part));
        
        part = camel_mime_part_new ();
        if (g_hash_table_size (composer->inline_images)) {
            CamelMultipart *html_with_images;
            CamelMimePart  *text_html;
            
            html_with_images = camel_multipart_new ();
            camel_data_wrapper_set_mime_type (CAMEL_DATA_WRAPPER (html_with_images),
                              "multipart/related");
            camel_multipart_set_boundary (html_with_images, NULL);
            
            text_html = camel_mime_part_new ();
            camel_mime_part_set_content (text_html, html, strlen (html), "text/html; charset=utf-8");
            
            if (html_e8bit)
                camel_mime_part_set_encoding (text_html, best_encoding (html));     
            
            camel_multipart_add_part (html_with_images, text_html);
            camel_object_unref (CAMEL_OBJECT (text_html));
            
            add_inlined_images (composer, html_with_images);
            camel_medium_set_content_object (CAMEL_MEDIUM (part),
                             CAMEL_DATA_WRAPPER (html_with_images));
        } else {
            camel_mime_part_set_content (part, html, strlen (html), "text/html; charset=utf-8");
            
            if (html_e8bit)
                camel_mime_part_set_encoding (part, best_encoding (html));      
        }
        
        g_free (html);
        
        camel_multipart_add_part (body, part);
        camel_object_unref (CAMEL_OBJECT (part));
    }
    
    if (e_msg_composer_attachment_bar_get_num_attachments (attachment_bar)) {
        CamelMultipart *multipart = camel_multipart_new ();
        
        /* Generate a random boundary. */
        camel_multipart_set_boundary (multipart, NULL);
        
        part = camel_mime_part_new ();
        switch (type) {
        case MSG_FORMAT_ALTERNATIVE:
            camel_medium_set_content_object (CAMEL_MEDIUM (part),
                             CAMEL_DATA_WRAPPER (body));
            camel_object_unref (CAMEL_OBJECT (body));
            break;
        case MSG_FORMAT_PLAIN:
            content_type = best_content (plain);
            camel_mime_part_set_content (part, plain, strlen (plain), content_type);
            g_free (content_type);
            
            if (plain_e8bit)
                camel_mime_part_set_encoding (part, best_encoding (plain));
            
            g_free (plain);
            break;
        }
        camel_multipart_add_part (multipart, part);
        camel_object_unref (CAMEL_OBJECT (part));
        
        e_msg_composer_attachment_bar_to_multipart (attachment_bar, multipart);
        
        part = camel_mime_part_new ();
        camel_medium_set_content_object (CAMEL_MEDIUM (part), CAMEL_DATA_WRAPPER (multipart));
        camel_object_unref (CAMEL_OBJECT (multipart));
    } else {
        switch (type) {
        case MSG_FORMAT_ALTERNATIVE:
            part = camel_mime_part_new ();
            
            camel_medium_set_content_object (CAMEL_MEDIUM (part), CAMEL_DATA_WRAPPER (body));
            camel_object_unref (CAMEL_OBJECT (body));
            break;
        case MSG_FORMAT_PLAIN:
            /* FIXME: this is just evil... */
            if (!(composer->pgp_sign || composer->pgp_encrypt ||
                  composer->smime_sign || composer->smime_encrypt))
                part = CAMEL_MIME_PART (new);
            else
                part = camel_mime_part_new ();
            
            content_type = best_content (plain);
            camel_mime_part_set_content (CAMEL_MIME_PART (part), plain, strlen (plain), content_type);
            g_free (content_type);
            
            if (plain_e8bit)
                camel_mime_part_set_encoding (part, best_encoding (plain));
            
            g_free (plain);
            
            break;
        }
    }
    
    camel_exception_init (&ex);
    
    if (composer->pgp_sign) {
        /* FIXME: should use the PGP key id rather than email address */
        const char *pgpid;
        
        camel_exception_init (&ex);
        from = e_msg_composer_hdrs_get_from (E_MSG_COMPOSER_HDRS (composer->hdrs));
        camel_internet_address_get (from, 0, NULL, &pgpid);
        mail_crypto_pgp_mime_part_sign (&part, pgpid, CAMEL_CIPHER_HASH_SHA1,
                        &ex);
        camel_object_unref (CAMEL_OBJECT (from));
        if (camel_exception_is_set (&ex))
            goto exception;
    }
    
    if (composer->pgp_encrypt) {
        /* FIXME: recipients should be an array of key ids rather than email addresses */
        const CamelInternetAddress *addr;
        const char *address;
        GPtrArray *recipients;
        int i, len;
        
        camel_exception_init (&ex);
        recipients = g_ptr_array_new ();
        
        addr = camel_mime_message_get_recipients (new, CAMEL_RECIPIENT_TYPE_TO);
        len = camel_address_length (CAMEL_ADDRESS (addr));
        for (i = 0; i < len; i++) {
            camel_internet_address_get (addr, i, NULL, &address);
            g_ptr_array_add (recipients, g_strdup (address));
        }
        
        addr = camel_mime_message_get_recipients (new, CAMEL_RECIPIENT_TYPE_CC);
        len = camel_address_length (CAMEL_ADDRESS (addr));
        for (i = 0; i < len; i++) {
            camel_internet_address_get (addr, i, NULL, &address);
            g_ptr_array_add (recipients, g_strdup (address));
        }
        
        addr = camel_mime_message_get_recipients (new, CAMEL_RECIPIENT_TYPE_BCC);
        len = camel_address_length (CAMEL_ADDRESS (addr));
        for (i = 0; i < len; i++) {
            camel_internet_address_get (addr, i, NULL, &address);
            g_ptr_array_add (recipients, g_strdup (address));
        }
        
        mail_crypto_pgp_mime_part_encrypt (&part, recipients, &ex);
        for (i = 0; i < recipients->len; i++)
            g_free (recipients->pdata[i]);
        g_ptr_array_free (recipients, TRUE);
        if (camel_exception_is_set (&ex))
            goto exception;
    }
    
#ifdef HAVE_NSS
    if (composer->smime_sign) {
        /* FIXME: should use the S/MIME signature certificate email address */
        const char *address;
        
        camel_exception_init (&ex);
        from = e_msg_composer_hdrs_get_from (E_MSG_COMPOSER_HDRS (composer->hdrs));
        camel_internet_address_get (from, 0, NULL, &address);
        mail_crypto_smime_part_sign (&part, address, CAMEL_CIPHER_HASH_SHA1,
                         &ex);
        camel_object_unref (CAMEL_OBJECT (from));
        if (camel_exception_is_set (&ex))
            goto exception;
    }
    
    if (composer->smime_encrypt) {
        /* FIXME: recipients should be an array of certificates rather than email addresses */
        const CamelInternetAddress *addr;
        const char *address;
        GPtrArray *recipients;
        int i, len;
        
        camel_exception_init (&ex);
        recipients = g_ptr_array_new ();
        
        addr = camel_mime_message_get_recipients (new, CAMEL_RECIPIENT_TYPE_TO);
        len = camel_address_length (CAMEL_ADDRESS (addr));
        for (i = 0; i < len; i++) {
            camel_internet_address_get (addr, i, NULL, &address);
            g_ptr_array_add (recipients, g_strdup (address));
        }
        
        addr = camel_mime_message_get_recipients (new, CAMEL_RECIPIENT_TYPE_CC);
        len = camel_address_length (CAMEL_ADDRESS (addr));
        for (i = 0; i < len; i++) {
            camel_internet_address_get (addr, i, NULL, &address);
            g_ptr_array_add (recipients, g_strdup (address));
        }
        
        addr = camel_mime_message_get_recipients (new, CAMEL_RECIPIENT_TYPE_BCC);
        len = camel_address_length (CAMEL_ADDRESS (addr));
        for (i = 0; i < len; i++) {
            camel_internet_address_get (addr, i, NULL, &address);
            g_ptr_array_add (recipients, g_strdup (address));
        }
        
        mail_crypto_smime_part_encrypt (&part, recipients, &ex);
        for (i = 0; i < recipients->len; i++)
            g_free (recipients->pdata[i]);
        g_ptr_array_free (recipients, TRUE);
        if (camel_exception_is_set (&ex))
            goto exception;
    }
#else
    if (composer->smime_sign || composer->smime_encrypt) {
        camel_exception_setv (&ex, CAMEL_EXCEPTION_SYSTEM,
                      _("This version of Evolution was not built with support for S/MIME.\n"
                    "You may wish to instead use PGP to %s your document."),
                      composer->smime_sign && composer->smime_encrypt ? _("sign and encrypt") :
                      (composer->smime_sign ? _("sign") : _("encrypt")));
        goto exception;
    }
#endif /* HAVE_NSS */
    
    /* set the toplevel mime part of the message */
    if (part != CAMEL_MIME_PART (new)) {
        camel_medium_set_content_object (CAMEL_MEDIUM (new),
                         camel_medium_get_content_object (CAMEL_MEDIUM (part)));
        camel_object_unref (CAMEL_OBJECT (part));
    }
    
    return new;
    
 exception:
    
    if (part != CAMEL_MIME_PART (new))
        camel_object_unref (CAMEL_OBJECT (part));
    
    camel_object_unref (CAMEL_OBJECT (new));
    
    if (camel_exception_is_set (&ex)) {
        GtkWidget *dialog;
        
        dialog = gnome_error_dialog_parented (camel_exception_get_description (&ex),
                              GTK_WINDOW (composer));
        gnome_dialog_run_and_close (GNOME_DIALOG (dialog));
        camel_exception_clear (&ex);
    }
    
    return NULL;
}

static char *
get_sig_file_content (const char *sigfile, gboolean in_html)
{
    GString *rawsig;
    gchar  buf[1024];
    gchar *file_name;
    gchar *htmlsig = NULL;
    int fd, n;

    if (!sigfile || !*sigfile) {
        return NULL;
    }

    file_name = in_html ? g_strconcat (sigfile, ".html", NULL) : (gchar *) sigfile;
    
    fd = open (file_name, O_RDONLY);
    if (fd == -1) {
        char *msg;
        
        msg = g_strdup_printf (_("Could not open signature file %s:\n"
                     "%s"), file_name, g_strerror (errno));
        gnome_error_dialog (msg);
        g_free (msg);
        
        htmlsig = NULL;
    } else {
        rawsig = g_string_new ("");
        while ((n = read (fd, buf, 1023)) > 0) {
            buf[n] = '\0';
            g_string_append (rawsig, buf);
        }
        close (fd);

        htmlsig = in_html ? rawsig->str : e_text_to_html (rawsig->str, 0);
        g_string_free (rawsig, !in_html);
    }
    if (in_html) g_free (file_name);

    return htmlsig;
}

static void
prepare_engine (EMsgComposer *composer)
{
    CORBA_Environment ev;

    g_assert (composer);
    g_assert (E_IS_MSG_COMPOSER (composer));

    /* printf ("prepare_engine\n"); */

    CORBA_exception_init (&ev);
    composer->editor_engine = (GNOME_GtkHTML_Editor_Engine) bonobo_object_client_query_interface
        (bonobo_widget_get_server (BONOBO_WIDGET (composer->editor)), "IDL:GNOME/GtkHTML/Editor/Engine:1.0", &ev);
    if (composer->editor_engine != CORBA_OBJECT_NIL) {
        
        /* printf ("trying set listener\n"); */
        composer->editor_listener = BONOBO_OBJECT (listener_new (composer));
        if (composer->editor_listener != CORBA_OBJECT_NIL)
            GNOME_GtkHTML_Editor_Engine__set_listener (composer->editor_engine,
                                   (GNOME_GtkHTML_Editor_Listener)
                                   bonobo_object_dup_ref
                                   (bonobo_object_corba_objref (composer->editor_listener), &ev),
                                   &ev);
        else
            g_warning ("Can't establish Editor Listener\n");
    } else
        g_warning ("Can't get Editor Engine\n");
    CORBA_exception_free (&ev);
}

static gchar *
get_signature_html (EMsgComposer *composer)
{
    gboolean format_html = composer->send_html;
    gchar *text, *html = NULL;

    text = get_sig_file_content (composer->sig_file, format_html);
    /* if we tried HTML sig and it's not available, try also non HTML signature */
    if (format_html && !text) {
        format_html = FALSE;
        text        = get_sig_file_content (composer->sig_file, format_html);
    }

    if (text) {
        html = g_strdup_printf ("<!--+GtkHTML:<DATA class=\"ClueFlow\" key=\"signature\" value=\"1\">-->"
                    "<TABLE WIDTH=\"100%%\" CELLSPACING=\"0\" CELLPADDING=\"0\"><TR><TD>"
                    "%s%s%s%s"
                    "</TD></TR></TABLE>",
                    format_html ? "" : "<PRE>\n",
                    format_html || !strncmp ("-- \n", text, 3) ? "" : "--\n",
                    text,
                    format_html ? "" : "</PRE>\n");
        g_free (text);
        text = html;
    }

    return text;
}

static void
set_editor_text (EMsgComposer *composer, const char *text)
{
    Bonobo_PersistStream persist;
    BonoboStream *stream;
    BonoboWidget *editor;
    CORBA_Environment ev;

    editor = BONOBO_WIDGET (composer->editor);
    
    CORBA_exception_init (&ev);
    persist = (Bonobo_PersistStream) bonobo_object_client_query_interface (
        bonobo_widget_get_server (editor), "IDL:Bonobo/PersistStream:1.0", &ev);
    g_assert (persist != CORBA_OBJECT_NIL);
    
    stream = bonobo_stream_mem_create (text, strlen (text),
                       TRUE, FALSE);
    Bonobo_PersistStream_load (persist, (Bonobo_Stream)bonobo_object_corba_objref (BONOBO_OBJECT (stream)),
                   "text/html", &ev);
    if (ev._major != CORBA_NO_EXCEPTION) {
        /* FIXME. Some error message. */
        return;
    }
    if (ev._major != CORBA_SYSTEM_EXCEPTION)
        CORBA_Object_release (persist, &ev);
    
    Bonobo_Unknown_unref (persist, &ev);
    CORBA_exception_free (&ev);
    bonobo_object_unref (BONOBO_OBJECT(stream));
}

static void
set_config (EMsgComposer *composer, char *key, int val)
{
    if (composer->property_bag){
        CORBA_Environment ev;
        CORBA_exception_init (&ev);

        bonobo_property_bag_client_set_value_gint (
            composer->property_bag, key, val, &ev);
        CORBA_exception_free (&ev);
        return;
    } else {
        char *full_key;
        
        full_key = g_strconcat ("Evolution/Composer/", key, NULL);
        gnome_config_set_int (full_key, val);
        g_free (full_key);
    }
}


/* Commands.  */

static void
show_attachments (EMsgComposer *composer,
          gboolean show)
{
    if (show) {
        gtk_widget_show (composer->attachment_scroll_frame);
        gtk_widget_show (composer->attachment_bar);
    } else {
        gtk_widget_hide (composer->attachment_scroll_frame);
        gtk_widget_hide (composer->attachment_bar);
    }

    composer->attachment_bar_visible = show;

    /* Update the GUI.  */

#if 0
    gtk_check_menu_item_set_active
        (GTK_CHECK_MENU_ITEM
         (glade_xml_get_widget (composer->menubar_gui,
                    "menu_view_attachments")),
         show);
#endif

    /* XXX we should update the toggle toolbar item as well.  At
       this point, it is not a toggle because Glade is broken.  */
}

static void
save (EMsgComposer *composer,
      const char *file_name)
{
    CORBA_Environment ev;
    char *my_file_name;

    if (file_name != NULL)
        my_file_name = g_strdup (file_name);
    else
        my_file_name = e_msg_composer_select_file (composer, _("Save as..."));

    if (my_file_name == NULL)
        return;

    CORBA_exception_init (&ev);

    Bonobo_PersistFile_save (composer->persist_file_interface, my_file_name, &ev);

    if (ev._major != CORBA_NO_EXCEPTION) {
        e_notice (GTK_WINDOW (composer), GNOME_MESSAGE_BOX_ERROR,
              _("Error saving file: %s"), g_basename (file_name));
    }

    CORBA_exception_free (&ev);

    g_free (my_file_name);
}

static void
load (EMsgComposer *composer,
      const char *file_name)
{
    CORBA_Environment ev;

    CORBA_exception_init (&ev);

    Bonobo_PersistFile_load (composer->persist_file_interface, file_name, &ev);

    if (ev._major != CORBA_NO_EXCEPTION)
        e_notice (GTK_WINDOW (composer), GNOME_MESSAGE_BOX_ERROR,
              _("Error loading file: %s"), g_basename (file_name));

    CORBA_exception_free (&ev);
}

/* Exit dialog.  (Displays a "Save composition to 'Drafts' before exiting?" warning before actually exiting.)  */

enum { REPLY_YES = 0, REPLY_NO, REPLY_CANCEL };

struct _save_info {
    EMsgComposer *composer;
    int quitok;
};

static void
save_done (CamelFolder *folder, CamelMimeMessage *msg, CamelMessageInfo *info, int ok, void *data)
{
    struct _save_info *si = data;

    if (ok && si->quitok)
        gtk_widget_destroy (GTK_WIDGET (si->composer));
    else
        gtk_object_unref (GTK_OBJECT (si->composer));

    g_free (info);
    g_free (si);
}

extern CamelFolder *drafts_folder;
extern char *default_drafts_folder_uri;

static void
use_default_drafts_cb (gint reply, gpointer data)
{
    CamelFolder **folder = data;

    if (reply == 0)
        *folder = drafts_folder;
}

static void
save_folder (char *uri, CamelFolder *folder, gpointer data)
{
    CamelFolder **save = data;

    if (folder) {
        *save = folder;
        camel_object_ref (CAMEL_OBJECT (folder));
    }
}

static void
save_draft (EMsgComposer *composer, int quitok)
{
    CamelMimeMessage *msg;
    CamelMessageInfo *info;
    const MailConfigAccount *account;
    struct _save_info *si;
    gboolean old_send_html;
    CamelFolder *folder = NULL;

    account = e_msg_composer_get_preferred_account (composer);
    if (account && account->drafts_folder_uri &&
        strcmp (account->drafts_folder_uri, default_drafts_folder_uri) != 0) {
        int id;

        id = mail_get_folder (account->drafts_folder_uri, save_folder, &folder);
        mail_msg_wait (id);

        if (!folder) {
            GtkWidget *dialog;

            dialog = gnome_ok_cancel_dialog_parented (_("Unable to open the drafts folder for this account.\n"
                                    "Would you like to use the default drafts folder?"),
                                  use_default_drafts_cb, &folder, GTK_WINDOW (composer));
            gnome_dialog_run_and_close (GNOME_DIALOG (dialog));
            if (!folder)
                return;
        }
    } else
        folder = drafts_folder;

    /* always save drafts as HTML to keep formatting */
    old_send_html = composer->send_html;
    composer->send_html = TRUE;
    msg = e_msg_composer_get_message (composer);
    composer->send_html = old_send_html;
    
    info = g_new0 (CamelMessageInfo, 1);
    info->flags = CAMEL_MESSAGE_DRAFT | CAMEL_MESSAGE_SEEN;
    
    si = g_malloc (sizeof (*si));
    si->composer = composer;
    gtk_object_ref (GTK_OBJECT (composer));
    si->quitok = quitok;
    
    mail_append_mail (folder, msg, info, save_done, si);
    camel_object_unref (CAMEL_OBJECT (msg));
}

static void
menu_file_save_draft_cb (BonoboUIComponent *uic, void *data, const char *path)
{
    save_draft (E_MSG_COMPOSER (data), FALSE);
}

static void
exit_dialog_cb (int reply, EMsgComposer *composer)
{
    switch (reply) {
    case REPLY_YES:
        /* this has to be done async */
        save_draft(composer, TRUE);
        break;
    case REPLY_NO:
        gtk_widget_destroy (GTK_WIDGET (composer));
        break;
    case REPLY_CANCEL:
    default:
    }
}

static void
do_exit (EMsgComposer *composer)
{
    GtkWidget *dialog;
    GtkWidget *label;
    gint button;
    
    if (composer->has_changed) {
        dialog = gnome_dialog_new (_("Evolution"),
                       GNOME_STOCK_BUTTON_YES,      /* Save */
                       GNOME_STOCK_BUTTON_NO,       /* Don't save */
                       GNOME_STOCK_BUTTON_CANCEL,   /* Cancel */
                       NULL);
        
        label = gtk_label_new (_("This message has not been sent.\n\nDo you wish to save your changes?"));
        gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), label, TRUE, TRUE, 0);
        gtk_widget_show (label);
        gnome_dialog_set_parent (GNOME_DIALOG (dialog), GTK_WINDOW (composer));
        gnome_dialog_set_default (GNOME_DIALOG (dialog), 0);
        button = gnome_dialog_run_and_close (GNOME_DIALOG (dialog));
        
        exit_dialog_cb (button, composer);
    } else {
        gtk_widget_destroy (GTK_WIDGET (composer));
    }
}

/* Menu callbacks.  */

static void
menu_file_open_cb (BonoboUIComponent *uic,
           void *data,
           const char *path)
{
    EMsgComposer *composer;
    char *file_name;
    
    composer = E_MSG_COMPOSER (data);
    
    file_name = e_msg_composer_select_file (composer, _("Open file"));
    if (file_name == NULL)
        return;
    
    load (composer, file_name);
    
    g_free (file_name);
}

static void
menu_file_save_cb (BonoboUIComponent *uic,
           void *data,
           const char *path)
{
    EMsgComposer *composer;
    CORBA_char *file_name;
    CORBA_Environment ev;
    
    composer = E_MSG_COMPOSER (data);
    
    CORBA_exception_init (&ev);
    
    file_name = Bonobo_PersistFile_getCurrentFile (composer->persist_file_interface, &ev);
    
    if (ev._major != CORBA_NO_EXCEPTION) {
        save (composer, NULL);
    } else {
        save (composer, file_name);
        CORBA_free (file_name);
    }
    
    CORBA_exception_free (&ev);
}

static void
menu_file_save_as_cb (BonoboUIComponent *uic,
              void *data,
              const char *path)
{
    EMsgComposer *composer;
    
    composer = E_MSG_COMPOSER (data);
    
    save (composer, NULL);
}

static void
menu_file_send_cb (BonoboUIComponent *uic,
           void *data,
           const char *path)
{
    gtk_signal_emit (GTK_OBJECT (data), signals[SEND]);
}

static void
menu_file_send_later_cb (BonoboUIComponent *uic,
             void *data,
             const char *path)
{
    gtk_signal_emit (GTK_OBJECT (data), signals[POSTPONE]);
}

static void
menu_file_close_cb (BonoboUIComponent *uic,
            void *data,
            const char *path)
{
    EMsgComposer *composer;
    
    composer = E_MSG_COMPOSER (data);
    do_exit (composer);
}
    
static void
menu_file_add_attachment_cb (BonoboUIComponent *uic,
                 void *data,
                 const char *path)
{
    EMsgComposer *composer;
    
    composer = E_MSG_COMPOSER (data);
    
    e_msg_composer_attachment_bar_attach
        (E_MSG_COMPOSER_ATTACHMENT_BAR (composer->attachment_bar),
         NULL);
}

static void
menu_view_attachments_activate_cb (BonoboUIComponent           *component,
                   const char                  *path,
                   Bonobo_UIComponent_EventType type,
                   const char                  *state,
                   gpointer                     user_data)

{
    gboolean new_state;
    
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;
    
    new_state = atoi (state);
    
    e_msg_composer_show_attachments (E_MSG_COMPOSER (user_data), new_state);
}

#if 0
static void
insert_file_ok_cb (GtkWidget *widget, void *user_data)
{
    GtkFileSelection *fs;
    GdkAtom selection_atom = GDK_NONE;
    char *name;
    EMsgComposer *composer;
    struct stat sb;
    int fd;
    guint8 *buffer;
    size_t bufsz, actual;
    
    fs = GTK_FILE_SELECTION (gtk_widget_get_ancestor (widget,
                              GTK_TYPE_FILE_SELECTION));
    composer = E_MSG_COMPOSER (user_data);
    name = gtk_file_selection_get_filename (fs);
    
    if (stat (name, &sb) < 0) {
        GtkWidget *dlg;
        
        dlg = gnome_error_dialog_parented( _("That file does not exist."),
                           GTK_WINDOW (fs));
        gnome_dialog_run_and_close (GNOME_DIALOG (dlg));
        gtk_widget_destroy (GTK_WIDGET (dlg));
        return;
    }
    
    if (!(S_ISREG (sb.st_mode))) {
        GtkWidget *dlg;
        
        dlg = gnome_error_dialog_parented (_("That is not a regular file."),
                           GTK_WINDOW (fs));
        gnome_dialog_run_and_close (GNOME_DIALOG (dlg));
        gtk_widget_destroy (GTK_WIDGET (dlg));
        return;
    }
    
    if (access (name, R_OK) != 0) {
        GtkWidget *dlg;
        
        dlg = gnome_error_dialog_parented (_("That file exists but is not readable."),
                           GTK_WINDOW (fs));
        gnome_dialog_run_and_close (GNOME_DIALOG (dlg));
        gtk_widget_destroy (GTK_WIDGET (dlg));
        return;
    }
    
    if ((fd = open (name, O_RDONLY)) < 0) {
        GtkWidget *dlg;
        
        dlg = gnome_error_dialog_parented (_("That file appeared accesible but open(2) failed."),
                           GTK_WINDOW (fs));
        gnome_dialog_run_and_close (GNOME_DIALOG (dlg));
        gtk_widget_destroy (GTK_WIDGET (dlg));
        return;
    }
    
    buffer = NULL;
    bufsz = 0;
    actual = 0;
#define CHUNK 5120
    
    while (TRUE) {
        ssize_t chunk;
        
        if (bufsz - actual < CHUNK) {
            bufsz += CHUNK;
            
            if (bufsz >= 102400) {
                GtkWidget *dlg;
                gint result;
                
                dlg = gnome_dialog_new (_("The file is very large (more than 100K).\n"
                              "Are you sure you wish to insert it?"),
                            GNOME_STOCK_BUTTON_YES,
                            GNOME_STOCK_BUTTON_NO,
                            NULL);
                gnome_dialog_set_parent (GNOME_DIALOG (dlg), GTK_WINDOW (fs));
                result = gnome_dialog_run_and_close (GNOME_DIALOG (dlg));
                gtk_widget_destroy (GTK_WIDGET (dlg));
                
                if (result == 1)
                    goto cleanup;
            }
            
            buffer = g_realloc (buffer, bufsz * sizeof (guint8));
        }
        
        chunk = read (fd, &(buffer[actual]), CHUNK);

        if (chunk < 0) {
            GtkWidget *dlg;
            
            dlg = gnome_error_dialog_parented (_("An error occurred while reading the file."),
                               GTK_WINDOW (fs));
            gnome_dialog_run_and_close (GNOME_DIALOG (dlg));
            gtk_widget_destroy (GTK_WIDGET (dlg));
            goto cleanup;
        }
        
        if (chunk == 0)
            break;
        
        actual += chunk;
    }
    
    buffer[actual] = '\0';
    
    if (selection_atom == GDK_NONE)
        selection_atom = gdk_atom_intern ("TEMP_PASTE", FALSE);
    gtk_object_set_data (GTK_OBJECT (fs), "ev_file_buffer", buffer);
    gtk_selection_owner_set (GTK_WIDGET (fs), selection_atom, GDK_CURRENT_TIME);
    /*gtk_html_paste (composer->send_html);*/
    
 cleanup:
    close (fd);
    g_free (buffer);
    gtk_widget_destroy (GTK_WIDGET (fs));
}

static void
fs_selection_get (GtkWidget *widget, GtkSelectionData *sdata,
          guint info, guint time)
{
    gchar *buffer;
    GdkAtom encoding;
    gint format;
    guchar *ctext;
    gint length;
    
    buffer = gtk_object_get_data (GTK_OBJECT (widget), "ev_file_buffer");
    if (gdk_string_to_compound_text (buffer, &encoding, &format, &ctext,
                     &length) == Success)
        gtk_selection_data_set (sdata, encoding, format, ctext, length);
    g_free (buffer);
    gtk_object_remove_data (GTK_OBJECT (widget), "ev_file_buffer");
}
#endif

static void
menu_file_insert_file_cb (BonoboUIComponent *uic,
              void *data,
              const char *path)
{
#if 0
    EMsgComposer *composer;
    GtkFileSelection *fs;
    
    composer = E_MSG_COMPOSER (data);
    
    fs = GTK_FILE_SELECTION (gtk_file_selection_new ("Choose File"));
    /* FIXME: remember the location or something */
    /*gtk_file_selection_set_filename( fs, g_get_home_dir() );*/
    gtk_signal_connect (GTK_OBJECT (fs->ok_button), "clicked",
                GTK_SIGNAL_FUNC (insert_file_ok_cb), data);
    gtk_signal_connect_object (GTK_OBJECT (fs->cancel_button), 
                   "clicked",
                   GTK_SIGNAL_FUNC (gtk_widget_destroy), 
                   GTK_OBJECT (fs));
    gtk_widget_show (GTK_WIDGET(fs));
#else
    g_message ("Insert file is unimplemented! oh no!");
#endif
}

static void
menu_format_html_cb (BonoboUIComponent           *component,
             const char                  *path,
             Bonobo_UIComponent_EventType type,
             const char                  *state,
             gpointer                     user_data)

{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;
    
    e_msg_composer_set_send_html (E_MSG_COMPOSER (user_data), atoi (state));
}

static void
menu_security_pgp_sign_cb (BonoboUIComponent           *component,
               const char                  *path,
               Bonobo_UIComponent_EventType type,
               const char                  *state,
               gpointer                     composer)

{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;
    
    e_msg_composer_set_pgp_sign (E_MSG_COMPOSER (composer), atoi (state));
}

static void
menu_security_pgp_encrypt_cb (BonoboUIComponent           *component,
                  const char                  *path,
                  Bonobo_UIComponent_EventType type,
                  const char                  *state,
                  gpointer                     composer)

{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;
    
    e_msg_composer_set_pgp_encrypt (E_MSG_COMPOSER (composer), atoi (state));
}

static void
menu_security_smime_sign_cb (BonoboUIComponent           *component,
                 const char                  *path,
                 Bonobo_UIComponent_EventType type,
                 const char                  *state,
                 gpointer                     composer)

{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;
    
    e_msg_composer_set_smime_sign (E_MSG_COMPOSER (composer), atoi (state));
}

static void
menu_security_smime_encrypt_cb (BonoboUIComponent           *component,
                const char                  *path,
                Bonobo_UIComponent_EventType type,
                const char                  *state,
                gpointer                     composer)

{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;
    
    e_msg_composer_set_smime_encrypt (E_MSG_COMPOSER (composer), atoi (state));
}


static void
menu_view_from_cb (BonoboUIComponent           *component,
           const char                  *path,
           Bonobo_UIComponent_EventType type,
           const char                  *state,
           gpointer                     user_data)
{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;

    e_msg_composer_set_view_from (E_MSG_COMPOSER (user_data), atoi (state));
}

static void
menu_view_replyto_cb (BonoboUIComponent           *component,
              const char                  *path,
              Bonobo_UIComponent_EventType type,
              const char                  *state,
              gpointer                     user_data)
{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;

    e_msg_composer_set_view_replyto (E_MSG_COMPOSER (user_data), atoi (state));
}

static void
menu_view_bcc_cb (BonoboUIComponent           *component,
          const char                  *path,
          Bonobo_UIComponent_EventType type,
          const char                  *state,
          gpointer                     user_data)
{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;

    e_msg_composer_set_view_bcc (E_MSG_COMPOSER (user_data), atoi (state));
}

static void
menu_view_cc_cb (BonoboUIComponent           *component,
         const char                  *path,
         Bonobo_UIComponent_EventType type,
         const char                  *state,
         gpointer                     user_data)
{
    if (type != Bonobo_UIComponent_STATE_CHANGED)
        return;

    e_msg_composer_set_view_cc (E_MSG_COMPOSER (user_data), atoi (state));
}


static BonoboUIVerb verbs [] = {

    BONOBO_UI_VERB ("FileOpen",   menu_file_open_cb),
    BONOBO_UI_VERB ("FileSave",   menu_file_save_cb),
    BONOBO_UI_VERB ("FileSaveAs", menu_file_save_as_cb),
    BONOBO_UI_VERB ("FileSaveDraft", menu_file_save_draft_cb),
    BONOBO_UI_VERB ("FileClose",  menu_file_close_cb),
          
    BONOBO_UI_VERB ("FileInsertFile", menu_file_insert_file_cb),
    BONOBO_UI_VERB ("FileAttach",     menu_file_add_attachment_cb),
          
    BONOBO_UI_VERB ("FileSend",       menu_file_send_cb),
    BONOBO_UI_VERB ("FileSendLater",  menu_file_send_later_cb),
    
    BONOBO_UI_VERB_END
};  

static void
setup_ui (EMsgComposer *composer)
{
    BonoboUIContainer *container;
    gboolean hide_smime;
    
    container = bonobo_ui_container_new ();
    bonobo_ui_container_set_win (container, BONOBO_WINDOW (composer));
    
    composer->uic = bonobo_ui_component_new ("evolution-message-composer");
    bonobo_ui_component_set_container (
        composer->uic, bonobo_object_corba_objref (BONOBO_OBJECT (container)));
    
    bonobo_ui_component_add_verb_list_with_data (
        composer->uic, verbs, composer);    
    
    bonobo_ui_util_set_ui (composer->uic, EVOLUTION_DATADIR,
                   "evolution-message-composer.xml",
                   "evolution-message-composer");
    
    /* Format -> HTML */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/FormatHtml",
        "state", composer->send_html ? "1" : "0", NULL);
    bonobo_ui_component_add_listener (
        composer->uic, "FormatHtml",
        menu_format_html_cb, composer);

    /* View/From */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewFrom",
        "state", composer->view_from ? "1" : "0", NULL);
    bonobo_ui_component_add_listener (
        composer->uic, "ViewFrom",
        menu_view_from_cb, composer);

    /* View/ReplyTo */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewReplyTo",
        "state", composer->view_replyto ? "1" : "0", NULL);
    bonobo_ui_component_add_listener (
        composer->uic, "ViewReplyTo",
        menu_view_replyto_cb, composer);

    /* View/BCC */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewBCC",
        "state", composer->view_bcc ? "1" : "0", NULL);
    bonobo_ui_component_add_listener (
        composer->uic, "ViewBCC",
        menu_view_bcc_cb, composer);

    /* View/CC */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewCC",
        "state", composer->view_cc ? "1" : "0", NULL);
    bonobo_ui_component_add_listener (
        composer->uic, "ViewCC",
        menu_view_cc_cb, composer);
    

    /* Security -> PGP Sign */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/SecurityPGPSign",
        "state", composer->pgp_sign ? "1" : "0", NULL);
    
    bonobo_ui_component_add_listener (
        composer->uic, "SecurityPGPSign",
        menu_security_pgp_sign_cb, composer);
    
    /* Security -> PGP Encrypt */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/SecurityPGPEncrypt",
        "state", composer->pgp_encrypt ? "1" : "0", NULL);
    
    bonobo_ui_component_add_listener (
        composer->uic, "SecurityPGPEncrypt",
        menu_security_pgp_encrypt_cb, composer);
    
#ifdef HAVE_NSS
    hide_smime = FALSE;
#else
    hide_smime = TRUE;
#endif
    
    /* Security -> S/MIME Sign */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/SecuritySMimeSign",
        "state", composer->smime_sign ? "1" : "0", NULL);
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/SecuritySMimeSign",
        "hidden", hide_smime ? "1" : "0", NULL);
    
    bonobo_ui_component_add_listener (
        composer->uic, "SecuritySMimeSign",
        menu_security_smime_sign_cb, composer);
    
    /* Security -> S/MIME Encrypt */
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/SecuritySMimeEncrypt",
        "state", composer->smime_encrypt ? "1" : "0", NULL);
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/SecuritySMimeEncrypt",
        "hidden", hide_smime ? "1" : "0", NULL);
    
    bonobo_ui_component_add_listener (
        composer->uic, "SecuritySMimeEncrypt",
        menu_security_smime_encrypt_cb, composer);
    
    /* View -> Attachments */
    bonobo_ui_component_add_listener (
        composer->uic, "ViewAttach",
        menu_view_attachments_activate_cb, composer);
}


/* Miscellaneous callbacks.  */

static void
attachment_bar_changed_cb (EMsgComposerAttachmentBar *bar,
               void *data)
{
    EMsgComposer *composer;
    
    composer = E_MSG_COMPOSER (data);
    
    if (e_msg_composer_attachment_bar_get_num_attachments (bar) > 0)
        e_msg_composer_show_attachments (composer, TRUE);
    else
        e_msg_composer_show_attachments (composer, FALSE);

    /* Mark the composer as changed so it prompts about unsaved changes on close */
    e_msg_composer_set_changed (composer);
}

static void
subject_changed_cb (EMsgComposerHdrs *hdrs,
            gchar *subject,
            void *data)
{
    EMsgComposer *composer;

    composer = E_MSG_COMPOSER (data);

    if (strlen (subject))
        gtk_window_set_title (GTK_WINDOW (composer), subject);
    else
        gtk_window_set_title (GTK_WINDOW (composer),
                      _("Compose a message"));
    g_free (subject);
}

static void
hdrs_changed_cb (EMsgComposerHdrs *hdrs,
         void *data)
{
    EMsgComposer *composer;

    composer = E_MSG_COMPOSER (data);

    /* Mark the composer as changed so it prompts about unsaved changes on close */
    e_msg_composer_set_changed (composer);
}

static void
from_changed_cb (EMsgComposerHdrs *hdrs,
         void *data)
{
    EMsgComposer *composer;

    composer = E_MSG_COMPOSER (data);

    e_msg_composer_set_sig_file (composer, hdrs->account->id->signature);
}


/* GtkObject methods.  */

static void
destroy (GtkObject *object)
{
    EMsgComposer *composer;
    CORBA_Environment ev;
    
    composer = E_MSG_COMPOSER (object);

    gnome_config_sync ();
    
    if (composer->uic)
        bonobo_object_unref (BONOBO_OBJECT (composer->uic));
    composer->uic = NULL;

    /* FIXME?  I assume the Bonobo widget will get destroyed
           normally?  */
    
    if (composer->address_dialog != NULL)
        gtk_widget_destroy (composer->address_dialog);
    if (composer->hdrs != NULL)
        gtk_widget_destroy (composer->hdrs);
    
    if (composer->extra_hdr_names) {
        int i;
        
        for (i = 0; i < composer->extra_hdr_names->len; i++) {
            g_free (composer->extra_hdr_names->pdata[i]);
            g_free (composer->extra_hdr_values->pdata[i]);
        }
        g_ptr_array_free (composer->extra_hdr_names, TRUE);
        g_ptr_array_free (composer->extra_hdr_values, TRUE);
    }

    e_msg_composer_clear_inlined_table (composer);
    g_hash_table_destroy (composer->inline_images);
    
    CORBA_exception_init (&ev);
    
    if (composer->persist_stream_interface != CORBA_OBJECT_NIL) {
        Bonobo_Unknown_unref (composer->persist_stream_interface, &ev);
        CORBA_Object_release (composer->persist_stream_interface, &ev);
    }
    
    if (composer->persist_file_interface != CORBA_OBJECT_NIL) {
        Bonobo_Unknown_unref (composer->persist_file_interface, &ev);
        CORBA_Object_release (composer->persist_file_interface, &ev);
    }
    
    if (composer->editor_engine != CORBA_OBJECT_NIL) {
        Bonobo_Unknown_unref (composer->editor_engine, &ev);
        CORBA_Object_release (composer->editor_engine, &ev);
    }

    CORBA_exception_free (&ev);

    if (composer->editor_listener)
        bonobo_object_unref (composer->editor_listener);

    if (GTK_OBJECT_CLASS (parent_class)->destroy != NULL)
        (* GTK_OBJECT_CLASS (parent_class)->destroy) (object);
}


/* GtkWidget methods.  */

static int
delete_event (GtkWidget *widget,
          GdkEventAny *event)
{
    do_exit (E_MSG_COMPOSER (widget));
    
    return TRUE;
}

static void
drag_data_received (EMsgComposer *composer,
            GdkDragContext *context,
            gint x,
            gint y,
            GtkSelectionData *selection,
            guint info,
            guint time)
{
    gchar *temp, *filename;
    
    filename = g_strdup (selection->data);
    temp = strchr (filename, '\n');
    if (temp) {
        if (*(temp - 1) == '\r')
            *(temp - 1) = '\0';
        *temp = '\0';
    }
    
    /* Chop the file: part off */
    if (strncasecmp (filename, "file:", 5) == 0) {
        temp = g_strdup (filename + 5);
        g_free (filename);
        filename = temp;
    }
    
    e_msg_composer_attachment_bar_attach
        (E_MSG_COMPOSER_ATTACHMENT_BAR (composer->attachment_bar),
         filename);
    
    g_free (filename);
}


static void
class_init (EMsgComposerClass *klass)
{
    GtkObjectClass *object_class;
    GtkWidgetClass *widget_class;
    
    object_class = GTK_OBJECT_CLASS (klass);
    widget_class = GTK_WIDGET_CLASS (klass);
    
    object_class->destroy = destroy;
    
    widget_class->delete_event = delete_event;
    
    parent_class = gtk_type_class (bonobo_window_get_type ());
    
    signals[SEND] =
        gtk_signal_new ("send",
                GTK_RUN_LAST,
                object_class->type,
                GTK_SIGNAL_OFFSET (EMsgComposerClass, send),
                gtk_marshal_NONE__NONE,
                GTK_TYPE_NONE, 0);
    
    signals[POSTPONE] =
        gtk_signal_new ("postpone",
                GTK_RUN_LAST,
                object_class->type,
                GTK_SIGNAL_OFFSET (EMsgComposerClass, postpone),
                gtk_marshal_NONE__NONE,
                GTK_TYPE_NONE, 0);
    
    gtk_object_class_add_signals (object_class, signals, LAST_SIGNAL);
}

static void
init (EMsgComposer *composer)
{
    composer->uic                      = NULL;
    
    composer->hdrs                     = NULL;
    composer->extra_hdr_names          = g_ptr_array_new ();
    composer->extra_hdr_values         = g_ptr_array_new ();
    
    composer->editor                   = NULL;
    
    composer->address_dialog           = NULL;
    
    composer->attachment_bar           = NULL;
    composer->attachment_scroll_frame  = NULL;
    
    composer->persist_file_interface   = CORBA_OBJECT_NIL;
    composer->persist_stream_interface = CORBA_OBJECT_NIL;

    composer->editor_engine            = CORBA_OBJECT_NIL;
    composer->inline_images            = g_hash_table_new (g_str_hash, g_str_equal);
    
    composer->attachment_bar_visible   = FALSE;
    composer->send_html                = FALSE;
    composer->pgp_sign                 = FALSE;
    composer->pgp_encrypt              = FALSE;
    composer->smime_sign               = FALSE;
    composer->smime_encrypt            = FALSE;
    
    composer->has_changed              = FALSE;
}


GtkType
e_msg_composer_get_type (void)
{
    static GtkType type = 0;
    
    if (type == 0) {
        static const GtkTypeInfo info = {
            "EMsgComposer",
            sizeof (EMsgComposer),
            sizeof (EMsgComposerClass),
            (GtkClassInitFunc) class_init,
            (GtkObjectInitFunc) init,
            /* reserved_1 */ NULL,
            /* reserved_2 */ NULL,
            (GtkClassInitFunc) NULL,
        };
        
        type = gtk_type_unique (bonobo_window_get_type (), &info);
    }
    
    return type;
}

static int
get_config_value (const char *key)
{
    char *full_key = g_strconcat ("/Evolution/Composer/", key, NULL);
    int v;

    v = gnome_config_get_int (full_key);
    g_free (full_key);
    return v;
}

static gint
load_with_failue_control (Bonobo_PropertyBag bag, char *key, gint default_if_fails)
{
    CORBA_Environment ev;
    gint v;
    
    CORBA_exception_init (&ev);
    v = bonobo_property_bag_client_get_value_gint (bag, key, &ev);
    if (ev._major == CORBA_NO_EXCEPTION)
        return v;
    CORBA_exception_free (&ev);

    return default_if_fails;
}

static void
load_from_property_bag (EMsgComposer *composer)
{
    Bonobo_PropertyBag bag = composer->property_bag;
    
    composer->view_from = load_with_failue_control (bag, "ViewFrom", 1);
    composer->view_replyto = load_with_failue_control (bag, "ViewReplyTo", 0);
    composer->view_bcc = load_with_failue_control (bag, "ViewBCC", 0);
    composer->view_cc = load_with_failue_control (bag, "ViewCC", 1);
    composer->view_subject = load_with_failue_control (bag, "ViewSubject", 1);
}

static void
load_from_gnome_config (EMsgComposer *composer)
{
    composer->view_from = get_config_value ("ViewFrom=1");
    composer->view_replyto = get_config_value ("ViewReplyTo=0");
    composer->view_bcc  = get_config_value ("ViewBCC=0");
    composer->view_cc   = get_config_value ("ViewCC=1");
    composer->view_subject = get_config_value ("ViewSubject=1");
}

static void
e_msg_composer_load_config (EMsgComposer *composer)
{
    Bonobo_PropertyBag pbag;
    CORBA_Environment ev;

    CORBA_exception_init (&ev);
    pbag = bonobo_get_object (
        "config:/Evolution/Mail/Composer", "IDL:Bonobo/PropertyBag:1.0",
        &ev);
    if (ev._major == CORBA_NO_EXCEPTION && pbag != CORBA_OBJECT_NIL){
        composer->property_bag = pbag;
        load_from_property_bag (composer);
    } else {
        composer->property_bag = CORBA_OBJECT_NIL;
        load_from_gnome_config (composer);
    }
    CORBA_exception_free (&ev);
}

static gint
e_msg_composer_get_visible_flags (EMsgComposer *composer)
{
    int flags = 0;

    if (composer->view_from)
        flags |= E_MSG_COMPOSER_VISIBLE_FROM;
    if (composer->view_replyto)
        flags |= E_MSG_COMPOSER_VISIBLE_REPLYTO;
    if (composer->view_cc)
        flags |= E_MSG_COMPOSER_VISIBLE_CC;
    if (composer->view_bcc)
        flags |= E_MSG_COMPOSER_VISIBLE_BCC;
    if (composer->view_subject)
        flags |= E_MSG_COMPOSER_VISIBLE_SUBJECT;

    /*
     * Until we have a GUI way, lets make sure that
     * even if the user screws up, we will do the right
     * thing (screws up == edit the config file manually
     * and screw up).
     */
    flags |= E_MSG_COMPOSER_VISIBLE_SUBJECT;    
    return flags;
}

/**
 * e_msg_composer_construct:
 * @composer: A message composer widget
 * 
 * Construct @composer.
 **/
void
e_msg_composer_construct (EMsgComposer *composer)
{
    GtkWidget *vbox;
    BonoboObject *editor_server;
    gint vis;
    
    static GtkTargetEntry drop_types[] = {
        {"text/uri-list", 0, 1}
    };
    
    g_return_if_fail (gtk_main_level () > 0);
    
    gtk_window_set_default_size (GTK_WINDOW (composer),
                     DEFAULT_WIDTH, DEFAULT_HEIGHT);
    gnome_window_icon_set_from_file (GTK_WINDOW (composer), EVOLUTION_DATADIR "/images/evolution/compose-message.png");
    bonobo_window_construct (BONOBO_WINDOW (composer), "e-msg-composer",
                 _("Compose a message"));
    
    /* DND support */
    gtk_drag_dest_set (GTK_WIDGET (composer), GTK_DEST_DEFAULT_ALL,
               drop_types, 1, GDK_ACTION_COPY);
    gtk_signal_connect (GTK_OBJECT (composer), "drag_data_received",
                GTK_SIGNAL_FUNC (drag_data_received), NULL);
    e_msg_composer_load_config (composer);
    
    setup_ui (composer);
    
    vbox = gtk_vbox_new (FALSE, 0);

    vis = e_msg_composer_get_visible_flags (composer);
    composer->hdrs = e_msg_composer_hdrs_new (vis);
    
    gtk_box_pack_start (GTK_BOX (vbox), composer->hdrs, FALSE, FALSE, 0);
    gtk_signal_connect (GTK_OBJECT (composer->hdrs), "subject_changed",
                GTK_SIGNAL_FUNC (subject_changed_cb), composer);
    gtk_signal_connect (GTK_OBJECT (composer->hdrs), "hdrs_changed",
                GTK_SIGNAL_FUNC (hdrs_changed_cb), composer);
    gtk_signal_connect (GTK_OBJECT (composer->hdrs), "from_changed",
                GTK_SIGNAL_FUNC (from_changed_cb), composer);
    gtk_widget_show (composer->hdrs);
    
    /* Editor component.  */
    composer->editor = bonobo_widget_new_control (
        GNOME_GTKHTML_EDITOR_CONTROL_ID,
        bonobo_ui_component_get_container (composer->uic));
    
    if (!composer->editor)
        return;
    
    /* let the editor know which mode we are in */
    bonobo_widget_set_property (BONOBO_WIDGET (composer->editor), 
                    "FormatHTML", composer->send_html,
                    NULL);

    editor_server = BONOBO_OBJECT (bonobo_widget_get_server (BONOBO_WIDGET (composer->editor)));
    
    composer->persist_file_interface
        = bonobo_object_query_interface (editor_server, "IDL:Bonobo/PersistFile:1.0");
    composer->persist_stream_interface
        = bonobo_object_query_interface (editor_server, "IDL:Bonobo/PersistStream:1.0");
    
    gtk_widget_show (composer->editor);
    gtk_box_pack_start (GTK_BOX (vbox), composer->editor, TRUE, TRUE, 0);
    gtk_widget_show (composer->editor);

    /* Attachment editor, wrapped into an EScrollFrame.  We don't
           show it for now.  */
    
    composer->attachment_scroll_frame = e_scroll_frame_new (NULL, NULL);
    e_scroll_frame_set_shadow_type (E_SCROLL_FRAME (composer->attachment_scroll_frame),
                    GTK_SHADOW_IN);
    e_scroll_frame_set_policy (E_SCROLL_FRAME (composer->attachment_scroll_frame),
                   GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
    
    composer->attachment_bar = e_msg_composer_attachment_bar_new (NULL);
    GTK_WIDGET_SET_FLAGS (composer->attachment_bar, GTK_CAN_FOCUS);
    gtk_container_add (GTK_CONTAINER (composer->attachment_scroll_frame),
               composer->attachment_bar);
    gtk_box_pack_start (GTK_BOX (vbox),
                composer->attachment_scroll_frame,
                FALSE, FALSE, GNOME_PAD_SMALL);
    
    gtk_signal_connect (GTK_OBJECT (composer->attachment_bar), "changed",
                GTK_SIGNAL_FUNC (attachment_bar_changed_cb), composer);
    
    bonobo_window_set_contents (BONOBO_WINDOW (composer), vbox);
    gtk_widget_show (vbox);
    
    e_msg_composer_show_attachments (composer, FALSE);

    /* Set focus on the `To:' field.
    
       gtk_widget_grab_focus (e_msg_composer_hdrs_get_to_entry (E_MSG_COMPOSER_HDRS (composer->hdrs)));
       GTK_WIDGET_SET_FLAGS (composer->editor, GTK_CAN_FOCUS);
       gtk_window_set_focus (GTK_WINDOW (composer), composer->editor); */
    gtk_widget_grab_focus (composer->editor);
}

static EMsgComposer *
create_composer (void)
{
    EMsgComposer *new;
    
    new = gtk_type_new (E_TYPE_MSG_COMPOSER);
    e_msg_composer_construct (new);
    if (!new->editor) {
        e_notice (GTK_WINDOW (new), GNOME_MESSAGE_BOX_ERROR,
              _("Could not create composer window."));
        gtk_object_unref (GTK_OBJECT (new));
        return NULL;
    }
    prepare_engine (new);
    
    return new;
}

/**
 * e_msg_composer_new:
 *
 * Create a new message composer widget.
 * 
 * Return value: A pointer to the newly created widget
 **/
EMsgComposer *
e_msg_composer_new (void)
{
    EMsgComposer *new;
    
    new = create_composer ();
    if (new)
        set_editor_text (new, "");

    return new;
}

/**
 * e_msg_composer_new_with_sig_file:
 *
 * Create a new message composer widget. Sets the signature file.
 * 
 * Return value: A pointer to the newly created widget
 **/
EMsgComposer *
e_msg_composer_new_with_sig_file (const char *sig_file, gboolean send_html)
{
    EMsgComposer *new;

    new = create_composer ();
    if (new) {
        e_msg_composer_set_send_html (new, send_html);
        set_editor_text (new, "");
        e_msg_composer_set_sig_file (new, sig_file);
    }

    /* printf ("e_msg_composer_new_with_sig_file %p\n", new); */
    
    return new;
}

static void
handle_multipart_alternative (EMsgComposer *composer, CamelMultipart *multipart)
{
    /* Find the text/html part and set the composer body to it's contents */
    int i, nparts;
    
    nparts = camel_multipart_get_number (multipart);
    
    for (i = 0; i < nparts; i++) {
        CamelContentType *content_type;
        CamelMimePart *mime_part;
        
        mime_part = camel_multipart_get_part (multipart, i);
        content_type = camel_mime_part_get_content_type (mime_part);
        
        if (header_content_type_is (content_type, "text", "html")) {
            CamelDataWrapper *contents;
            char *text, *final_text;
            gboolean is_html;
            
            contents = camel_medium_get_content_object (CAMEL_MEDIUM (mime_part));
            text = mail_get_message_body (contents, FALSE, &is_html);
            if (text) {
                if (is_html)
                    final_text = g_strdup (text);
                else
                    final_text = e_text_to_html (text, E_TEXT_TO_HTML_CONVERT_NL |
                                     E_TEXT_TO_HTML_CONVERT_SPACES);
                g_free (text);
                
                e_msg_composer_set_body_text (composer, final_text);
            }
            
            return;
        }
    }
}

static void
handle_multipart (EMsgComposer *composer, CamelMultipart *multipart, int depth)
{
    int i, nparts;
    
    nparts = camel_multipart_get_number (multipart);
    
    for (i = 0; i < nparts; i++) {
        CamelContentType *content_type;
        CamelMimePart *mime_part;
        
        mime_part = camel_multipart_get_part (multipart, i);
        content_type = camel_mime_part_get_content_type (mime_part);
        
        if (header_content_type_is (content_type, "multipart", "alternative")) {
            /* this structure contains the body */
            CamelDataWrapper *wrapper;
            CamelMultipart *mpart;
            
            wrapper = camel_medium_get_content_object (CAMEL_MEDIUM (mime_part));
            mpart = CAMEL_MULTIPART (wrapper);
            
            handle_multipart_alternative (composer, mpart);
        } else if (header_content_type_is (content_type, "multipart", "*")) {
            /* another layer of multipartness... */
            CamelDataWrapper *wrapper;
            CamelMultipart *mpart;
            
            wrapper = camel_medium_get_content_object (CAMEL_MEDIUM (mime_part));
            mpart = CAMEL_MULTIPART (wrapper);
            
            handle_multipart (composer, mpart, depth + 1);
        } else if (depth == 0 && i == 0) {
            /* Since the first part is not multipart/alternative, then this must be the body */
            CamelDataWrapper *contents;
            char *text, *final_text;
            gboolean is_html;
            
            contents = camel_medium_get_content_object (CAMEL_MEDIUM (mime_part));
            text = mail_get_message_body (contents, FALSE, &is_html);
            if (text) {
                if (is_html)
                    final_text = g_strdup (text);
                else
                    final_text = e_text_to_html (text, E_TEXT_TO_HTML_CONVERT_NL |
                                     E_TEXT_TO_HTML_CONVERT_SPACES);
                g_free (text);
                
                e_msg_composer_set_body_text (composer, final_text);
            }
        } else {
            /* this is a leaf of the tree, so attach it */
            e_msg_composer_attach (composer, mime_part);
        }
    }
}

/**
 * e_msg_composer_new_with_message:
 *
 * Create a new message composer widget.
 * 
 * Return value: A pointer to the newly created widget
 **/
EMsgComposer *
e_msg_composer_new_with_message (CamelMimeMessage *msg)
{
    const CamelInternetAddress *to, *cc, *bcc;
    GList *To = NULL, *Cc = NULL, *Bcc = NULL;
    CamelContentType *content_type;
    const gchar *subject;
    EMsgComposer *new;
    guint len, i;
    
    g_return_val_if_fail (gtk_main_level () > 0, NULL);
    
    new = create_composer ();
    if (!new)
        return NULL;
    
    subject = camel_mime_message_get_subject (msg);
    
    to = camel_mime_message_get_recipients (msg, CAMEL_RECIPIENT_TYPE_TO);
    cc = camel_mime_message_get_recipients (msg, CAMEL_RECIPIENT_TYPE_CC);
    bcc = camel_mime_message_get_recipients (msg, CAMEL_RECIPIENT_TYPE_BCC);
    
    len = CAMEL_ADDRESS (to)->addresses->len;
    for (i = 0; i < len; i++) {
        const char *name, *addr;
        
        if (camel_internet_address_get (to, i, &name, &addr)) {
            CamelInternetAddress *cia;
            
            cia = camel_internet_address_new ();
            camel_internet_address_add (cia, name, addr);
            To = g_list_append (To, camel_address_encode (CAMEL_ADDRESS (cia)));
            camel_object_unref (CAMEL_OBJECT (cia));
        }
    }
    
    len = CAMEL_ADDRESS (cc)->addresses->len;
    for (i = 0; i < len; i++) {
        const char *name, *addr;
        
        if (camel_internet_address_get (cc, i, &name, &addr)) {
            CamelInternetAddress *cia;
            
            cia = camel_internet_address_new ();
            camel_internet_address_add (cia, name, addr);
            Cc = g_list_append (Cc, camel_address_encode (CAMEL_ADDRESS (cia)));
            camel_object_unref (CAMEL_OBJECT (cia));
        }
    }
    
    len = CAMEL_ADDRESS (bcc)->addresses->len;
    for (i = 0; i < len; i++) {
        const char *name, *addr;
        
        if (camel_internet_address_get (bcc, i, &name, &addr)) {
            CamelInternetAddress *cia;
            
            cia = camel_internet_address_new ();
            camel_internet_address_add (cia, name, addr);
            Bcc = g_list_append (Bcc, camel_address_encode (CAMEL_ADDRESS (cia)));
            camel_object_unref (CAMEL_OBJECT (cia));
        }
    }
    
    e_msg_composer_set_headers (new, NULL, To, Cc, Bcc, subject);
    
    free_recipients (To);
    free_recipients (Cc);
    free_recipients (Bcc);
    
    content_type = camel_mime_part_get_content_type (CAMEL_MIME_PART (msg));
    if (header_content_type_is (content_type, "multipart", "alternative")) {
        /* multipart/alternative contains the text/plain and text/html versions of the message body */
        CamelDataWrapper *wrapper;
        CamelMultipart *multipart;
        
        wrapper = camel_medium_get_content_object (CAMEL_MEDIUM (CAMEL_MIME_PART (msg)));
        multipart = CAMEL_MULTIPART (wrapper);
        
        handle_multipart_alternative (new, multipart);
    } else if (header_content_type_is (content_type, "multipart", "*")) {
        /* there must be attachments... */
        CamelDataWrapper *wrapper;
        CamelMultipart *multipart;
        
        wrapper = camel_medium_get_content_object (CAMEL_MEDIUM (CAMEL_MIME_PART (msg)));
        multipart = CAMEL_MULTIPART (wrapper);
        
        handle_multipart (new, multipart, 0);
    } else {
        /* We either have a text/plain or a text/html part */
        CamelDataWrapper *contents;
        char *text, *final_text;
        gboolean is_html;
        
        contents = camel_medium_get_content_object (CAMEL_MEDIUM (msg));
        text = mail_get_message_body (contents, FALSE, &is_html);
        if (text) {
            if (is_html)
                final_text = g_strdup (text);
            else
                final_text = e_text_to_html (text, E_TEXT_TO_HTML_CONVERT_NL |
                                 E_TEXT_TO_HTML_CONVERT_SPACES);
            g_free (text);
            
            e_msg_composer_set_body_text (new, final_text);
        }
    }
    
    return new;
}

#if 0
static GList *
add_recipients (GList *list, const char *recips, gboolean decode)
{
    int len;
    char *addr;
    
    while (*recips) {
        len = strcspn (recips, ",");
        if (len) {
            addr = g_strndup (recips, len);
            if (decode)
                camel_url_decode (addr);
            list = g_list_append (list, addr);
        }
        recips += len;
        if (*recips == ',')
            recips++;
    }
    
    return list;
}
#endif

static GList *
add_recipients (GList *list, const char *recips, gboolean decode)
{
    CamelInternetAddress *cia;
    const char *name, *addr;
    int num, i;
    
    cia = camel_internet_address_new ();
    if (decode)
        num = camel_address_decode (CAMEL_ADDRESS (cia), recips);
    else
        num = camel_address_unformat (CAMEL_ADDRESS (cia), recips);
    
    for (i = 0; i < num; i++) {
        if (camel_internet_address_get (cia, i, &name, &addr)) {
            char *str;
            
            str = camel_internet_address_format_address (name, addr);
            list = g_list_append (list, str);
        }
    }
    
    return list;
}

static void
free_recipients (GList *list)
{
    GList *l;
    
    for (l = list; l; l = l->next)
        g_free (l->data);
    g_list_free (list);
}

/**
 * e_msg_composer_new_from_url:
 * @url: a mailto URL
 *
 * Create a new message composer widget, and fill in fields as
 * defined by the provided URL.
 **/
EMsgComposer *
e_msg_composer_new_from_url (const char *url)
{
    EMsgComposer *composer;
    EMsgComposerHdrs *hdrs;
    GList *to = NULL, *cc = NULL, *bcc = NULL;
    char *subject = NULL, *body = NULL;
    const char *p, *header;
    int len, clen;
    char *content;
    
    g_return_val_if_fail (g_strncasecmp (url, "mailto:", 7) == 0, NULL);
    
    composer = e_msg_composer_new ();
    if (!composer)
        return NULL;

    /* Parse recipients (everything after ':' until '?' or eos. */
    p = url + 7;
    len = strcspn (p, "?,");
    if (len) {
        content = g_strndup (p, len);
        to = add_recipients (to, content, TRUE);
        g_free (content);
    }
    
    p += len;
    if (*p == '?') {
        p++;
        
        while (*p) {
            len = strcspn (p, "=&");
            
            /* If it's malformed, give up. */
            if (p[len] != '=')
                break;
            
            header = p;
            p += len + 1;
            
            clen = strcspn (p, "&");
            content = g_strndup (p, clen);
            camel_url_decode (content);
            
            if (!g_strncasecmp (header, "to", len))
                to = add_recipients (to, content, FALSE);
            else if (!g_strncasecmp (header, "cc", len))
                cc = add_recipients (cc, content, FALSE);
            else if (!g_strncasecmp (header, "bcc", len))
                bcc = add_recipients (bcc, content, FALSE);
            else if (!g_strncasecmp (header, "subject", len))
                subject = g_strdup (content);
            else if (!g_strncasecmp (header, "body", len))
                body = g_strdup (content);
            
            g_free (content);
            p += clen;
            if (*p == '&') {
                p++;
                if (!strcmp (p, "amp;"))
                    p += 4;
            }
        }
    }
    
    hdrs = E_MSG_COMPOSER_HDRS (composer->hdrs);
    e_msg_composer_hdrs_set_to (hdrs, to);
    free_recipients (to);
    e_msg_composer_hdrs_set_cc (hdrs, cc);
    free_recipients (cc);
    e_msg_composer_hdrs_set_bcc (hdrs, bcc);
    free_recipients (bcc);
    if (subject) {
        e_msg_composer_hdrs_set_subject (hdrs, subject);
        g_free (subject);
    }
    
    if (body) {
        char *htmlbody = e_text_to_html (body, E_TEXT_TO_HTML_PRE);
        set_editor_text (composer, htmlbody);
        g_free (htmlbody);
    }
    
    return composer;
}

/**
 * e_msg_composer_show_attachments:
 * @composer: A message composer widget
 * @show: A boolean specifying whether the attachment bar should be shown or
 * not
 * 
 * If @show is %FALSE, hide the attachment bar.  Otherwise, show it.
 **/
void
e_msg_composer_show_attachments (EMsgComposer *composer,
                 gboolean show)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    
    show_attachments (composer, show);
}

/**
 * e_msg_composer_set_headers:
 * @composer: a composer object
 * @from: the name of the account the user will send from,
 * or %NULL for the default account
 * @to: the values for the "To" header
 * @cc: the values for the "Cc" header
 * @bcc: the values for the "Bcc" header
 * @subject: the value for the "Subject" header
 *
 * Sets the headers in the composer to the given values.
 **/
void 
e_msg_composer_set_headers (EMsgComposer *composer,
                const char *from,
                const GList *to,
                const GList *cc,
                const GList *bcc,
                const char *subject)
{
    EMsgComposerHdrs *hdrs;
    
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    hdrs = E_MSG_COMPOSER_HDRS (composer->hdrs);
    
    e_msg_composer_hdrs_set_from_account (hdrs, from);
    e_msg_composer_hdrs_set_to (hdrs, to);
    e_msg_composer_hdrs_set_cc (hdrs, cc);
    e_msg_composer_hdrs_set_bcc (hdrs, bcc);
    e_msg_composer_hdrs_set_subject (hdrs, subject);
}


/**
 * e_msg_composer_set_body_text:
 * @composer: a composer object
 * @text: the HTML text to initialize the editor with
 *
 * Loads the given HTML text into the editor.
 **/
void
e_msg_composer_set_body_text (EMsgComposer *composer, const char *text)
{
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    
    set_editor_text (composer, text);
    e_msg_composer_set_sig_file (composer, composer->sig_file);
}


/**
 * e_msg_composer_add_header:
 * @composer: a composer object
 * @name: the header name
 * @value: the header value
 *
 * Adds a header with @name and @value to the message. This header
 * may not be displayed by the composer, but will be included in
 * the message it outputs.
 **/
void
e_msg_composer_add_header (EMsgComposer *composer, const char *name,
               const char *value)
{
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    g_return_if_fail (name != NULL);
    g_return_if_fail (value != NULL);
    
    g_ptr_array_add (composer->extra_hdr_names, g_strdup (name));
    g_ptr_array_add (composer->extra_hdr_values, g_strdup (value));
}


/**
 * e_msg_composer_attach:
 * @composer: a composer object
 * @attachment: the CamelMimePart to attach
 *
 * Attaches @attachment to the message being composed in the composer.
 **/
void
e_msg_composer_attach (EMsgComposer *composer, CamelMimePart *attachment)
{
    EMsgComposerAttachmentBar *bar;
    
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    g_return_if_fail (CAMEL_IS_MIME_PART (attachment));
    
    bar = E_MSG_COMPOSER_ATTACHMENT_BAR (composer->attachment_bar);
    e_msg_composer_attachment_bar_attach_mime_part (bar, attachment);
}


/**
 * e_msg_composer_get_message:
 * @composer: A message composer widget
 * 
 * Retrieve the message edited by the user as a CamelMimeMessage.  The
 * CamelMimeMessage object is created on the fly; subsequent calls to this
 * function will always create new objects from scratch.
 * 
 * Return value: A pointer to the new CamelMimeMessage object
 **/
CamelMimeMessage *
e_msg_composer_get_message (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, NULL);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), NULL);
    
    return build_message (composer);
}



static void
delete_old_signature (EMsgComposer *composer)
{
    CORBA_Environment ev;

    /* printf ("delete_old_signature\n"); */
    CORBA_exception_init (&ev);
    GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "cursor-bod", &ev);
    if (GNOME_GtkHTML_Editor_Engine_searchByData (composer->editor_engine, 1, "ClueFlow", "signature", "1", &ev)) {
        /* printf ("found\n"); */
        GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "select-paragraph", &ev);
        GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "delete", &ev);
        /* selection-move-right doesn't succeed means that we are already on the end of document */
        /* if (!rv)
           break; */
        GNOME_GtkHTML_Editor_Engine_setParagraphData (composer->editor_engine, "signature", "0", &ev);
    } else
        GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "insert-paragraph", &ev);
    CORBA_exception_free (&ev);
}

/**
 * e_msg_composer_set_sig:
 * @composer: A message composer widget
 * @path: Signature file
 * 
 * Set a signature
 **/
void
e_msg_composer_set_sig_file (EMsgComposer *composer, const char *sig_file)
{
    CORBA_Environment ev;
    gchar *html;

    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));

    /* printf ("set sig '%s' '%s'\n", sig_file, composer->sig_file); */

    composer->in_signature_insert = TRUE;
    CORBA_exception_init (&ev);
    GNOME_GtkHTML_Editor_Engine_freeze (composer->editor_engine, &ev);
    GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "cursor-position-save", &ev);
    GNOME_GtkHTML_Editor_Engine_undo_begin (composer->editor_engine, "Set signature", "Reset signature", &ev);

    delete_old_signature (composer);

    if (composer->sig_file != sig_file && (!sig_file || !composer->sig_file || strcmp (composer->sig_file, sig_file))) {
        g_free (composer->sig_file);
        composer->sig_file = g_strdup (sig_file);
    }

    html = get_signature_html (composer);
    if (html) {
        if (!GNOME_GtkHTML_Editor_Engine_isParagraphEmpty (composer->editor_engine, &ev))
            GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "insert-paragraph", &ev);
        /* printf ("insert %s\n", html); */
        GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "indent-zero", &ev);
        GNOME_GtkHTML_Editor_Engine_insertHTML (composer->editor_engine, html, &ev);
        g_free (html);
    }
    GNOME_GtkHTML_Editor_Engine_undo_end (composer->editor_engine, &ev);
    GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "cursor-position-restore", &ev);
    GNOME_GtkHTML_Editor_Engine_thaw (composer->editor_engine, &ev);
    CORBA_exception_free (&ev);
    composer->in_signature_insert = FALSE;
}

/**
 * e_msg_composer_get_sig_file:
 * @composer: A message composer widget
 * 
 * Get the signature file
 * 
 * Return value: The signature file.
 **/
const char *
e_msg_composer_get_sig_file (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, NULL);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), NULL);
    
    return composer->sig_file;
}


/**
 * e_msg_composer_set_send_html:
 * @composer: A message composer widget
 * @send_html: Whether the composer should have the "Send HTML" flag set
 * 
 * Set the status of the "Send HTML" toggle item.  The user can override it.
 **/
void
e_msg_composer_set_send_html (EMsgComposer *composer,
                  gboolean send_html)
{
    CORBA_Environment ev;

    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));

    if (composer->send_html && send_html)
        return;
    if (! composer->send_html && ! send_html)
        return;

    composer->send_html = send_html;

    CORBA_exception_init (&ev);
    GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "block-redraw", &ev);
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/FormatHtml",
        "state", composer->send_html ? "1" : "0", NULL);

    /* let the editor know which mode we are in */
    bonobo_widget_set_property (BONOBO_WIDGET (composer->editor), "FormatHTML",
                    composer->send_html, NULL);

    set_config (composer, "FormatHTML", composer->send_html);
    if (composer->sig_file)
        e_msg_composer_set_sig_file (composer, composer->sig_file);
    GNOME_GtkHTML_Editor_Engine_runCommand (composer->editor_engine, "unblock-redraw", &ev);
    CORBA_exception_free (&ev);
}

/**
 * e_msg_composer_get_send_html:
 * @composer: A message composer widget
 * 
 * Get the status of the "Send HTML mail" flag.
 * 
 * Return value: The status of the "Send HTML mail" flag.
 **/
gboolean
e_msg_composer_get_send_html (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);

    return composer->send_html;
}


/**
 * e_msg_composer_get_preferred_account:
 * @composer: composer
 *
 * Returns the user-specified account (from field).
 */
const MailConfigAccount *
e_msg_composer_get_preferred_account (EMsgComposer *composer)
{
    EMsgComposerHdrs *hdrs;
    
    g_return_val_if_fail (composer != NULL, NULL);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), NULL);
    
    hdrs = E_MSG_COMPOSER_HDRS (composer->hdrs);
    
    return hdrs->account;
}


/**
 * e_msg_composer_set_pgp_sign:
 * @composer: A message composer widget
 * @send_html: Whether the composer should have the "PGP Sign" flag set
 * 
 * Set the status of the "PGP Sign" toggle item.  The user can override it.
 **/
void
e_msg_composer_set_pgp_sign (EMsgComposer *composer, gboolean pgp_sign)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    
    if (composer->pgp_sign && pgp_sign)
        return;
    if (!composer->pgp_sign && !pgp_sign)
        return;
    
    composer->pgp_sign = pgp_sign;
    
    bonobo_ui_component_set_prop (composer->uic, "/commands/SecurityPGPSign",
                      "state", composer->pgp_sign ? "1" : "0", NULL);
}

/**
 * e_msg_composer_get_pgp_sign:
 * @composer: A message composer widget
 * 
 * Get the status of the "PGP Sign" flag.
 * 
 * Return value: The status of the "PGP Sign" flag.
 **/
gboolean
e_msg_composer_get_pgp_sign (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->pgp_sign;
}


/**
 * e_msg_composer_set_pgp_encrypt:
 * @composer: A message composer widget
 * @send_html: Whether the composer should have the "PGP Encrypt" flag set
 * 
 * Set the status of the "PGP Encrypt" toggle item.  The user can override it.
 **/
void
e_msg_composer_set_pgp_encrypt (EMsgComposer *composer, gboolean pgp_encrypt)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    
    if (composer->pgp_encrypt && pgp_encrypt)
        return;
    if (!composer->pgp_encrypt && !pgp_encrypt)
        return;
    
    composer->pgp_encrypt = pgp_encrypt;
    
    bonobo_ui_component_set_prop (composer->uic, "/commands/SecurityPGPEncrypt",
                      "state", composer->pgp_encrypt ? "1" : "0", NULL);
}


/**
 * e_msg_composer_get_pgp_encrypt:
 * @composer: A message composer widget
 * 
 * Get the status of the "PGP Encrypt" flag.
 * 
 * Return value: The status of the "PGP Encrypt" flag.
 **/
gboolean
e_msg_composer_get_pgp_encrypt (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->pgp_encrypt;
}


/**
 * e_msg_composer_set_smime_sign:
 * @composer: A message composer widget
 * @send_html: Whether the composer should have the "S/MIME Sign" flag set
 * 
 * Set the status of the "S/MIME Sign" toggle item.  The user can override it.
 **/
void
e_msg_composer_set_smime_sign (EMsgComposer *composer, gboolean smime_sign)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    
    if (composer->smime_sign && smime_sign)
        return;
    if (!composer->smime_sign && !smime_sign)
        return;
    
    composer->smime_sign = smime_sign;
    
    bonobo_ui_component_set_prop (composer->uic, "/commands/SecuritySMimeSign",
                      "state", composer->smime_sign ? "1" : "0", NULL);
}

/**
 * e_msg_composer_get_smime_sign:
 * @composer: A message composer widget
 * 
 * Get the status of the "S/MIME Sign" flag.
 * 
 * Return value: The status of the "S/MIME Sign" flag.
 **/
gboolean
e_msg_composer_get_smime_sign (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->smime_sign;
}


/**
 * e_msg_composer_set_smime_encrypt:
 * @composer: A message composer widget
 * @send_html: Whether the composer should have the "S/MIME Encrypt" flag set
 * 
 * Set the status of the "S/MIME Encrypt" toggle item.  The user can override it.
 **/
void
e_msg_composer_set_smime_encrypt (EMsgComposer *composer, gboolean smime_encrypt)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    
    if (composer->smime_encrypt && smime_encrypt)
        return;
    if (!composer->smime_encrypt && !smime_encrypt)
        return;
    
    composer->smime_encrypt = smime_encrypt;
    
    bonobo_ui_component_set_prop (composer->uic, "/commands/SecuritySMimeEncrypt",
                      "state", composer->smime_encrypt ? "1" : "0", NULL);
}


/**
 * e_msg_composer_get_smime_encrypt:
 * @composer: A message composer widget
 * 
 * Get the status of the "S/MIME Encrypt" flag.
 * 
 * Return value: The status of the "S/MIME Encrypt" flag.
 **/
gboolean
e_msg_composer_get_smime_encrypt (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->smime_encrypt;
}


/**
 * e_msg_composer_set_view_bcc:
 * @composer: A message composer widget
 * @state: whether to show or hide the bcc view
 *
 * Controls the state of the BCC display
 */
void
e_msg_composer_set_view_bcc (EMsgComposer *composer, gboolean view_bcc)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));

    if ((composer->view_bcc && view_bcc) ||
        (!composer->view_bcc && !view_bcc))
        return;

    composer->view_bcc = view_bcc;
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewBCC",
        "state", composer->view_bcc ? "1" : "0", NULL);
    set_config (composer, "ViewBCC", composer->view_bcc);
    e_msg_composer_set_hdrs_visible
        (E_MSG_COMPOSER_HDRS (composer->hdrs),
         e_msg_composer_get_visible_flags (composer));
         
}

/**
 * e_msg_composer_get_view_bcc:
 * @composer: A message composer widget
 * 
 * Get the status of the "View BCC header" flag.
 * 
 * Return value: The status of the "View BCC header" flag.
 **/
gboolean
e_msg_composer_get_view_bcc (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->view_bcc;
}

/**
 * e_msg_composer_set_view_cc:
 * @composer: A message composer widget
 * @state: whether to show or hide the cc view
 *
 * Controls the state of the CC display
 */
void
e_msg_composer_set_view_cc (EMsgComposer *composer, gboolean view_cc)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));

    if ((composer->view_cc && view_cc) ||
        (!composer->view_cc && !view_cc))
        return;

    composer->view_cc = view_cc;
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewCC",
        "state", composer->view_cc ? "1" : "0", NULL);
    set_config (composer, "ViewCC", composer->view_cc);
    e_msg_composer_set_hdrs_visible
        (E_MSG_COMPOSER_HDRS (composer->hdrs),
         e_msg_composer_get_visible_flags (composer));
}

/**
 * e_msg_composer_get_view_cc:
 * @composer: A message composer widget
 * 
 * Get the status of the "View CC header" flag.
 * 
 * Return value: The status of the "View CC header" flag.
 **/
gboolean
e_msg_composer_get_view_cc (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->view_cc;
}

/**
 * e_msg_composer_set_view_from:
 * @composer: A message composer widget
 * @state: whether to show or hide the From selector
 *
 * Controls the state of the From selector
 */
void
e_msg_composer_set_view_from (EMsgComposer *composer, gboolean view_from)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));

    if ((composer->view_from && view_from) ||
        (!composer->view_from && !view_from))
        return;

    composer->view_from = view_from;
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewFrom",
        "state", composer->view_from ? "1" : "0", NULL);
    set_config (composer, "ViewFrom", composer->view_from);
    e_msg_composer_set_hdrs_visible
        (E_MSG_COMPOSER_HDRS (composer->hdrs),
         e_msg_composer_get_visible_flags (composer));
}

/**
 * e_msg_composer_get_view_from:
 * @composer: A message composer widget
 * 
 * Get the status of the "View From header" flag.
 * 
 * Return value: The status of the "View From header" flag.
 **/
gboolean
e_msg_composer_get_view_from (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->view_from;
}

/**
 * e_msg_composer_set_view_from:
 * @composer: A message composer widget
 * @state: whether to show or hide the From selector
 *
 * Controls the state of the From selector
 */
void
e_msg_composer_set_view_replyto (EMsgComposer *composer, gboolean view_replyto)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));
    
    if ((composer->view_replyto && view_replyto) ||
        (!composer->view_replyto && !view_replyto))
        return;
    
    composer->view_replyto = view_replyto;
    bonobo_ui_component_set_prop (
        composer->uic, "/commands/ViewReplyTo",
        "state", composer->view_replyto ? "1" : "0", NULL);
    set_config (composer, "ViewReplyTo", composer->view_replyto);
    e_msg_composer_set_hdrs_visible
        (E_MSG_COMPOSER_HDRS (composer->hdrs),
         e_msg_composer_get_visible_flags (composer));
}

/**
 * e_msg_composer_get_view_replyto:
 * @composer: A message composer widget
 * 
 * Get the status of the "View Reply-To header" flag.
 * 
 * Return value: The status of the "View Reply-To header" flag.
 **/
gboolean
e_msg_composer_get_view_replyto (EMsgComposer *composer)
{
    g_return_val_if_fail (composer != NULL, FALSE);
    g_return_val_if_fail (E_IS_MSG_COMPOSER (composer), FALSE);
    
    return composer->view_replyto;
}

/**
 * e_msg_composer_guess_mime_type:
 * @file_name: filename
 *
 * Returns the guessed mime type of the file given by #file_name.
 **/
gchar *
e_msg_composer_guess_mime_type (const gchar *file_name)
{
    GnomeVFSFileInfo info;
    GnomeVFSResult result;

    result = gnome_vfs_get_file_info (file_name, &info,
                      GNOME_VFS_FILE_INFO_GET_MIME_TYPE |
                      GNOME_VFS_FILE_INFO_FOLLOW_LINKS);
    if (result == GNOME_VFS_OK) {
        gchar *type;

        type = g_strdup (gnome_vfs_file_info_get_mime_type (&info));
        gnome_vfs_file_info_unref (&info);
        return type;
    } else
        return NULL;
}

/**
 * e_msg_composer_set_changed:
 * @composer: An EMsgComposer object.
 *
 * Mark the composer as changed, so before the composer gets destroyed
 * the user will be prompted about unsaved changes.
 **/
void
e_msg_composer_set_changed (EMsgComposer *composer)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));

    composer->has_changed = TRUE;
}

/**
 * e_msg_composer_unset_changed:
 * @composer: An EMsgComposer object.
 *
 * Mark the composer as unchanged, so no prompt about unsaved changes
 * will appear before destroying the composer.
 **/
void
e_msg_composer_unset_changed (EMsgComposer *composer)
{
    g_return_if_fail (composer != NULL);
    g_return_if_fail (E_IS_MSG_COMPOSER (composer));

    composer->has_changed = FALSE;
}