path: root/mail/mail-config-druid.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 *  Authors:
 *    Jeffrey Stedfast <fejj@ximian.com>
 *    Dan Winship <danw@ximian.com>
 *    Iain Holmes <iain@ximian.com>
 *
 *  Copyright 2001 Ximian, Inc. (www.ximian.com)
 *
 *  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 Street #330, Boston, MA 02111-1307, USA.
 *
 */

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

#include <sys/types.h>
#include <sys/utsname.h>
#include <string.h>
#include <unistd.h>

#include <libgnomeui/gnome-dialog.h>
#include <libgnomeui/gnome-dialog-util.h>
#include <libgnomeui/gnome-druid.h>
#include <libgnomeui/gnome-druid-page-standard.h>
#include <glade/glade.h>
#include <gtkhtml/gtkhtml.h>
#include <gal/widgets/e-unicode.h>
#include "mail-config-druid.h"
#include "mail-config.h"
#include "mail-ops.h"
#include "mail.h"
#include "mail-session.h"

#include <bonobo/bonobo-exception.h>
#include <bonobo/bonobo-control.h>
#include <bonobo/bonobo-widget.h>
#include <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-context.h>

#include <evolution-wizard.h>
static void mail_config_druid_class_init (MailConfigDruidClass *class);
static void mail_config_druid_finalize   (GtkObject *obj);

static GtkWindowClass *parent_class;

/* These globals need fixed FIXME FIXME FIXME FIXME*/
static GHashTable *page_hash = NULL;
static GList *page_list = NULL;
static EvolutionWizard *account_wizard;

#define WIZARD_IID "OAFIID:GNOME_Evolution_Mail_Wizard_Factory"

typedef struct {
    MailAccountGui *gui;
    MailConfigDruidIdentity *id_page;

    MailConfigAccount *account;
    EvolutionWizard *wizard;

    gboolean identity_copied;
    CamelProvider *last_source;
} MailConfigWizard;

GtkType
mail_config_druid_get_type (void)
{
    static GtkType type = 0;
    
    if (!type) {
        GtkTypeInfo type_info = {
            "MailConfigDruid",
            sizeof (MailConfigDruid),
            sizeof (MailConfigDruidClass),
            (GtkClassInitFunc) mail_config_druid_class_init,
            (GtkObjectInitFunc) NULL,
            (GtkArgSetFunc) NULL,
            (GtkArgGetFunc) NULL
        };
        
        type = gtk_type_unique (gtk_window_get_type (), &type_info);
    }
    
    return type;
}

static void
mail_config_druid_class_init (MailConfigDruidClass *class)
{
    GtkObjectClass *object_class;
    
    object_class = (GtkObjectClass *) class;
    parent_class = gtk_type_class (gtk_window_get_type ());
    
    /* override methods */
    object_class->finalize = mail_config_druid_finalize;
}

static void
mail_config_druid_finalize (GtkObject *obj)
{
    MailConfigDruid *druid = (MailConfigDruid *) obj;
    CORBA_Environment ev;

    gtk_object_destroy (GTK_OBJECT (druid->xml));
    
    CORBA_exception_init (&ev);
    Bonobo_EventSource_removeListener ((Bonobo_EventSource) druid->event_source, druid->id, &ev);
    CORBA_exception_free (&ev);

    bonobo_object_release_unref ((Bonobo_Unknown) druid->event_source, &ev);
    bonobo_object_unref (BONOBO_OBJECT (druid->listener));

        ((GtkObjectClass *)(parent_class))->finalize (obj);
}


static struct {
    char *name;
    char *text;
} info[] = {
    { "identity_html",
      N_("Please enter your name and email address below. The \"optional\" fields below do not need to be filled in, unless you wish to include this information in email you send.") },
    { "source_html",
      N_("Please enter information about your incoming mail server below. If you don't know what kind of server you use, contact your system administrator or Internet Service Provider.") },
    { "extra_html",
      "The following options mostly don't work yet and are here only to taunt you. Ha ha!" },
    { "transport_html",
      N_("Please enter information about your outgoing mail protocol below. If you don't know which protocol you use, contact your system administrator or Internet Service Provider.") },
    { "management_html",
      N_("You are almost done with the mail configuration process. The identity, incoming mail server and outgoing mail transport method which you provided will be grouped together to make an Evolution mail account. Please enter a name for this account in the space below. This name will be used for display purposes only.") }
};
static int num_info = (sizeof (info) / sizeof (info[0]));

static void
html_size_req (GtkWidget *widget, GtkRequisition *requisition)
{
     requisition->height = GTK_LAYOUT (widget)->height;
}

static GtkWidget *
create_html (const char *name)
{
    GtkWidget *scrolled, *html;
    GtkHTMLStream *stream;
    GtkStyle *style;
    char *utf8;
    int i;
    
    html = gtk_html_new ();
    GTK_LAYOUT (html)->height = 0;
    gtk_signal_connect (GTK_OBJECT (html), "size_request",
                GTK_SIGNAL_FUNC (html_size_req), NULL);
    gtk_html_set_editable (GTK_HTML (html), FALSE);
    style = gtk_rc_get_style (html);
    if (!style)
        style = gtk_widget_get_style (html);
    if (style) {
        gtk_html_set_default_background_color (GTK_HTML (html),
                               &style->bg[0]);
    }
    gtk_widget_show (html);
    
    scrolled = gtk_scrolled_window_new (NULL, NULL);
    gtk_widget_show (scrolled);
    gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled),
                    GTK_POLICY_NEVER, GTK_POLICY_NEVER);
    gtk_container_add (GTK_CONTAINER (scrolled), html);
    
    for (i = 0; i < num_info; i++) {
        if (!strcmp (name, info[i].name))
            break;
    }
    g_return_val_if_fail (i != num_info, scrolled);
    
    stream = gtk_html_begin_content (GTK_HTML (html),
                     "text/html; charset=utf-8");
    gtk_html_write (GTK_HTML (html), stream, "<html><p>", 9);
    utf8 = e_utf8_from_locale_string (_(info[i].text));
    gtk_html_write (GTK_HTML (html), stream, utf8, strlen (utf8));
    g_free (utf8);
    gtk_html_write (GTK_HTML (html), stream, "</p></html>", 11);
    gtk_html_end (GTK_HTML (html), stream, GTK_HTML_STREAM_OK);
    
    return scrolled;
}


static void
druid_cancel (GnomeDruid *druid, gpointer user_data)
{
    MailConfigDruid *config = user_data;
    GNOME_Evolution_Wizard wiz;
    CORBA_Environment ev;

    wiz = bonobo_object_corba_objref (BONOBO_OBJECT (account_wizard));
    CORBA_exception_init (&ev);

    GNOME_Evolution_Wizard_notifyAction (wiz, 0, GNOME_Evolution_Wizard_CANCEL, &ev);
    CORBA_exception_free (&ev);
    
    gtk_widget_destroy (GTK_WIDGET (config));
}

static void
druid_finish (GnomeDruidPage *page, gpointer arg1, gpointer user_data)
{
    MailConfigDruid *druid = user_data;
    MailConfigAccount *account;
    GSList *mini;

    /* Load up this new account */
    account = gtk_object_get_data (GTK_OBJECT (account_wizard), "account-data");
    mini = g_slist_prepend (NULL, account);
    mail_load_storages (druid->shell, mini, TRUE);
    g_slist_free (mini);

    gtk_object_set_data (GTK_OBJECT (account_wizard), "account-data", NULL);
    gtk_widget_destroy (GTK_WIDGET (druid));
}

/* Identity Page */
static void
identity_changed (GtkWidget *widget, gpointer data)
{
    MailConfigWizard *gui = data;
    GtkWidget *incomplete;
    gboolean next_sensitive;
    
    next_sensitive = mail_account_gui_identity_complete (gui->gui, &incomplete);
    
    evolution_wizard_set_buttons_sensitive (gui->wizard, TRUE, next_sensitive, TRUE, NULL);
    
    if (!next_sensitive)
        gtk_widget_grab_focus (incomplete);
}

static void
identity_prepare (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;
    
    gtk_widget_grab_focus (GTK_WIDGET (gui->gui->full_name));
    identity_changed (NULL, data);
}

static gboolean
identity_next (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;
    
    if (!gui->identity_copied) {
        char *username;
        
        /* Copy the username part of the email address into
         * the Username field of the source and transport pages.
         */
        username = gtk_entry_get_text (gui->gui->email_address);
        username = g_strndup (username, strcspn (username, "@"));
        gtk_entry_set_text (gui->gui->source.username, username);
        gtk_entry_set_text (gui->gui->transport.username, username);
        g_free (username);
        
        gui->identity_copied = TRUE;
    }
    
    return FALSE;
}

/* Incoming mail Page */
static void
source_changed (GtkWidget *widget, gpointer data)
{
    MailConfigWizard *gui = data;
    GtkWidget *incomplete;
    gboolean next_sensitive;
    
    next_sensitive = mail_account_gui_source_complete (gui->gui, &incomplete);
    
    evolution_wizard_set_buttons_sensitive (gui->wizard, TRUE, next_sensitive, TRUE, NULL);
    
    if (!next_sensitive)
        gtk_widget_grab_focus (incomplete);
}

static void
source_prepare (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;
    
    source_changed (NULL, gui);
}

static gboolean
source_next (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;
    GtkWidget *transport_page;
    
    /* FIXME: if online, check that the data is good. */
    
    if (gui->gui->source.provider && gui->gui->source.provider->extra_conf)
        return FALSE;
    
    /* Otherwise, skip to transport page. */
    transport_page = glade_xml_get_widget (gui->gui->xml, "transport_page");
    evolution_wizard_set_page (gui->wizard, 3, NULL);
#if 0
    gnome_druid_set_page (config->druid, GNOME_DRUID_PAGE (transport_page));
#endif
    
    return TRUE;
}

/* Extra Config Page */
static void
extra_prepare (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;
    
    if (gui->gui->source.provider != gui->last_source) {
        gui->last_source = gui->gui->source.provider;
        mail_account_gui_build_extra_conf (gui->gui, NULL);
    }
}

/* Transport Page */
static void
transport_prepare (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;
    GtkWidget *incomplete;
    gboolean next_sensitive;
    
    next_sensitive = mail_account_gui_transport_complete (gui->gui, &incomplete);
    
    evolution_wizard_set_buttons_sensitive (gui->wizard, TRUE, next_sensitive, TRUE, NULL);
    
    if (!next_sensitive)
        gtk_widget_grab_focus (incomplete);
}

static gboolean
transport_next (EvolutionWizard *wizard, gpointer data)
{
    /* FIXME: if online, check that the data is good. */
    return FALSE;
}

static gboolean
transport_back (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;

    if (gui->gui->source.provider && gui->gui->source.provider->extra_conf)
        return FALSE;
    else {
        evolution_wizard_set_page (wizard, 1, NULL);
        return TRUE;
    }
}

static void
transport_changed (GtkWidget *widget, gpointer data)
{
    transport_prepare (NULL, data);
}

/* Management page */
static void
management_check (MailConfigWizard *wizard)
{
    gboolean next_sensitive;
    char *text;

    text = gtk_entry_get_text (wizard->gui->account_name);
    next_sensitive = text && *text;

    evolution_wizard_set_buttons_sensitive (wizard->wizard, TRUE,
                        next_sensitive, TRUE, NULL);
}

static void
management_prepare (EvolutionWizard *wizard, gpointer data)
{
    MailConfigWizard *gui = data;
    char *name;
    
    name = gtk_entry_get_text (gui->gui->email_address);
    if (name && *name)
        gtk_entry_set_text (gui->gui->account_name, name);
    
    management_check (gui);
}

static void
management_changed (GtkWidget *widget, gpointer data)
{
    MailConfigWizard *gui = data;

    management_check (gui);
}


static MailConfigAccount *
make_account (void)
{
    MailConfigAccount *account;
    char *name, *user;
    struct utsname uts;

    account = g_new0 (MailConfigAccount, 1);

    account->id = g_new0 (MailConfigIdentity, 1);
    name = g_get_real_name ();
    account->id->name = e_utf8_from_locale_string (name);
    user = getenv ("USER");
    if (user && !uname (&uts) && strchr (uts.nodename, '.'))
        account->id->address = g_strdup_printf ("%s@%s", user, uts.nodename);

    if (mail_config_get_default_transport ())
        account->transport = service_copy (mail_config_get_default_transport ());

    return account;
}

static struct {
    char *name;
    GtkSignalFunc next_func;
    GtkSignalFunc prepare_func;
    GtkSignalFunc back_func;
    GtkSignalFunc finish_func;
} pages[] = {
    { "identity_page",
      GTK_SIGNAL_FUNC (identity_next),
      GTK_SIGNAL_FUNC (identity_prepare),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL) },
    { "source_page",
      GTK_SIGNAL_FUNC (source_next),
      GTK_SIGNAL_FUNC (source_prepare),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL) },
    { "extra_page",
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (extra_prepare),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL) },
    { "transport_page",
      GTK_SIGNAL_FUNC (transport_next),
      GTK_SIGNAL_FUNC (transport_prepare),
      GTK_SIGNAL_FUNC (transport_back),
      GTK_SIGNAL_FUNC (NULL) },
    { "management_page",
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (management_prepare),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL) },
    { "finish_page",
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (druid_finish) },
    { NULL,
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL),
      GTK_SIGNAL_FUNC (NULL) }
};

static int
page_to_num (gpointer page)
{
    gpointer r;

    r = g_hash_table_lookup (page_hash, page);
    if (r == NULL) {
        return 0;
    }

    return GPOINTER_TO_INT (r);
}

static gboolean
next_func (GnomeDruidPage *page,
       GnomeDruid *druid,
       gpointer data)
{
    GNOME_Evolution_Wizard wiz;
    CORBA_Environment ev;
    int pagenum;

    wiz = bonobo_object_corba_objref (BONOBO_OBJECT (account_wizard));
    CORBA_exception_init (&ev);

    pagenum = page_to_num (page);
    GNOME_Evolution_Wizard_notifyAction (wiz, pagenum, GNOME_Evolution_Wizard_NEXT, &ev);
    CORBA_exception_free (&ev);
    return FALSE;
}

static gboolean
prepare_func (GnomeDruidPage *page,
          GnomeDruid *druid,
          gpointer data)
{
    GNOME_Evolution_Wizard wiz;
    CORBA_Environment ev;
    int pagenum;

    wiz = bonobo_object_corba_objref (BONOBO_OBJECT (account_wizard));
    CORBA_exception_init (&ev);

    pagenum = page_to_num (page);
    GNOME_Evolution_Wizard_notifyAction (wiz, pagenum, GNOME_Evolution_Wizard_PREPARE, &ev);
    CORBA_exception_free (&ev);
    return FALSE;
}

static gboolean
back_func (GnomeDruidPage *page,
       GnomeDruid *druid,
       gpointer data)
{
    GNOME_Evolution_Wizard wiz;
    CORBA_Environment ev;
    int pagenum;

    wiz = bonobo_object_corba_objref (BONOBO_OBJECT (account_wizard));
    CORBA_exception_init (&ev);

    pagenum = page_to_num (page);
    GNOME_Evolution_Wizard_notifyAction (wiz, pagenum, GNOME_Evolution_Wizard_BACK, &ev);
    CORBA_exception_free (&ev);
    return FALSE;
}

static gboolean
finish_func (GnomeDruidPage *page,
         GnomeDruid *druid,
         gpointer data)
{
    GNOME_Evolution_Wizard wiz;
    CORBA_Environment ev;
    int pagenum;

    wiz = bonobo_object_corba_objref (BONOBO_OBJECT (account_wizard));
    CORBA_exception_init (&ev);

    pagenum = page_to_num (page);
    g_print ("Hello\n");
    GNOME_Evolution_Wizard_notifyAction (wiz, 0, GNOME_Evolution_Wizard_FINISH, &ev);
    g_print ("Goodbye\n");
    CORBA_exception_free (&ev);

    druid_finish (page, druid, data);
    return FALSE;
}

static void
wizard_listener_event (BonoboListener *listener,
               char *event_name,
               BonoboArg *event_data,
               CORBA_Environment *ev,
               MailConfigDruid *druid)
{
    CORBA_short buttons, pagenum;
    GnomeDruidPage *page;

    if (strcmp (event_name, EVOLUTION_WIZARD_SET_BUTTONS_SENSITIVE) == 0) {
        buttons = (int) *((CORBA_short *)event_data->_value);
        gnome_druid_set_buttons_sensitive (GNOME_DRUID (druid->druid),
                           (buttons & 4) >> 2,
                           (buttons & 2) >> 1,
                           (buttons & 1));
    } else if (strcmp (event_name, EVOLUTION_WIZARD_SET_SHOW_FINISH) == 0) {
        gnome_druid_set_show_finish (GNOME_DRUID (druid->druid),
                         (gboolean) *((CORBA_boolean *)event_data->_value));
    } else if (strcmp (event_name, EVOLUTION_WIZARD_SET_PAGE) == 0) {
        pagenum = (int) *((CORBA_short *) event_data->_value);

        page = g_list_nth_data (page_list, pagenum - 1);
        gnome_druid_set_page (GNOME_DRUID (druid->druid), page);
    }
}

static void
construct (MailConfigDruid *druid)
{
    GtkWidget *widget;
    GNOME_Evolution_Wizard corba_wizard;
    Bonobo_Listener corba_listener;
    CORBA_Environment ev;
    int i;

    /* Start account wizard */
    CORBA_exception_init (&ev);
    corba_wizard = oaf_activate_from_id ("OAFIID:GNOME_Evolution_Mail_Wizard", 0, NULL, &ev);
    CORBA_exception_free (&ev);
    g_assert (account_wizard != NULL);
    
    druid->xml = glade_xml_new (EVOLUTION_GLADEDIR "/mail-config.glade", NULL);
    /* get our toplevel widget and reparent it */
    widget = glade_xml_get_widget (druid->xml, "druid");
    gtk_widget_reparent (widget, GTK_WIDGET (druid));

    druid->druid = GNOME_DRUID (widget);

    /* set window title */
    gtk_window_set_title (GTK_WINDOW (druid), _("Evolution Account Assistant"));
    gtk_window_set_policy (GTK_WINDOW (druid), FALSE, TRUE, FALSE);
    gtk_window_set_modal (GTK_WINDOW (druid), TRUE);
    gtk_object_set (GTK_OBJECT (druid), "type", GTK_WINDOW_DIALOG, NULL);


    druid->listener = bonobo_listener_new (NULL, NULL);
    gtk_signal_connect (GTK_OBJECT (druid->listener), "event-notify",
                GTK_SIGNAL_FUNC (wizard_listener_event), druid);
    corba_listener = bonobo_object_corba_objref (BONOBO_OBJECT (druid->listener));
    CORBA_exception_init (&ev);
    druid->event_source = (Bonobo_Unknown) bonobo_object_query_interface (
        BONOBO_OBJECT (account_wizard), "IDL:Bonobo/EventSource:1.0");
    g_assert (druid->event_source != CORBA_OBJECT_NIL);
    druid->id = Bonobo_EventSource_addListener ((Bonobo_EventSource) druid->event_source, corba_listener, &ev);
    if (BONOBO_EX (&ev)) {
        g_warning ("Error adding listener (%s)",
               CORBA_exception_id (&ev));
    }
    CORBA_exception_free (&ev);

    if (page_hash != NULL) {
        g_hash_table_destroy (page_hash);
    }
    page_hash = g_hash_table_new (NULL, NULL);
    for (i = 0; pages[i].name != NULL; i++) {
        GtkWidget *page;
        GnomeDruidPageStandard *dpage;

        page = glade_xml_get_widget (druid->xml, pages[i].name);
        /* Store pages */
        g_hash_table_insert (page_hash, page, GINT_TO_POINTER (i));
        page_list = g_list_append (page_list, page);

        gtk_signal_connect (GTK_OBJECT (page), "next",
                    GTK_SIGNAL_FUNC (next_func), druid);
        gtk_signal_connect (GTK_OBJECT (page), "prepare",
                    GTK_SIGNAL_FUNC (prepare_func), druid);
        gtk_signal_connect (GTK_OBJECT (page), "back",
                    GTK_SIGNAL_FUNC (back_func), druid);
    
        gtk_signal_connect (GTK_OBJECT (page), "finish", 
                    GTK_SIGNAL_FUNC (finish_func), druid);

        if (i !=  5) {
            Bonobo_Control control;
            GtkWidget *w;
            CORBA_Environment ev;
            
            dpage = GNOME_DRUID_PAGE_STANDARD (page);

            CORBA_exception_init (&ev);
            control = GNOME_Evolution_Wizard_getControl (corba_wizard, i, &ev);
            if (BONOBO_EX (&ev)) {
                g_warning ("Error getting page %d: %s", i, 
                       CORBA_exception_id (&ev));
                CORBA_exception_free (&ev);
                continue;
            }

            w = bonobo_widget_new_control_from_objref (control,
                                   CORBA_OBJECT_NIL);
            gtk_box_pack_start (GTK_BOX (dpage->vbox), w, TRUE,
                        TRUE, 0);
            gtk_widget_show_all (w);
        }
    }
    gtk_signal_connect (GTK_OBJECT (druid->druid), "cancel", druid_cancel, druid);

    gnome_druid_set_buttons_sensitive (druid->druid, FALSE, TRUE, TRUE);
}

MailConfigDruid *
mail_config_druid_new (GNOME_Evolution_Shell shell)
{
    MailConfigDruid *new;

    new = (MailConfigDruid *) gtk_type_new (mail_config_druid_get_type ());
    construct (new);
    new->shell = shell;

    return new;
}

static BonoboControl *
get_fn (EvolutionWizard *wizard,
        int page_num,
        void *closure)
{
        MailConfigWizard *gui = closure;
        BonoboControl *control;
        GtkWidget *vbox, *widget;
    static gboolean first_time = TRUE;

        if (gui->gui == NULL) {
        if (gui->account == NULL) {
            gui->account = make_account ();
            gtk_object_set_data (GTK_OBJECT (wizard), "account-data",
                         gui->account);
        }

                gui->gui = mail_account_gui_new (gui->account);

                /* set up signals, etc */
                gtk_signal_connect (GTK_OBJECT (gui->gui->account_name),
                                    "changed", management_changed, gui);
                gtk_signal_connect (GTK_OBJECT (gui->gui->full_name), 
                                    "changed", identity_changed, gui);
                gtk_signal_connect (GTK_OBJECT (gui->gui->email_address),
                                    "changed", identity_changed, gui);
        gtk_signal_connect (GTK_OBJECT (gui->gui->source.hostname), 
                    "changed", source_changed, gui);
        gtk_signal_connect (GTK_OBJECT (gui->gui->source.username),
                    "changed", source_changed, gui);
        gtk_signal_connect (GTK_OBJECT (gui->gui->source.path), 
                    "changed", source_changed, gui);
        gtk_signal_connect (GTK_OBJECT (gui->gui->transport.hostname),

                    "changed", transport_changed, gui);
        gtk_signal_connect (GTK_OBJECT (gui->gui->transport.username),
                    "changed", transport_changed, gui);
        first_time = TRUE;
        }

        /* Fill in the druid pages */
    vbox = gtk_vbox_new (FALSE, 0);
        switch (page_num) {
        case 0:
        widget = create_html ("identity_html");
        gtk_box_pack_start (GTK_BOX (vbox), widget, FALSE, FALSE, 0);
        widget = glade_xml_get_widget (gui->gui->xml, "identity_required_frame");
        gtk_widget_reparent (widget, vbox);
        gtk_box_set_child_packing (GTK_BOX (vbox), widget, FALSE, FALSE, 0, GTK_PACK_START);
        widget = glade_xml_get_widget (gui->gui->xml, "identity_optional_frame");
        gtk_widget_reparent (widget, vbox);
        gtk_box_set_child_packing (GTK_BOX (vbox), widget, FALSE, FALSE, 0, GTK_PACK_START);
                break;

        case 1:
        widget = create_html ("source_html");
        gtk_box_pack_start (GTK_BOX (vbox), widget, FALSE, FALSE, 0);
        widget = glade_xml_get_widget (gui->gui->xml, "source_vbox");
                gtk_widget_reparent (widget, vbox);
        gtk_widget_show (widget);
                break;

        case 2:
        widget = create_html ("extra_html");
        gtk_box_pack_start (GTK_BOX (vbox), widget, FALSE, FALSE, 0);
                widget = glade_xml_get_widget (gui->gui->xml, "extra_vbox");
                gtk_widget_reparent (widget, vbox);
                break;

        case 3:
        widget = create_html ("management_html");
        gtk_box_pack_start (GTK_BOX (vbox), widget, FALSE, FALSE, 0);
                widget = glade_xml_get_widget (gui->gui->xml, "transport_vbox");
                gtk_widget_reparent (widget, vbox);
        gtk_widget_show (widget);
                break;

        case 4:
                widget = glade_xml_get_widget (gui->gui->xml, "management_frame");
                gtk_widget_reparent (widget, vbox);
                break;

        default:
                return NULL;
        }

        gtk_widget_show (vbox);
        control = bonobo_control_new (vbox);

    if (first_time) {
        mail_account_gui_setup (gui->gui, NULL);
        first_time = FALSE;
    }
        return control;
}

static struct {
        GtkSignalFunc next_func;
        GtkSignalFunc prepare_func;
        GtkSignalFunc back_func;
        GtkSignalFunc finish_func;
        GtkSignalFunc help_func;
} wizard_pages[] = {
        { GTK_SIGNAL_FUNC (identity_next),
          GTK_SIGNAL_FUNC (identity_prepare),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL) },
        { GTK_SIGNAL_FUNC (source_next),
          GTK_SIGNAL_FUNC (source_prepare),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL) },
        { GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (extra_prepare),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL) },
        { GTK_SIGNAL_FUNC (transport_next),
          GTK_SIGNAL_FUNC (transport_prepare),
          GTK_SIGNAL_FUNC (transport_back),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL) },
        { GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (management_prepare),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL),
          GTK_SIGNAL_FUNC (NULL) }
};

static void
wizard_next_cb (EvolutionWizard *wizard,
                int page_num,
                MailConfigWizard *gui)
{
        if (wizard_pages[page_num].next_func != NULL) {
                wizard_pages[page_num].next_func (wizard, gui);
        }
}

static void
wizard_prepare_cb (EvolutionWizard *wizard,
                   int page_num,
                   MailConfigWizard *gui)
{
        if (wizard_pages[page_num].prepare_func != NULL) {
                wizard_pages[page_num].prepare_func (wizard, gui);
        }
}

static void
wizard_back_cb (EvolutionWizard *wizard,
                int page_num,
                MailConfigWizard *gui) 
{
        if (wizard_pages[page_num].back_func != NULL) {
                wizard_pages[page_num].back_func (wizard, gui);
        }
}

static void
wizard_finish_cb (EvolutionWizard *wizard,
          int page_num,
          MailConfigWizard *w)
{
    MailAccountGui *gui = w->gui;

    /* Add the account to our list (do it first because future
           steps might want to access config->accounts) */
    mail_config_add_account (gui->account);

    /* Save the settings for that account */
    mail_account_gui_save (gui);
    if (gui->account->source)
        gui->account->source->enabled = TRUE;

    /* Write out the config info */
    mail_config_write ();
    mail_account_gui_destroy (gui);
    w->gui = NULL;
    w->account = NULL;
}

static void
wizard_cancel_cb (EvolutionWizard *wizard,
                  int page_num,
                  MailConfigWizard *gui)
{
    mail_account_gui_destroy (gui->gui);
    gui->gui = NULL;
}

static void
wizard_help_cb (EvolutionWizard *wizard,
                int page_num,
                MailConfigWizard *gui)
{
}

static BonoboObject *
evolution_mail_config_wizard_factory_fn (BonoboGenericFactory *factory,
                     void *closure)
{
    EvolutionWizard *wizard;
        MailConfigAccount *account;
        MailConfigWizard *gui;
    
        account = make_account ();

        gui = g_new (MailConfigWizard, 1);
        gui->account = account;
    gui->gui = NULL;

        wizard = evolution_wizard_new (get_fn, 5, gui);
    account_wizard = wizard;

    gtk_object_set_data (GTK_OBJECT (account_wizard), "account-data", gui);
    gui->wizard = wizard;

        gtk_signal_connect (GTK_OBJECT (wizard), "next",
                            GTK_SIGNAL_FUNC (wizard_next_cb), gui);
        gtk_signal_connect (GTK_OBJECT (wizard), "prepare",
                            GTK_SIGNAL_FUNC (wizard_prepare_cb), gui);
        gtk_signal_connect (GTK_OBJECT (wizard), "back",
                            GTK_SIGNAL_FUNC (wizard_back_cb), gui);
        gtk_signal_connect (GTK_OBJECT (wizard), "finish",
                            GTK_SIGNAL_FUNC (wizard_finish_cb), gui);
        gtk_signal_connect (GTK_OBJECT (wizard), "cancel",
                            GTK_SIGNAL_FUNC (wizard_cancel_cb), gui);
        gtk_signal_connect (GTK_OBJECT (wizard), "help",
                            GTK_SIGNAL_FUNC (wizard_help_cb), gui);
        return BONOBO_OBJECT (wizard);
}

void
evolution_mail_config_wizard_init (void)
{
    BonoboGenericFactory *factory;

    factory = bonobo_generic_factory_new (WIZARD_IID,
                          evolution_mail_config_wizard_factory_fn, NULL);

    if (factory == NULL) {
        g_warning ("Error starting factory");
        return;
    }

    bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory));
}