Fix build by allowing includes for e-table dir

2000-08-08  JP Rosevear  <jpr@helixcode.com>

	* Makefile.am: Fix build by allowing includes for e-table dir

2000-08-08  JP Rosevear  <jpr@helixcode.com>

	* mail-ops.c (check_configured): Use config accessors
	(fetch_mail): ditto
	(composer_send_cb): ditto
	(create_msg_composer): ditto

	* mail-config-gui.h: Update API

	* mail-config.h: Update API

	* mail-config.c: Add accessor functions
	(mail_config_is_configured): accessor function
	(mail_config_get_default_identity): ditto
	(mail_config_get_default_source): ditto
	(mail_config_get_transport): ditto
	(mail_config_send_html): ditto
	(identity_copy): Make public
	(identity_destroy): ditto
	(identity_destroy_each): ditto
	(service_copy): ditto
	(service_destroy): ditto
	(service_destroy_each): ditto
	(mail_config_init): Rename from init_config and make public
	(mail_config_clear): Rename from clear_config and make public
	(mail_config_read): Rename from read_config and make public
	(mail_config_write): Reanme from write_config and make public

	* main.c (main): Call mail_config_init.

	* mail.h: Include mail-config-gui.h

	* mail-config-gui.c: Move config gui stuff here.
	(source_dialog): Kill memory leak from debug leftovers.
	Make sure returned source is NULL by default

svn path=/trunk/; revision=4592

11 files changed, 2276 insertions, 2100 deletions

diff --git a/composer/ChangeLog b/composer/ChangeLog
index 264f97ad29..ebed71a31a 100644
--- a/composer/ChangeLog
+++ b/composer/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-08  JP Rosevear  <jpr@helixcode.com>
+
+	* Makefile.am: Fix build by allowing includes for e-table dir
+
 2000-08-07  Jeffrey Stedfast  <fejj@helixcode.com>
 
 	* e-msg-composer-attachment-bar.c (attach_to_multipart):
diff --git a/composer/Makefile.am b/composer/Makefile.am
index 44c19403ca..92de21b0ae 100644
--- a/composer/Makefile.am
+++ b/composer/Makefile.am
@@ -33,6 +33,8 @@ libcomposer_la_LDFLAGS = -static
 INCLUDES =								\
 	-I$(top_srcdir)							\
 	-I$(top_builddir)						\
+	-I$(top_srcdir)/widgets						\
+	-I$(top_builddir)/widgets					\
 	-I$(top_srcdir)/camel					 	\
 	-I$(top_builddir)/camel					 	\
 	-I$(top_builddir)/addressbook/gui/component/select-names	\
diff --git a/mail/ChangeLog b/mail/ChangeLog
index 292c3b616f..9f55ebd6f0 100644
--- a/mail/ChangeLog
+++ b/mail/ChangeLog
@@ -1,3 +1,39 @@
+2000-08-08  JP Rosevear  <jpr@helixcode.com>
+
+	* mail-ops.c (check_configured): Use config accessors
+	(fetch_mail): ditto
+	(composer_send_cb): ditto
+	(create_msg_composer): ditto
+
+	* mail-config-gui.h: Update API
+
+	* mail-config.h: Update API
+
+	* mail-config.c: Add accessor functions
+	(mail_config_is_configured): accessor function
+	(mail_config_get_default_identity): ditto
+	(mail_config_get_default_source): ditto
+	(mail_config_get_transport): ditto
+	(mail_config_send_html): ditto
+	(identity_copy): Make public
+	(identity_destroy): ditto
+	(identity_destroy_each): ditto
+	(service_copy): ditto
+	(service_destroy): ditto
+	(service_destroy_each): ditto
+	(mail_config_init): Rename from init_config and make public
+	(mail_config_clear): Rename from clear_config and make public
+	(mail_config_read): Rename from read_config and make public
+	(mail_config_write): Reanme from write_config and make public
+
+	* main.c (main): Call mail_config_init.
+
+	* mail.h: Include mail-config-gui.h
+
+	* mail-config-gui.c: Move config gui stuff here.
+	(source_dialog): Kill memory leak from debug leftovers.
+	Make sure returned source is NULL by default
+
 2000-08-07  Not Zed  <NotZed@HelixCode.com>
 
 	* mail-local.c (local_reconfigure_folder): Redone to show a
diff --git a/mail/Makefile.am b/mail/Makefile.am
index 74f8b71956..a114570803 100644
--- a/mail/Makefile.am
+++ b/mail/Makefile.am
@@ -43,6 +43,9 @@ evolution_mail_SOURCES =		\
 	folder-browser.h		\
 	folder-browser-factory.c	\
 	mail-config.c			\
+	mail-config.h			\
+	mail-config-gui.c		\
+	mail-config-gui.h		\
 	mail-crypto.c			\
 	mail-display.c			\
 	mail-display.h			\
diff --git a/mail/mail-config-gui.c b/mail/mail-config-gui.c
new file mode 100644
index 0000000000..2d957af301
--- /dev/null
+++ b/mail/mail-config-gui.c
@@ -0,0 +1,2117 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
+/* mail-config.c: Mail configuration dialogs/wizard. */
+
+/* 
+ * Authors: 
+ *  Dan Winship <danw@helixcode.com>
+ *  Jeffrey Stedfast <fejj@helixcode.com>
+ *  JP Rosevear <jpr@helixcode.com>
+ *
+ * Copyright 2000 Helix Code, Inc. (http://www.helixcode.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 Place, Suite 330, Boston, MA 02111-1307
+ * USA
+ */
+
+#include <config.h>
+#include <pwd.h>
+
+#include <gnome.h>
+#include <gtkhtml/gtkhtml.h>
+#include <glade/glade.h>
+
+#include "e-util/e-html-utils.h"
+#include "e-util/e-setup.h"
+#include "mail.h"
+#include "mail-config.h"
+#include "mail-config-gui.h"
+
+typedef struct _MailDialogIdentityPage MailDialogIdentityPage;
+typedef struct _MailDialogServicePage MailDialogServicePage;
+
+typedef void (*IdentityPageCallback) (MailDialogIdentityPage *, gpointer);
+typedef void (*ServicePageCallback) (MailDialogServicePage *, gpointer);
+
+typedef struct 
+{
+	CamelProvider *provider;
+	CamelService *service;
+	CamelProviderType type;
+	GList *authtypes;
+} MailService;
+
+struct _MailDialogIdentityPage
+{
+	GtkWidget *vbox;
+	GtkWidget *name;
+	GtkWidget *address;
+	GtkWidget *org;
+	GtkWidget *sig;
+	IdentityPageCallback undonecb;
+	gpointer undonedata;
+	IdentityPageCallback donecb;
+	gpointer donedata;
+};
+
+typedef struct
+{
+	GtkWidget *item;
+	GtkWidget *vbox;
+	CamelProviderType type;
+	gchar *protocol;
+	GtkWidget *user;
+	gboolean userneed;
+	GtkWidget *host;
+	gboolean hostneed;
+	GtkWidget *path;
+	gboolean pathneed;
+	GtkWidget *auth_optionmenu;
+	GList *auth_items;
+	GtkWidget *auth_html;
+	GtkWidget *auth_detect;
+	gint pnum;
+} MailDialogServicePageItem;
+
+struct _MailDialogServicePage
+{
+	GtkWidget *vbox;
+	GtkWidget *optionmenu;
+	GList *items;
+	GtkWidget *notebook;
+	MailDialogServicePageItem *spitem;
+	ServicePageCallback changedcb;
+	gpointer changeddata;
+	ServicePageCallback undonecb;
+	gpointer undonedata;
+	ServicePageCallback donecb;
+	gpointer donedata;
+};
+
+typedef struct
+{
+	GtkWidget *vbox;
+	MailDialogServicePage *page;
+} MailDialogSourcePage;
+
+typedef struct
+{
+	GtkWidget *vbox;
+	MailDialogServicePage *page;
+} MailDialogNewsPage;
+
+typedef struct
+{
+	GtkWidget *vbox;
+	MailDialogServicePage *page;
+} MailDialogTransportPage;
+
+typedef struct 
+{
+	GtkWidget *dialog;
+	MailDialogIdentityPage *page;
+	MailConfigIdentity *id;
+} MailDialogIdentity;
+
+typedef struct
+{
+	GtkWidget *dialog;
+	MailDialogSourcePage *page;
+	MailConfigService *source;
+} MailDialogSource;
+
+typedef struct
+{
+	GtkWidget *dialog;
+	MailDialogNewsPage *page;
+	MailConfigService *source;
+} MailDialogNews;
+
+typedef struct
+{
+	GladeXML *gui;
+	GtkWidget *dialog;
+	GtkWidget *druid;
+	MailDialogIdentityPage *idpage;
+	gboolean iddone;
+	MailDialogSourcePage *spage;
+	gboolean sdone;
+	MailDialogTransportPage *tpage;
+	gboolean tdone;
+} MailDruidDialog;
+
+typedef struct
+{
+	GladeXML *gui;
+	GtkWidget *dialog;
+	GtkWidget *notebook;
+	GtkWidget *clistIdentities;
+	gint idrow;
+	gint maxidrow;
+	GtkWidget *clistSources;
+	gint srow;
+	gint maxsrow;
+	GtkWidget *clistNewsServers;
+	gint nrow;
+	gint maxnrow;
+	MailDialogTransportPage *page;
+	gboolean tpagedone;
+	GtkWidget *chkFormat;
+} MailDialog;
+
+/* private prototypes - these are ugly, rename some of them? */
+static void html_size_req (GtkWidget *widget, GtkRequisition *requisition);
+static GtkWidget *html_new (gboolean white);
+static void put_html (GtkHTML *html, char *text);
+static void error_dialog (GtkWidget *parent_finder, const char *fmt, ...);
+static GdkImlibImage *load_image (const char *name);
+static void service_page_menuitem_activate (GtkWidget *item, 
+					    MailDialogServicePage *page);
+static void service_page_item_changed (GtkWidget *item, 
+				       MailDialogServicePage *page);
+static void service_page_item_auth_activate (GtkWidget *menuitem, 
+					     MailDialogServicePageItem *spitem);
+
+
+/* HTML Helpers */
+static void
+html_size_req (GtkWidget *widget, GtkRequisition *requisition)
+{
+	 requisition->height = GTK_LAYOUT (widget)->height;
+}
+
+/* Returns a GtkHTML which is already inside a GtkScrolledWindow. If
+ * @white is TRUE, the GtkScrolledWindow will be inside a GtkFrame.
+ */
+static GtkWidget *
+html_new (gboolean white)
+{
+	GtkWidget *html, *scrolled, *frame;
+	GtkStyle *style;
+	
+	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) {
+		gtk_html_set_default_background_color (GTK_HTML (html),
+						       white ? &style->white :
+						       &style->bg[0]);
+	}
+	gtk_widget_set_sensitive (html, FALSE);
+	scrolled = gtk_scrolled_window_new (NULL, NULL);
+	gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled),
+					GTK_POLICY_NEVER,
+					GTK_POLICY_NEVER);
+	gtk_container_add (GTK_CONTAINER (scrolled), html);
+	
+	if (white) {
+		frame = gtk_frame_new (NULL);
+		gtk_frame_set_shadow_type (GTK_FRAME (frame),
+					   GTK_SHADOW_ETCHED_IN);
+		gtk_container_add (GTK_CONTAINER (frame), scrolled);
+		gtk_widget_show_all (frame);
+	} else
+		gtk_widget_show_all (scrolled);
+	
+	return html;
+}
+
+static void
+put_html (GtkHTML *html, char *text)
+{
+	GtkHTMLStream *handle;
+	
+	text = e_text_to_html (text, E_TEXT_TO_HTML_CONVERT_NL);
+	handle = gtk_html_begin (html);
+	gtk_html_write (html, handle, "<HTML><BODY>", 12);
+	gtk_html_write (html, handle, text, strlen (text));
+	gtk_html_write (html, handle, "</BODY></HTML>", 14);
+	g_free (text);
+	gtk_html_end (html, handle, GTK_HTML_STREAM_OK);
+}
+
+
+/* Standard Dialog Helpers */
+static void
+error_dialog (GtkWidget *parent_finder, const char *fmt, ...)
+{
+	GtkWidget *parent, *dialog;
+	char *msg;
+	va_list ap;
+	
+	parent = gtk_widget_get_ancestor (parent_finder, GTK_TYPE_WINDOW);
+	
+	va_start (ap, fmt);
+	msg = g_strdup_vprintf (fmt, ap);
+	va_end (ap);
+	
+	dialog = gnome_error_dialog_parented (msg, GTK_WINDOW (parent));
+	gtk_window_set_modal (GTK_WINDOW (dialog), TRUE);
+	g_free (msg);
+}
+
+static void
+info_dialog (GtkWidget *parent_finder, const char *fmt, ...)
+{
+	GtkWidget *parent, *dialog;
+	char *msg;
+	va_list ap;
+	
+	parent = gtk_widget_get_ancestor (parent_finder, GTK_TYPE_WINDOW);
+	
+	va_start (ap, fmt);
+	msg = g_strdup_vprintf (fmt, ap);
+	va_end (ap);
+	
+	dialog = gnome_ok_dialog_parented (msg, GTK_WINDOW (parent));
+	gtk_window_set_modal (GTK_WINDOW (dialog), TRUE);
+	g_free (msg);
+}
+
+/* Provider List */
+static GSList *
+provider_list_add (GSList *services, CamelProviderType type, 
+		   CamelProvider *prov)
+{
+	MailService *mcs;
+	CamelService *service;
+	CamelException *ex;
+	char *url;
+
+	ex = camel_exception_new ();
+
+	url = g_strdup_printf ("%s:", prov->protocol);
+	service = camel_session_get_service (session, url, type, ex);
+	g_free (url);
+	if (!service) {
+		camel_exception_free (ex);
+		return services;
+	}
+
+	mcs = g_new (MailService, 1);
+	mcs->provider = prov;
+	mcs->service = service;
+	mcs->type = type;
+	mcs->authtypes = camel_service_query_auth_types (mcs->service, ex);
+	camel_exception_free (ex);
+
+	return g_slist_prepend (services, mcs);
+}
+
+static void 
+provider_list (GSList **sources, GSList **news, GSList **transports)
+{
+	GList *providers, *p;
+	
+	/* Fetch list of all providers. */
+	providers = camel_session_list_providers (session, TRUE);
+	*sources = *transports = *news = NULL;
+	for (p = providers; p; p = p->next) {
+		CamelProvider *prov = p->data;
+		
+		if (!strcmp (prov->domain, "news")) {
+			if (prov->object_types[CAMEL_PROVIDER_STORE]) {
+				*news = provider_list_add (*news,
+							   CAMEL_PROVIDER_STORE,
+							   prov);
+			}
+		}
+    
+		if (strcmp (prov->domain, "mail"))
+			continue;
+		
+		if (prov->object_types[CAMEL_PROVIDER_STORE]) {
+			*sources = provider_list_add (*sources,
+						      CAMEL_PROVIDER_STORE,
+						      prov);
+		} else if (prov->object_types[CAMEL_PROVIDER_TRANSPORT]) {
+			*transports = provider_list_add (*transports,
+							 CAMEL_PROVIDER_TRANSPORT,
+							 prov);
+		}
+	}	
+}
+
+/* Utility routines */
+static GdkImlibImage *
+load_image (const char *name)
+{
+	char *path;
+	GdkImlibImage *image;
+
+	path = g_strdup_printf (EVOLUTION_ICONSDIR "/%s", name);
+	image = gdk_imlib_load_image (path);
+	g_free (path);
+
+	return image;
+}
+
+/* Identity Page */
+static void
+identity_page_changed (GtkWidget *widget, MailDialogIdentityPage *page)
+{
+	gchar *name, *addr;
+	
+	name = gtk_editable_get_chars (GTK_EDITABLE (page->name), 0, -1);
+	addr = gtk_editable_get_chars (GTK_EDITABLE (page->address), 0, -1);
+	
+	if (addr && *addr && name && *name && page->donecb)
+		page->donecb (page, page->donedata);
+	else if (page->undonecb)
+		page->undonecb (page, page->undonedata);
+
+	g_free (name);
+	g_free (addr);
+}
+
+static MailConfigIdentity *
+identity_page_extract (MailDialogIdentityPage *page)
+{
+	MailConfigIdentity *id = g_new0 (MailConfigIdentity, 1);
+
+	id->name = gtk_editable_get_chars (GTK_EDITABLE (page->name), 0, -1);
+	id->address = 
+		gtk_editable_get_chars (GTK_EDITABLE (page->address), 0, -1);
+	id->org = gtk_editable_get_chars (GTK_EDITABLE (page->org), 0, -1);
+	id->sig = gtk_editable_get_chars (GTK_EDITABLE (page->sig), 0, -1);
+
+	return id;
+}
+
+static void
+identity_page_set_undone_cb (MailDialogIdentityPage *page, 
+			     IdentityPageCallback cb, gpointer data)
+{
+	page->undonecb = cb;
+	page->undonedata = data;
+}
+
+static void
+identity_page_set_done_cb (MailDialogIdentityPage *page, 
+			   IdentityPageCallback cb, gpointer data)
+{
+	page->donecb = cb;
+	page->donedata = data;
+}
+
+static MailDialogIdentityPage *
+identity_page_new (const MailConfigIdentity *id)
+{
+	MailDialogIdentityPage *page = g_new0 (MailDialogIdentityPage, 1);
+	GtkWidget *html, *table;
+	GtkWidget *label, *fentry, *hsep;
+	gchar *user = NULL;
+	gboolean new = !id;
+	
+	page->vbox = gtk_vbox_new (FALSE, 5);
+	
+	html = html_new (FALSE);
+	put_html (GTK_HTML (html),
+		  _("Enter your name and email address to be used in "
+		    "outgoing mail. You may also, optionally, enter the "
+		    "name of your organization, and the name of a file "
+		    "to read your signature from."));
+	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
+			    FALSE, TRUE, 0);
+
+	table = gtk_table_new (5, 2, FALSE);
+	gtk_table_set_row_spacings (GTK_TABLE (table), 10);
+	gtk_table_set_col_spacings (GTK_TABLE (table), 6);
+	gtk_container_set_border_width (GTK_CONTAINER (table), 8);
+	gtk_box_pack_start (GTK_BOX (page->vbox), table, FALSE, FALSE, 0);
+
+	label = gtk_label_new (_("Full name:"));
+	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 0, 1,
+			  GTK_FILL, 0, 0, 0);
+	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
+
+	page->name = gtk_entry_new ();
+	gtk_table_attach (GTK_TABLE (table), page->name, 1, 2, 0, 1,
+			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
+
+	if (!id || !id->name)
+		user = g_get_real_name ();
+
+	if ((id && id->name) || user) {
+		char *name;
+
+		if (id && id->name)
+			name = g_strdup (id->name);
+		else
+			name = g_strdup (user);
+
+		gtk_entry_set_text (GTK_ENTRY (page->name), name);
+		g_free (name);
+	}
+
+	label = gtk_label_new (_("Email address:"));
+	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 1, 2,
+			  GTK_FILL, 0, 0, 0);
+	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
+
+	page->address = gtk_entry_new ();
+	if (id && id->address)
+		gtk_entry_set_text (GTK_ENTRY (page->address), id->address);
+	gtk_table_attach (GTK_TABLE (table), page->address, 1, 2, 1, 2,
+			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
+
+	hsep = gtk_hseparator_new ();
+	gtk_table_attach (GTK_TABLE (table), hsep, 0, 2, 2, 3,
+			  GTK_FILL, 0, 0, 8);
+
+	label = gtk_label_new (_("Organization:"));
+	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 3, 4,
+			  GTK_FILL, 0, 0, 0);
+	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
+
+	page->org = gtk_entry_new ();
+	if (id && id->org)
+		gtk_entry_set_text (GTK_ENTRY (page->org), id->org);
+	gtk_table_attach (GTK_TABLE (table), page->org, 1, 2, 3, 4,
+			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
+
+	label = gtk_label_new (_("Signature file:"));
+	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 4, 5,
+			  GTK_FILL, GTK_FILL, 0, 0);
+	gtk_misc_set_alignment (GTK_MISC (label), 1, 0);
+
+	fentry = gnome_file_entry_new (NULL, _("Signature File"));
+	page->sig = gnome_file_entry_gtk_entry (GNOME_FILE_ENTRY (fentry));
+	if (id && id->sig) {
+		gtk_entry_set_text (GTK_ENTRY (page->sig), id->sig);
+	} else {
+		gchar *default_sig;
+		
+		default_sig = g_strconcat (g_get_home_dir (), 
+					   G_DIR_SEPARATOR_S,
+					   ".signature", NULL);
+		if (g_file_exists (default_sig))
+			gtk_entry_set_text (GTK_ENTRY (page->sig), default_sig);
+		g_free (default_sig);
+	}
+	
+	gtk_table_attach (GTK_TABLE (table), fentry, 1, 2, 4, 5,
+			  GTK_FILL, 0, 0, 0);
+	gnome_file_entry_set_default_path (GNOME_FILE_ENTRY (fentry),
+					   g_get_home_dir ());
+	
+	gtk_signal_connect (GTK_OBJECT (page->name), "changed",
+			    GTK_SIGNAL_FUNC (identity_page_changed), page);
+	gtk_signal_connect (GTK_OBJECT (page->address), "changed",
+			    GTK_SIGNAL_FUNC (identity_page_changed), page);
+	if (!new) {
+		gtk_signal_connect (GTK_OBJECT (page->org), "changed",
+				    GTK_SIGNAL_FUNC (identity_page_changed), 
+				    page);
+		gtk_signal_connect (GTK_OBJECT (page->sig), "changed",
+				    GTK_SIGNAL_FUNC (identity_page_changed), 
+				    page);
+	}
+
+	gtk_widget_show_all (table);
+
+	return page;
+}
+
+/* Service page */
+static MailDialogServicePageItem *
+service_page_item_by_protocol (MailDialogServicePage *page, gchar *protocol)
+{
+	MailDialogServicePageItem *spitem;
+	gint len, i;
+	
+	len = g_list_length (page->items);
+	for (i = 0; i < len; i++) {
+		spitem = (MailDialogServicePageItem *)
+			g_list_nth_data (page->items, i);
+		if (!g_strcasecmp (spitem->protocol, protocol)) 
+			return spitem;
+	}
+	
+	return NULL;
+}
+
+static MailDialogServicePageItem *
+service_page_item_by_menuitem (MailDialogServicePage *page, 
+			       GtkWidget *menuitem)
+{
+	MailDialogServicePageItem *spitem;
+	gint len, i;
+	
+	len = g_list_length (page->items);
+	for (i = 0; i < len; i++) {
+		spitem = (MailDialogServicePageItem *)
+			g_list_nth_data (page->items, i);
+		if (spitem->item == menuitem) 
+			return spitem;
+	}
+
+	return NULL;
+}
+
+static char *
+service_page_get_url (MailDialogServicePage *page)
+{
+	MailDialogServicePageItem *spitem;
+	CamelURL *url;
+	char *url_str;
+
+	spitem = page->spitem;
+	
+	url = g_new0 (CamelURL, 1);
+	url->protocol = g_strdup (spitem->protocol);
+
+	if (spitem->user)
+		url->user = gtk_editable_get_chars (GTK_EDITABLE (spitem->user), 0, -1);
+	if (spitem->host)
+		url->host = gtk_editable_get_chars (GTK_EDITABLE (spitem->host), 0, -1);
+	if (spitem->path) {
+		gchar *path;
+		path = gtk_editable_get_chars (GTK_EDITABLE (spitem->path),
+					       0, -1);
+		url->path = g_strdup_printf ("%s%s", url->host ? "/" : "", 
+					     path);
+		g_free (path);
+	}
+	
+	if (spitem->auth_optionmenu) {
+		GtkWidget *menu, *item;
+		CamelServiceAuthType *authtype;
+
+		menu = gtk_option_menu_get_menu (GTK_OPTION_MENU (spitem->auth_optionmenu));
+		if (menu) {
+			item = gtk_menu_get_active (GTK_MENU (menu));
+			authtype = gtk_object_get_data (GTK_OBJECT (item),
+							"authtype");
+			if (*authtype->authproto)
+				url->authmech = g_strdup (authtype->authproto);
+		}
+	}
+
+	url_str = camel_url_to_string (url, FALSE);
+	camel_url_free (url);
+	
+	return url_str;
+}
+
+static void
+service_page_set_url (MailDialogServicePage *page, MailConfigService *service)
+{
+	CamelURL *url;
+	CamelException *ex;
+	MailDialogServicePageItem *spitem = NULL;
+	
+	if (!service || !service->url)
+		return;
+	
+	ex = camel_exception_new ();
+	
+	url = camel_url_new (service->url, ex);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+		camel_exception_free (ex);
+		return;
+	}
+
+	/* Find the right protocol */
+	spitem = service_page_item_by_protocol (page, url->protocol);
+	service_page_menuitem_activate (spitem->item, page);
+	gtk_option_menu_set_history (GTK_OPTION_MENU (page->optionmenu), 
+				     spitem->pnum);
+	
+	if (spitem->user && url && url->user)
+		gtk_entry_set_text (GTK_ENTRY (spitem->user), url->user);
+
+	if (spitem->host && url && url->host)
+		gtk_entry_set_text (GTK_ENTRY (spitem->host), url->host);
+	
+	if (spitem->path && url && url->path) {
+		if (url->host && *url->path)
+			gtk_entry_set_text (GTK_ENTRY (spitem->path),
+					    url->path + 1);
+		else
+			gtk_entry_set_text (GTK_ENTRY (spitem->path), 
+					    url->path);
+	}
+
+	/* Set the auth menu */
+	if (spitem->auth_optionmenu) {
+		GtkWidget *menu, *item;
+		CamelServiceAuthType *authtype;
+		gint len, i;
+		
+		menu = gtk_option_menu_get_menu (GTK_OPTION_MENU (spitem->auth_optionmenu));
+		len = g_list_length (spitem->auth_items);
+		for (i = 0; i < len; i++) {
+			item = g_list_nth_data (spitem->auth_items, i);
+			authtype = gtk_object_get_data (GTK_OBJECT (item),
+							"authtype");
+			
+			if ((!url->authmech && !*authtype->authproto) ||
+			    (url->authmech && 
+			     !strcmp (authtype->authproto, url->authmech))) {
+				
+				service_page_item_auth_activate (item, spitem);
+				gtk_option_menu_set_history (GTK_OPTION_MENU (spitem->auth_optionmenu), i);
+			}
+		}
+	}
+
+	camel_exception_free (ex);
+	camel_url_free (url);
+}
+
+static void
+service_page_item_auth_activate (GtkWidget *menuitem, 
+				 MailDialogServicePageItem *spitem)
+{
+	CamelServiceAuthType *authtype;
+
+	authtype = gtk_object_get_data (GTK_OBJECT (menuitem), "authtype");
+	put_html (GTK_HTML (spitem->auth_html), 
+		  authtype->description);
+}
+
+static void
+service_page_item_auth_fill (MailDialogServicePage *page,
+			     MailDialogServicePageItem *spitem, 
+			     GList *authtypes)
+{
+	CamelServiceAuthType *authtype;
+	GtkWidget *menu, *item, *firstitem = NULL;
+
+	menu = gtk_menu_new ();
+	gtk_option_menu_set_menu (GTK_OPTION_MENU (spitem->auth_optionmenu), 
+				  menu);
+	for (; authtypes; authtypes = authtypes->next) {
+		authtype = authtypes->data;
+
+		item = gtk_menu_item_new_with_label (_(authtype->name));
+		if (!firstitem)
+			firstitem = item;
+		spitem->auth_items = g_list_append (spitem->auth_items, item);
+
+		gtk_menu_append (GTK_MENU (menu), item);
+		gtk_object_set_data (GTK_OBJECT (item), "authtype", authtype);
+
+		gtk_signal_connect (GTK_OBJECT (item), "activate",
+				    GTK_SIGNAL_FUNC (service_page_item_auth_activate),
+				    spitem);
+		gtk_signal_connect (GTK_OBJECT (item), "activate",
+				    GTK_SIGNAL_FUNC (service_page_item_changed),
+				    page);
+	}
+	gtk_widget_show_all (menu);
+
+	gtk_option_menu_set_history (GTK_OPTION_MENU (spitem->auth_optionmenu), 0);
+	if (firstitem)
+		service_page_item_auth_activate (firstitem, spitem);
+}
+
+static gboolean
+service_acceptable (MailDialogServicePage *page)
+{
+	char *url = NULL;
+	CamelService *service;
+	CamelException *ex;
+
+	url = service_page_get_url (page);
+
+	ex = camel_exception_new ();
+	camel_exception_clear (ex);
+	service = camel_session_get_service (session, url, 
+					     page->spitem->type, ex);
+	g_free (url);
+
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE)
+		goto error;
+
+	if (camel_service_connect (service, ex)) {
+		camel_service_disconnect (service, ex);
+		gtk_object_unref (GTK_OBJECT (service));
+		camel_exception_free (ex);
+		
+		info_dialog (page->vbox, "Connection successful!");
+		
+		return TRUE;
+	}
+	
+	gtk_object_unref (GTK_OBJECT (service));
+	
+ error:
+	error_dialog (page->vbox, camel_exception_get_description (ex));
+	camel_exception_free (ex);
+
+	return FALSE;
+}
+
+static MailConfigService *
+service_page_extract (MailDialogServicePage *page)
+{
+	MailConfigService *source = g_new0 (MailConfigService, 1);
+
+	source->url = service_page_get_url (page);
+
+	return source;
+}
+
+static void
+service_page_item_changed (GtkWidget *item, MailDialogServicePage *page) 
+{
+	MailDialogServicePageItem *spitem;
+	char *data;
+	gboolean complete = TRUE;
+
+	spitem = page->spitem;
+
+	if (complete && page->changedcb) {
+		page->changedcb (page, page->changeddata);
+	}
+	
+	if (spitem->host && spitem->hostneed) {
+		data = gtk_editable_get_chars (GTK_EDITABLE (spitem->host), 0, -1);
+		if (!data || !*data)
+			complete = FALSE;
+		g_free (data);
+	}
+
+	if (complete) {
+		if (spitem->user && spitem->userneed) {
+			data = gtk_editable_get_chars (GTK_EDITABLE (spitem->user), 0, -1);
+			if (!data || !*data)
+				complete = FALSE;
+			g_free (data);
+		}
+	}
+
+	if (complete) {
+		if (spitem->path && spitem->pathneed) {
+			data = gtk_editable_get_chars (GTK_EDITABLE (spitem->path), 0, -1);
+			if (!data || !*data)
+				complete = FALSE;
+		}
+	}
+
+	if (spitem->auth_detect)
+		gtk_widget_set_sensitive (spitem->auth_detect, complete);
+
+	if (complete && page->donecb) {
+		page->donecb (page, page->donedata);
+	} else if (!complete && page->undonecb) {
+		page->undonecb (page, page->undonedata);
+	}
+}
+
+static void
+service_page_detect (GtkWidget *button, MailDialogServicePage *page)
+{
+	MailDialogServicePageItem *spitem;
+	char *url = NULL;
+	CamelException *ex;
+	CamelService *service;
+	GList *authtypes;
+
+	spitem = page->spitem;
+	url = service_page_get_url (page);
+
+	ex = camel_exception_new ();
+	service = camel_session_get_service (session, url, spitem->type, ex);
+	g_free (url);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE)
+		goto error;
+
+	authtypes = camel_service_query_auth_types (service, ex);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE)
+		goto error;
+
+	service_page_item_auth_fill (page, spitem, authtypes);
+
+	camel_exception_free (ex);
+
+	return;
+
+ error:
+	error_dialog (button, "Could not detect supported authentication "
+		      "types:\n%s", camel_exception_get_description (ex));
+	camel_exception_free (ex);
+}
+
+static void
+service_page_item_test (GtkWidget *button, MailDialogServicePage *page) 
+{
+	service_acceptable (page);
+}
+
+static GtkWidget *
+service_page_add_elem (MailDialogServicePage *page, GtkWidget *table, 
+		       int row, const char *label_text)
+{
+	GtkWidget *label, *entry;
+
+	label = gtk_label_new (label_text);
+	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 
+			  row, row + 1, GTK_FILL, 0, 0, 0);
+	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
+
+	entry = gtk_entry_new ();
+	gtk_table_attach (GTK_TABLE (table), entry, 1, 3, row, row + 1,
+			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
+
+	gtk_signal_connect (GTK_OBJECT (entry), "changed",
+			    GTK_SIGNAL_FUNC (service_page_item_changed), page);
+
+	return entry;
+}
+
+static MailDialogServicePageItem *
+service_page_item_new (MailDialogServicePage *page, MailService *mcs)
+{
+	MailDialogServicePageItem *item;
+	GtkWidget *table, *description;
+	int row, service_flags;
+
+	item = g_new0 (MailDialogServicePageItem, 1);
+	
+	item->vbox = gtk_vbox_new (FALSE, 0);
+
+	/* Description */
+	description = html_new (TRUE);
+	put_html (GTK_HTML (description), mcs->provider->description);
+	gtk_box_pack_start (GTK_BOX (item->vbox),
+			    description->parent->parent,
+			    TRUE, TRUE, 0);
+	
+	table = gtk_table_new (5, 3, FALSE);
+	gtk_table_set_row_spacings (GTK_TABLE (table), 2);
+	gtk_table_set_col_spacings (GTK_TABLE (table), 10);
+	gtk_container_set_border_width (GTK_CONTAINER (table), 8);
+	gtk_box_pack_start (GTK_BOX (item->vbox), table, TRUE, TRUE, 0);
+
+	item->protocol = g_strdup (mcs->provider->protocol);
+	item->type = mcs->type;
+	
+	row = 0;
+	service_flags = mcs->service->url_flags & ~CAMEL_SERVICE_URL_NEED_AUTH;
+
+	if (service_flags & CAMEL_SERVICE_URL_ALLOW_HOST) {
+		item->host = service_page_add_elem (page, table, row++, _("Server:"));
+		item->hostneed = ((service_flags & CAMEL_SERVICE_URL_NEED_HOST)
+				  == CAMEL_SERVICE_URL_NEED_HOST);
+	}
+
+	if (service_flags & CAMEL_SERVICE_URL_ALLOW_USER) {
+		item->user = service_page_add_elem (page, table, row++, _("Username:"));
+		item->userneed = ((service_flags & CAMEL_SERVICE_URL_NEED_USER)
+				  == CAMEL_SERVICE_URL_NEED_USER);
+	}
+
+	if (service_flags & CAMEL_SERVICE_URL_ALLOW_PATH) {
+		item->path = service_page_add_elem (page, table, row++, _("Path:"));
+		item->pathneed = ((service_flags & CAMEL_SERVICE_URL_NEED_PATH)
+				  == CAMEL_SERVICE_URL_NEED_PATH);
+	}
+
+	if (mcs->authtypes) {
+		GtkWidget *label;
+
+		label = gtk_label_new (_("Authentication:"));
+		gtk_table_attach (GTK_TABLE (table), label, 0, 1,
+				  row, row + 1, GTK_FILL, 0, 0, 0);
+		gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
+
+		item->auth_optionmenu = gtk_option_menu_new ();
+		gtk_table_attach (GTK_TABLE (table), 
+				  item->auth_optionmenu, 
+				  1, 2, row, row + 1, 
+				  GTK_FILL | GTK_EXPAND,
+				  0, 0, 0);
+
+		item->auth_detect = gtk_button_new_with_label (_("Detect supported types..."));
+		gtk_table_attach (GTK_TABLE (table), item->auth_detect, 
+				  2, 3, row, row + 1, 0, 0, 0, 0);
+		gtk_widget_set_sensitive (item->auth_detect, FALSE);
+		gtk_signal_connect (GTK_OBJECT (item->auth_detect), 
+				    "clicked",
+				    GTK_SIGNAL_FUNC (service_page_detect), 
+				    page);
+
+		item->auth_html = html_new (TRUE);
+		gtk_table_attach (GTK_TABLE (table), 
+				  item->auth_html->parent->parent,
+				  0, 3, row + 1, row + 2,
+				  GTK_FILL, GTK_EXPAND | GTK_FILL, 0, 0);
+
+		service_page_item_auth_fill (page, item, mcs->authtypes);
+
+		row += 2;
+	}
+
+	if (row != 0) {
+		GtkWidget *btn;
+
+		btn = gtk_button_new_with_label (_("Test Settings"));
+
+		gtk_table_attach (GTK_TABLE (table), btn, 2, 3,
+				  row, row + 1, GTK_FILL, GTK_FILL, 0, 0);
+
+		gtk_signal_connect (GTK_OBJECT (btn), "clicked",
+				    GTK_SIGNAL_FUNC (service_page_item_test), 
+				    page);
+		row += 1;
+	}
+
+	gtk_table_resize (GTK_TABLE (table), row, 3);
+	gtk_widget_show_all (table);
+
+	return item;
+}
+
+static void
+service_page_menuitem_activate (GtkWidget *item, MailDialogServicePage *page)
+{
+	MailDialogServicePageItem *spitem;
+
+	spitem = service_page_item_by_menuitem (page, item);
+
+	g_return_if_fail (spitem);
+	
+	gtk_notebook_set_page (GTK_NOTEBOOK (page->notebook), spitem->pnum);
+	page->spitem = spitem;
+
+	service_page_item_changed (item, page);
+}
+
+static void
+service_page_set_changed_cb (MailDialogServicePage *page, 
+			     ServicePageCallback cb, gpointer data)
+{
+	page->changedcb = cb;
+	page->changeddata = data;
+}
+
+static void
+service_page_set_undone_cb (MailDialogServicePage *page, 
+			    ServicePageCallback cb, gpointer data)
+{
+	page->undonecb = cb;
+	page->undonedata = data;
+}
+
+static void
+service_page_set_done_cb (MailDialogServicePage *page, 
+			  ServicePageCallback cb, gpointer data)
+{
+	page->donecb = cb;
+	page->donedata = data;
+}
+
+static MailDialogServicePage *
+service_page_new (const char *label_text, GSList *services)
+{
+	MailDialogServicePage *page;
+	GtkWidget *hbox, *label, *menu;
+	GtkWidget *first_item = NULL;
+	int pnum;
+	GSList *s;
+
+	page = g_new0 (MailDialogServicePage, 1);
+	
+	page->vbox = gtk_vbox_new (FALSE, 5);
+	
+	hbox = gtk_hbox_new (FALSE, 8);
+	gtk_box_pack_start (GTK_BOX (page->vbox), hbox, FALSE, TRUE, 0);
+
+	label = gtk_label_new (label_text);
+	gtk_box_pack_start (GTK_BOX (hbox), label, FALSE, FALSE, 0);
+	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
+
+	page->optionmenu = gtk_option_menu_new ();
+	menu = gtk_menu_new ();
+	gtk_option_menu_set_menu (GTK_OPTION_MENU (page->optionmenu), menu);
+	gtk_box_pack_start (GTK_BOX (hbox), page->optionmenu, TRUE, TRUE, 0);
+	
+	/* Notebook */
+	page->notebook = gtk_notebook_new ();
+	gtk_notebook_set_show_tabs (GTK_NOTEBOOK (page->notebook), FALSE);
+	gtk_box_pack_start (GTK_BOX (page->vbox), page->notebook, 
+			    TRUE, TRUE, 0);
+
+	/* Build the list of services and the service item pages */
+	for (s = services, pnum = 0; s; s = s->next, pnum++) {
+		MailService *mcs = s->data;
+		MailDialogServicePageItem *spitem;
+		
+		spitem = service_page_item_new (page, mcs);
+		spitem->pnum = pnum;
+		
+		gtk_notebook_append_page (GTK_NOTEBOOK (page->notebook), 
+					  spitem->vbox, NULL);
+
+		spitem->item = gtk_menu_item_new_with_label (_(mcs->provider->name));
+		if (!first_item)
+			first_item = spitem->item;
+
+		gtk_signal_connect (GTK_OBJECT (spitem->item), "activate",
+				    GTK_SIGNAL_FUNC (service_page_menuitem_activate),
+				    page);
+
+		gtk_menu_append (GTK_MENU (menu), spitem->item);
+		page->items = g_list_append (page->items, spitem);
+	}
+	
+	service_page_menuitem_activate (first_item, page);
+	gtk_option_menu_set_history (GTK_OPTION_MENU (page->optionmenu), 0);
+
+	gtk_widget_show_all (page->vbox);
+
+	return page;
+}
+
+/* Source Page */
+static MailDialogSourcePage *
+source_page_new (GSList *sources)
+{
+	MailDialogSourcePage *page = g_new0 (MailDialogSourcePage, 1);
+	GtkWidget *html;
+
+	page->page = service_page_new ("Mail source type:", sources);
+	page->vbox = page->page->vbox;
+	
+	html = html_new (FALSE);
+	put_html (GTK_HTML (html),
+		  _("Select the kind of mail server you have, and enter "
+		    "the relevant information about it.\n\nIf the server "
+		    "requires authentication, you can click the "
+		    "\"Detect supported types...\" button after entering "
+		    "the other information."));
+	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
+			    FALSE, TRUE, 0);
+	gtk_box_reorder_child (GTK_BOX (page->vbox), html->parent, 0);
+
+	return page;
+}
+
+/* News Page */
+static MailDialogNewsPage *
+news_page_new (GSList *sources)
+{
+	MailDialogNewsPage *page = g_new0 (MailDialogNewsPage, 1);
+	GtkWidget *html;
+
+	page->page = service_page_new ("News source type:", sources);
+	page->vbox = page->page->vbox;
+	
+	html = html_new (FALSE);
+	put_html (GTK_HTML (html),
+		  _("Select the kind of news server you have, and enter "
+		    "the relevant information about it.\n\nIf the server "
+		    "requires authentication, you can click the "
+		    "\"Detect supported types...\" button after entering "
+		    "the other information."));
+	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
+			    FALSE, TRUE, 0);
+	gtk_box_reorder_child (GTK_BOX (page->vbox), html->parent, 0);
+
+	return page;
+}
+
+/* Transport page */
+static MailDialogTransportPage *
+transport_page_new (GSList *transports)
+{
+	MailDialogTransportPage *page = g_new0 (MailDialogTransportPage, 1);
+	GtkWidget *html;
+
+	page->page = service_page_new ("Mail transport type:", transports);
+	page->vbox = page->page->vbox;
+	
+	html = html_new (FALSE);
+	put_html (GTK_HTML (html),
+		  _("Select the kind of mail server you have, and enter "
+		    "the relevant information about it.\n\nIf the server "
+		    "requires authentication, you can click the "
+		    "\"Detect supported types...\" button after entering "
+		    "the other information."));
+	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
+			    FALSE, TRUE, 0);
+	gtk_box_reorder_child (GTK_BOX (page->vbox), html->parent, 0);
+
+	return page;
+}
+
+/* Identity dialog */
+static void
+iddialog_page_undone (MailDialogIdentityPage *page, gpointer data)
+{
+	MailDialogIdentity *iddialog = (MailDialogIdentity *)data;
+
+	gnome_dialog_set_sensitive (GNOME_DIALOG (iddialog->dialog), 0, FALSE);
+}
+
+static void
+iddialog_page_done (MailDialogIdentityPage *page, gpointer data)
+{
+	MailDialogIdentity *iddialog = (MailDialogIdentity *)data;
+
+	gnome_dialog_set_sensitive (GNOME_DIALOG (iddialog->dialog), 0, TRUE);
+}
+
+static void
+iddialog_ok_clicked (GtkWidget *dialog, MailDialogIdentity *iddialog)
+{
+	g_return_if_fail (iddialog);
+	
+	iddialog->id = identity_page_extract (iddialog->page);
+}
+
+static MailConfigIdentity *
+identity_dialog (const MailConfigIdentity *id, GtkWidget *parent)
+
+{
+	MailDialogIdentity *iddialog;
+	MailConfigIdentity *returnid;
+	GtkWidget *dialog_vbox;
+	GtkWidget *area;
+	gboolean new = !id;
+	
+	iddialog = g_new0 (MailDialogIdentity, 1);
+
+	if (new)
+		iddialog->dialog = gnome_dialog_new (_("Edit Identity"), NULL);
+	else
+		iddialog->dialog = gnome_dialog_new (_("Add Identity"), NULL);
+
+	gtk_window_set_modal (GTK_WINDOW (iddialog->dialog), TRUE);
+	gtk_window_set_policy (GTK_WINDOW (iddialog->dialog), 
+			       TRUE, TRUE, FALSE);
+	gnome_dialog_set_parent (GNOME_DIALOG (iddialog->dialog),
+				 GTK_WINDOW (parent));
+
+	/* Create the vbox that we will pack the identity widget into */
+	dialog_vbox = GNOME_DIALOG (iddialog->dialog)->vbox;
+	gtk_widget_show (dialog_vbox);
+
+        /* Get the identity widget */
+	iddialog->page = identity_page_new (id);
+	gtk_box_pack_start (GTK_BOX (dialog_vbox), 
+			    iddialog->page->vbox, TRUE, TRUE, 0);
+
+	identity_page_set_undone_cb (iddialog->page, 
+				     iddialog_page_undone, 
+				     iddialog);
+	identity_page_set_done_cb (iddialog->page, 
+				   iddialog_page_done, 
+				   iddialog);
+	gtk_widget_show (iddialog->page->vbox);
+
+	/* Buttons */
+	area = GNOME_DIALOG (iddialog->dialog)->action_area;
+	gtk_widget_show (area);
+	gtk_button_box_set_layout (GTK_BUTTON_BOX (area), GTK_BUTTONBOX_END);
+	gtk_button_box_set_spacing (GTK_BUTTON_BOX (area), 8);
+
+	gnome_dialog_append_button (GNOME_DIALOG (iddialog->dialog), 
+				    GNOME_STOCK_BUTTON_OK);
+	gnome_dialog_append_button (GNOME_DIALOG (iddialog->dialog), 
+				    GNOME_STOCK_BUTTON_CANCEL);	
+
+	gnome_dialog_set_default (GNOME_DIALOG (iddialog->dialog), 0);
+	gnome_dialog_set_default (GNOME_DIALOG (iddialog->dialog), 1);
+	
+	gnome_dialog_set_sensitive (GNOME_DIALOG (iddialog->dialog), 0, FALSE);
+	
+	gnome_dialog_button_connect( GNOME_DIALOG (iddialog->dialog), 0,
+				     GTK_SIGNAL_FUNC (iddialog_ok_clicked),
+				     iddialog);
+
+	gnome_dialog_run_and_close (GNOME_DIALOG (iddialog->dialog));
+
+	returnid = iddialog->id;
+	g_free (iddialog);
+
+	return returnid;
+}
+
+/* Source Dialog */
+static void
+sdialog_page_undone (MailDialogServicePage *page, gpointer data)
+{
+	MailDialogSource *sdialog = (MailDialogSource *)data;
+
+	gnome_dialog_set_sensitive (GNOME_DIALOG (sdialog->dialog), 0, FALSE);
+}
+
+static void
+sdialog_page_done (MailDialogServicePage *page, gpointer data)
+{
+	MailDialogSource *sdialog = (MailDialogSource *)data;
+
+	gnome_dialog_set_sensitive (GNOME_DIALOG (sdialog->dialog), 0, TRUE);
+}
+
+static void
+sdialog_ok_clicked (GtkWidget *widget, MailDialogSource *sdialog) 
+{
+	g_return_if_fail (sdialog);
+	
+	sdialog->source = service_page_extract (sdialog->page->page);
+}
+
+static MailConfigService *
+source_dialog (MailConfigService *source, GtkWidget *parent)
+{
+	MailDialogSource *sdialog;
+	MailConfigService *returnsource;
+	GtkWidget *dialog_vbox, *area;
+	GSList *sources, *news, *transports;
+	gboolean new = !source;
+	
+	sdialog = g_new0 (MailDialogSource, 1);
+	
+	provider_list (&sources, &news, &transports);
+	
+	if (new)
+		sdialog->dialog = gnome_dialog_new (_("Edit Source"), NULL);
+	else
+		sdialog->dialog = gnome_dialog_new (_("Add Source"), NULL);
+
+	gtk_window_set_modal (GTK_WINDOW (sdialog->dialog), TRUE);
+	gtk_window_set_policy (GTK_WINDOW (sdialog->dialog), 
+			       TRUE, TRUE, FALSE);
+	gtk_window_set_default_size (GTK_WINDOW (sdialog->dialog), 380, 450);
+	gnome_dialog_set_parent (GNOME_DIALOG (sdialog->dialog),
+				 GTK_WINDOW (parent));
+
+	/* Create the vbox that we will pack the identity widget into */
+	dialog_vbox = GNOME_DIALOG (sdialog->dialog)->vbox;
+	gtk_widget_show (dialog_vbox);
+
+        /* Get the identity widget */
+	sdialog->page = source_page_new (sources);
+	if (!new)
+		service_page_set_url (sdialog->page->page, source);
+	gtk_box_pack_start (GTK_BOX (dialog_vbox), sdialog->page->vbox, 
+			    TRUE, TRUE, 0);
+
+	service_page_set_undone_cb (sdialog->page->page, 
+				    sdialog_page_undone, 
+				    sdialog);
+	service_page_set_done_cb (sdialog->page->page, 
+				  sdialog_page_done, 
+				  sdialog);
+	gtk_widget_show (sdialog->page->vbox);
+
+	/* Buttons */
+	area = GNOME_DIALOG (sdialog->dialog)->action_area;
+	gtk_widget_show (area);
+	gtk_button_box_set_layout (GTK_BUTTON_BOX (area), GTK_BUTTONBOX_END);
+	gtk_button_box_set_spacing (GTK_BUTTON_BOX (area), 8);
+
+	gnome_dialog_append_button (GNOME_DIALOG (sdialog->dialog), 
+				    GNOME_STOCK_BUTTON_OK);
+	gnome_dialog_append_button (GNOME_DIALOG (sdialog->dialog), 
+				    GNOME_STOCK_BUTTON_CANCEL);	
+
+	gnome_dialog_set_default (GNOME_DIALOG (sdialog->dialog), 0);
+	gnome_dialog_set_default (GNOME_DIALOG (sdialog->dialog), 1);
+	
+	gnome_dialog_set_sensitive (GNOME_DIALOG (sdialog->dialog), 0, FALSE);
+	
+	gnome_dialog_button_connect(GNOME_DIALOG (sdialog->dialog), 0,
+				    GTK_SIGNAL_FUNC (sdialog_ok_clicked),
+				    sdialog);
+
+	gnome_dialog_run_and_close (GNOME_DIALOG (sdialog->dialog));
+
+	returnsource = sdialog->source;
+	g_free (sdialog);
+
+	return returnsource;
+}
+
+/* News Dialog */
+static void
+ndialog_page_undone (MailDialogServicePage *page, gpointer data)
+{
+	MailDialogNews *ndialog = (MailDialogNews *)data;
+
+	gnome_dialog_set_sensitive (GNOME_DIALOG (ndialog->dialog), 0, FALSE);
+}
+
+static void
+ndialog_page_done (MailDialogServicePage *page, gpointer data)
+{
+	MailDialogNews *ndialog = (MailDialogNews *)data;
+
+	gnome_dialog_set_sensitive (GNOME_DIALOG (ndialog->dialog), 0, TRUE);
+}
+
+static void
+ndialog_ok_clicked (GtkWidget *widget, MailDialogNews *ndialog) 
+{
+	g_return_if_fail (ndialog);
+	
+	ndialog->source = service_page_extract (ndialog->page->page);
+}
+
+static MailConfigService *
+news_dialog (MailConfigService *source, GtkWidget *parent)
+{
+	MailDialogNews *ndialog;
+	MailConfigService *returnsource;
+	GtkWidget *dialog_vbox, *area;
+	GSList *sources, *news, *transports;
+	gboolean new = !source;
+	
+	ndialog = g_new0 (MailDialogNews, 1);
+	
+	provider_list (&sources, &news, &transports);
+	
+	if (new)
+		ndialog->dialog = gnome_dialog_new (_("Edit News Server"), NULL);
+	else
+		ndialog->dialog = gnome_dialog_new (_("Add News Server"), NULL);
+
+	gtk_window_set_modal (GTK_WINDOW (ndialog->dialog), TRUE);
+	gtk_window_set_policy (GTK_WINDOW (ndialog->dialog), 
+			       TRUE, TRUE, FALSE);
+	gtk_window_set_default_size (GTK_WINDOW (ndialog->dialog), 380, 450);
+	gnome_dialog_set_parent (GNOME_DIALOG (ndialog->dialog),
+				 GTK_WINDOW (parent));
+
+	/* Create the vbox that we will pack the identity widget into */
+	dialog_vbox = GNOME_DIALOG (ndialog->dialog)->vbox;
+	gtk_widget_show (dialog_vbox);
+
+        /* Get the identity widget */
+	ndialog->page = news_page_new (news);
+	service_page_set_url (ndialog->page->page, source);
+	gtk_box_pack_start (GTK_BOX (dialog_vbox), ndialog->page->vbox, 
+			    TRUE, TRUE, 0);
+
+	service_page_set_undone_cb (ndialog->page->page, 
+				    ndialog_page_undone, 
+				    ndialog);
+	service_page_set_done_cb (ndialog->page->page, 
+				  ndialog_page_done, 
+				  ndialog);
+	gtk_widget_show (ndialog->page->vbox);
+	
+	/* Buttons */
+	area = GNOME_DIALOG (ndialog->dialog)->action_area;
+	gtk_widget_show (area);
+	gtk_button_box_set_layout (GTK_BUTTON_BOX (area), GTK_BUTTONBOX_END);
+	gtk_button_box_set_spacing (GTK_BUTTON_BOX (area), 8);
+
+	gnome_dialog_append_button (GNOME_DIALOG (ndialog->dialog), 
+				    GNOME_STOCK_BUTTON_OK);
+	gnome_dialog_append_button (GNOME_DIALOG (ndialog->dialog), 
+				    GNOME_STOCK_BUTTON_CANCEL);	
+
+	gnome_dialog_set_default (GNOME_DIALOG (ndialog->dialog), 0);
+	gnome_dialog_set_default (GNOME_DIALOG (ndialog->dialog), 1);
+	
+	gnome_dialog_set_sensitive (GNOME_DIALOG (ndialog->dialog), 0, FALSE);
+	
+	gnome_dialog_button_connect(GNOME_DIALOG (ndialog->dialog), 0,
+				    GTK_SIGNAL_FUNC (ndialog_ok_clicked),
+				    ndialog);
+
+	gnome_dialog_run_and_close (GNOME_DIALOG (ndialog->dialog));
+
+	returnsource = ndialog->source;
+	g_free (ndialog);
+
+	return returnsource;
+}
+
+/* Mail configuration druid */
+static gboolean
+mail_druid_prepare (GnomeDruidPage *page, GnomeDruid *druid, gboolean *active)
+{
+	gnome_druid_set_buttons_sensitive (druid, TRUE, *active, TRUE);
+
+	return FALSE;
+}
+
+static void
+mail_druid_identity_undone (MailDialogIdentityPage *page, gpointer data)
+{
+	MailDruidDialog *dialog = (MailDruidDialog *) data;
+	
+	dialog->iddone = FALSE;
+	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
+					   TRUE, FALSE, TRUE);
+}
+
+static void
+mail_druid_identity_done (MailDialogIdentityPage *page, gpointer data)
+{
+	MailDruidDialog *dialog = (MailDruidDialog *) data;
+	
+	dialog->iddone = TRUE;
+	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
+					   TRUE, TRUE, TRUE);
+}
+
+static void
+mail_druid_source_undone (MailDialogServicePage *page, gpointer data)
+{
+	MailDruidDialog *dialog = (MailDruidDialog *) data;
+
+	dialog->sdone = FALSE;
+	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
+					   TRUE, FALSE, TRUE);
+}
+
+static void
+mail_druid_source_done (MailDialogServicePage *page, gpointer data)
+{
+	MailDruidDialog *dialog = (MailDruidDialog *) data;
+
+	dialog->sdone = TRUE;
+	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
+					   TRUE, TRUE, TRUE);
+}
+
+static void
+mail_druid_transport_undone (MailDialogServicePage *page, gpointer data)
+{
+	MailDruidDialog *dialog = (MailDruidDialog *) data;
+
+	dialog->tdone = FALSE;
+	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
+					   TRUE, FALSE, TRUE);
+}
+
+static void
+mail_druid_transport_done (MailDialogServicePage *page, gpointer data)
+{
+	MailDruidDialog *dialog = (MailDruidDialog *) data;
+
+	dialog->tdone = TRUE;
+	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
+					   TRUE, TRUE, TRUE);
+}
+
+static void
+mail_druid_cancel (GnomeDruid *druid, GtkWindow *window)
+{
+	gtk_window_set_modal (window, FALSE);
+	gtk_widget_destroy (GTK_WIDGET (window));
+	gtk_main_quit ();
+}
+
+static void
+mail_druid_finish (GnomeDruidPage *page, GnomeDruid *druid, 
+		   MailDruidDialog *dialog)
+{
+	MailConfig *config;
+	MailConfigIdentity *id;
+	MailConfigService *source;
+	
+	mail_config_clear ();
+	config = mail_config_fetch ();
+	
+	/* Identity */
+	id = identity_page_extract (dialog->idpage);
+	config->ids = g_slist_append (config->ids, id);
+
+	/* Source */
+	source = service_page_extract (dialog->spage->page);
+	config->sources = g_slist_append (config->sources, source);
+	
+	/* Transport */
+	config->transport = service_page_extract (dialog->tpage->page);
+
+	mail_config_write ();
+	
+	mail_druid_cancel (druid, GTK_WINDOW (dialog->dialog));
+}
+
+void
+mail_config_druid (void)
+{
+	MailConfig *config;
+	MailDruidDialog *dialog;
+	GnomeDruidPageStart *spage;
+	GnomeDruidPageFinish *fpage;
+	GnomeDruidPageStandard *dpage;
+	GSList *sources, *news, *transports;
+	GdkImlibImage *mail_logo, *identity_logo;
+	GdkImlibImage *source_logo, *transport_logo;
+
+	mail_config_read ();
+	config = mail_config_fetch ();
+
+	provider_list (&sources, &news, &transports);
+
+	mail_logo = load_image ("evolution-inbox.png");
+	identity_logo = load_image ("malehead.png");
+	source_logo = mail_logo;
+	transport_logo = load_image ("envelope.png");
+
+	dialog = g_new0 (MailDruidDialog, 1);
+	dialog->gui = glade_xml_new (EVOLUTION_GLADEDIR 
+				     "/mail-config-druid.glade", NULL);
+	dialog->dialog = glade_xml_get_widget (dialog->gui, "dialog");
+	dialog->druid = glade_xml_get_widget (dialog->gui, "druid");
+
+	/* Cancel button */
+	gtk_signal_connect (GTK_OBJECT (dialog->druid), "cancel", 
+			    GTK_SIGNAL_FUNC (mail_druid_cancel), 
+			    dialog->dialog);
+
+	/* Start page */
+	spage = GNOME_DRUID_PAGE_START (glade_xml_get_widget (dialog->gui, "startpage"));
+	gnome_druid_page_start_set_logo (spage, mail_logo);
+	
+	/* Identity page */
+	dpage = GNOME_DRUID_PAGE_STANDARD (glade_xml_get_widget (dialog->gui, "standardpage1"));
+	gnome_druid_page_standard_set_logo (dpage, identity_logo);
+
+	dialog->idpage = identity_page_new (NULL);
+	gtk_box_pack_start (GTK_BOX (dpage->vbox), 
+			    dialog->idpage->vbox, 
+			    TRUE, TRUE, 0);
+
+	identity_page_set_undone_cb (dialog->idpage, 
+				     mail_druid_identity_undone, 
+				     dialog);
+	identity_page_set_done_cb (dialog->idpage, 
+				   mail_druid_identity_done, 
+				   dialog);
+	gtk_signal_connect (GTK_OBJECT (dpage), "prepare", 
+			    GTK_SIGNAL_FUNC (mail_druid_prepare), 
+			    &dialog->iddone);
+	gtk_widget_show (dialog->idpage->vbox);
+
+	/* Source page */
+	dpage = GNOME_DRUID_PAGE_STANDARD (glade_xml_get_widget (dialog->gui, "standardpage2"));
+	gnome_druid_page_standard_set_logo (dpage, source_logo);
+
+	dialog->spage = source_page_new (sources);
+	gtk_box_pack_start (GTK_BOX (dpage->vbox), 
+			    dialog->spage->vbox, 
+			    TRUE, TRUE, 0);
+
+	service_page_set_done_cb (dialog->spage->page, 
+				  mail_druid_source_done, 
+				  dialog);
+	service_page_set_undone_cb (dialog->spage->page, 
+				    mail_druid_source_undone, 
+				    dialog);
+	gtk_signal_connect (GTK_OBJECT (dpage), "prepare", 
+			    GTK_SIGNAL_FUNC (mail_druid_prepare), 
+			    &dialog->sdone);
+
+	/* In case its already done */
+	service_page_item_changed (dialog->spage->page->spitem->item, 
+				   dialog->spage->page);
+
+	gtk_widget_show (dialog->spage->vbox);
+
+	/* Transport page */
+	dpage = GNOME_DRUID_PAGE_STANDARD (glade_xml_get_widget (dialog->gui, "standardpage3"));
+	gnome_druid_page_standard_set_logo (dpage, transport_logo);
+
+	dialog->tpage = transport_page_new (transports);
+	gtk_box_pack_start (GTK_BOX (dpage->vbox), 
+			    dialog->tpage->vbox, 
+			    TRUE, TRUE, 0);
+
+	service_page_set_undone_cb (dialog->tpage->page, 
+				    mail_druid_transport_undone, 
+				    dialog);
+	service_page_set_done_cb (dialog->tpage->page, 
+				  mail_druid_transport_done, 
+				  dialog);
+	gtk_signal_connect (GTK_OBJECT (dpage), "prepare", 
+			    GTK_SIGNAL_FUNC (mail_druid_prepare), 
+			    &dialog->tdone);
+
+	/* In case its already as done as it needs to be */
+	service_page_item_changed (dialog->tpage->page->spitem->item, 
+				   dialog->tpage->page);
+
+	gtk_widget_show (dialog->tpage->vbox);
+
+
+	/* Finish page */
+	fpage = GNOME_DRUID_PAGE_FINISH (glade_xml_get_widget (dialog->gui, "finishpage"));
+	gnome_druid_page_finish_set_logo (fpage, mail_logo);
+
+	gtk_signal_connect (GTK_OBJECT (fpage), "finish",
+			    GTK_SIGNAL_FUNC (mail_druid_finish),
+			    dialog);
+
+	gtk_main ();
+}
+
+/* Main configuration dialog */
+static void
+identities_select_row (GtkWidget *widget, gint row, gint column,
+		       GdkEventButton *event, MailDialog *dialog)
+{
+	dialog->idrow = row;
+}
+
+static void
+identities_add_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	MailConfigIdentity *id;
+
+	id = identity_dialog (NULL, dialog->dialog);
+	if (id) {
+		GtkWidget *clist = dialog->clistIdentities;
+		gchar *text[4];
+		gint row = 0;
+		
+		text[0] = id->name;
+		text[1] = id->address;
+		text[2] = id->org;
+		text[3] = id->sig;
+
+		row = gtk_clist_append (GTK_CLIST (clist), text);
+		gtk_clist_set_row_data (GTK_CLIST (clist), row, id);
+		gtk_clist_select_row (GTK_CLIST (clist), row, 0);
+		dialog->maxidrow++;
+
+		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+	}
+}
+
+static void
+identities_edit_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	MailConfigIdentity *id, *id2;
+
+	if (dialog->idrow < 0)
+		return;
+	
+	id = gtk_clist_get_row_data (GTK_CLIST (dialog->clistIdentities), 
+				     dialog->idrow);
+	
+	id2 = identity_dialog (id, dialog->dialog);
+	if (id2) {
+		GtkCList *clist = GTK_CLIST (dialog->clistIdentities);
+	
+		gtk_clist_set_text (clist, dialog->idrow, 0, id2->name);
+		gtk_clist_set_text (clist, dialog->idrow, 1, id2->address);
+		gtk_clist_set_text (clist, dialog->idrow, 2, id2->org);
+		gtk_clist_set_text (clist, dialog->idrow, 3, id2->sig);
+	
+		gtk_clist_set_row_data (clist, dialog->idrow, id2);
+		identity_destroy (id);
+
+		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+	}
+}
+
+static void
+identities_delete_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	GtkCList *clist;
+	
+	if (dialog->idrow == -1)
+		return;
+
+	clist = GTK_CLIST (dialog->clistIdentities);
+	
+	gtk_clist_remove (clist, dialog->idrow);
+	dialog->maxidrow--;
+
+	if (dialog->idrow > dialog->maxidrow)
+		gtk_clist_select_row (clist, dialog->maxidrow, 0);
+	else
+		gtk_clist_select_row (clist, dialog->idrow, 0);
+
+	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+}
+
+static void
+sources_select_row (GtkWidget *widget, gint row, gint column,
+		    GdkEventButton *event, MailDialog *dialog)
+{
+	dialog->srow = row;
+}
+
+static void
+sources_add_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	MailConfigService *source;
+
+	source = source_dialog (NULL, dialog->dialog);
+	if (source) {
+		GtkCList *clist = GTK_CLIST (dialog->clistSources);
+		gchar *text[1];
+		gint row = 0;
+		
+		text[0] = source->url;
+		
+		row = gtk_clist_append (clist, text);
+		gtk_clist_set_row_data (clist, row, source);
+		gtk_clist_select_row (clist, row, 0);
+		dialog->maxsrow++;
+		
+		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+	}
+}
+
+static void
+sources_edit_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	MailConfigService *source, *source2;
+
+	if (dialog->srow < 0)
+		return;
+
+	source = gtk_clist_get_row_data (GTK_CLIST (dialog->clistSources),
+					 dialog->srow);
+	
+	source2 = source_dialog (source, dialog->dialog);
+	if (source2) {
+		GtkCList *clist = GTK_CLIST (dialog->clistSources);
+		
+		gtk_clist_set_text (clist, dialog->srow, 0, source2->url);
+		gtk_clist_set_row_data (clist, dialog->srow, source2);
+		service_destroy (source);
+
+		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+	}
+}
+
+static void
+sources_delete_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	GtkCList *clist;
+	
+	if (dialog->srow == -1)
+		return;
+	
+	clist = GTK_CLIST (dialog->clistSources);
+
+	gtk_clist_remove (clist, dialog->srow);
+	dialog->maxsrow--;
+
+	if (dialog->srow > dialog->maxsrow)
+		gtk_clist_select_row (clist, dialog->maxsrow, 0);
+	else
+		gtk_clist_select_row (clist, dialog->srow, 0);
+
+	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+}
+
+static void
+news_select_row (GtkWidget *widget, gint row, gint column,
+		 GdkEventButton *event, MailDialog *dialog)
+{
+	dialog->nrow = row;
+}
+
+static void
+news_add_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	MailConfigService *news;
+
+	news = news_dialog (NULL, dialog->dialog);
+	if (news) {
+		GtkCList *clist = GTK_CLIST (dialog->clistNewsServers);
+		gchar *text[1];
+		gint row = 0;
+		
+		text[0] = news->url;
+
+		row = gtk_clist_append (clist, text);
+		gtk_clist_set_row_data (clist, row, news);
+		gtk_clist_select_row (clist, row, 0);
+		dialog->maxsrow++;
+		
+		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+	}
+}
+
+static void
+news_edit_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	MailConfigService *news, *news2;
+
+	if (dialog->srow < 0)
+		return;
+
+	news = gtk_clist_get_row_data (GTK_CLIST (dialog->clistNewsServers),
+				       dialog->srow);
+	
+	news2 = source_dialog (news, dialog->dialog);
+	if (news2) {
+		GtkCList *clist = GTK_CLIST (dialog->clistNewsServers);
+		
+		gtk_clist_set_text (clist, dialog->nrow, 0, news2->url);
+		gtk_clist_set_row_data (clist, dialog->nrow, news2);
+		service_destroy (news);
+
+		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+	}
+}
+
+static void
+news_delete_clicked (GtkWidget *widget, MailDialog *dialog)
+{
+	GtkCList *clist;
+	
+	if (dialog->nrow == -1)
+		return;
+	
+	clist = GTK_CLIST (dialog->clistNewsServers);
+
+	gtk_clist_remove (clist, dialog->nrow);
+	dialog->maxnrow--;
+
+	if (dialog->nrow > dialog->maxnrow)
+		gtk_clist_select_row (clist, dialog->maxnrow, 0);
+	else
+		gtk_clist_select_row (clist, dialog->nrow, 0);
+
+	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+}
+
+static void
+mail_config_tpage_changed (MailDialogServicePage *page, gpointer data)
+{
+	MailDialog *dialog = (MailDialog *)data;
+
+	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+}
+
+static void
+mail_config_tpage_done (MailDialogServicePage *page, gpointer data)
+{
+	MailDialog *dialog = (MailDialog *)data;
+	
+	dialog->tpagedone = TRUE;
+}
+
+static void
+format_toggled (GtkWidget *widget, MailDialog *dialog)
+{
+	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
+}
+
+static void
+mail_config_apply_clicked (GnomePropertyBox *property_box, gint page_num,
+			   MailDialog *dialog)
+{
+	MailConfig *config;
+	gpointer data;
+	int i;
+	
+	if (page_num != -1)
+		return;
+
+	mail_config_clear ();
+	config = mail_config_fetch ();
+
+	/* Identities */
+	for (i = 0; i <= dialog->maxidrow; i++) {	
+		data = gtk_clist_get_row_data (GTK_CLIST (dialog->clistIdentities), i);
+		config->ids = g_slist_append (config->ids, data);
+	}
+
+	/* Sources */
+	for (i = 0; i <= dialog->maxsrow; i++) {	
+		data = gtk_clist_get_row_data (GTK_CLIST (dialog->clistSources), i);
+		config->sources = g_slist_append (config->sources, data);
+	}
+
+	/* Transport */
+	config->transport = service_page_extract (dialog->page->page);
+	
+	/* Format */
+	config->send_html = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (dialog->chkFormat));
+
+	mail_config_write ();
+}
+
+void
+mail_config (void)
+{
+	MailConfig *config;
+	MailDialog *dialog;
+	GladeXML *gui;
+	GtkCList *clist;
+	GtkWidget *button, *tvbox;
+	GSList *sources, *news, *transports;
+	gint len, row;
+
+	mail_config_read ();
+	config = mail_config_fetch ();
+
+	provider_list (&sources, &news, &transports);
+
+	dialog = g_new0 (MailDialog, 1);	
+	gui = glade_xml_new (EVOLUTION_GLADEDIR "/mail-config.glade", NULL);
+
+	dialog->dialog = glade_xml_get_widget (gui, "dialog");
+	dialog->notebook = glade_xml_get_widget (gui, "notebook");
+	
+	/* Identities Page */
+	dialog->clistIdentities = 
+		glade_xml_get_widget (gui, "clistIdentities");
+	clist = GTK_CLIST (dialog->clistIdentities);
+	gtk_clist_set_column_width (clist, 0, 80);
+
+	len = g_slist_length (config->ids);	
+	for (row = 0; row < len; row++) {
+		MailConfigIdentity *id;
+		gchar *text[4];
+		
+		id = identity_copy ((MailConfigIdentity *)
+				    g_slist_nth_data (config->ids, row));
+		
+		text[0] = id->name;
+		text[1] = id->address;
+		text[2] = id->org;
+		text[3] = id->sig;
+		
+	 	gtk_clist_append (clist, text);
+		gtk_clist_set_row_data (clist, row, id);
+	}
+
+	dialog->maxidrow = len - 1;
+	dialog->idrow = -1;
+	gtk_signal_connect (GTK_OBJECT (clist), "select_row",
+			    GTK_SIGNAL_FUNC (identities_select_row),
+			    dialog);
+
+	button = glade_xml_get_widget (gui, "cmdIdentitiesAdd");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (identities_add_clicked),
+			    dialog);
+	button = glade_xml_get_widget (gui, "cmdIdentitiesEdit");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (identities_edit_clicked),
+			    dialog);
+	button = glade_xml_get_widget (gui, "cmdIdentitiesDelete");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (identities_delete_clicked),
+			    dialog);
+
+	/* Sources Page */
+	dialog->clistSources = glade_xml_get_widget (gui, "clistSources");
+	clist = GTK_CLIST (dialog->clistSources);
+	gtk_clist_set_column_width (clist, 0, 80);
+
+	len = g_slist_length (config->sources);	
+	for (row = 0; row < len; row++) {
+		MailConfigService *source;
+		gchar *text[1];
+		
+		source = service_copy ((MailConfigService *)g_slist_nth_data (config->sources, row));
+		
+		text[0] = source->url;
+
+	 	gtk_clist_append (clist, text);
+		gtk_clist_set_row_data (clist, row, source);
+	}
+
+	dialog->maxsrow = len - 1;
+	dialog->srow = -1;
+	gtk_signal_connect (GTK_OBJECT (clist), "select_row",
+			    GTK_SIGNAL_FUNC (sources_select_row),
+			    dialog);
+
+	button = glade_xml_get_widget (gui, "cmdSourcesAdd");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (sources_add_clicked),
+			    dialog);
+	button = glade_xml_get_widget (gui, "cmdSourcesEdit");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (sources_edit_clicked),
+			    dialog);
+	button = glade_xml_get_widget (gui, "cmdSourcesDelete");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (sources_delete_clicked),
+			    dialog);
+
+	/* News Page */
+	dialog->clistNewsServers = glade_xml_get_widget (gui, "clistNewsServers");
+	clist = GTK_CLIST (dialog->clistNewsServers);
+	gtk_clist_set_column_width (clist, 0, 80);
+
+	len = g_slist_length (config->news);	
+	for (row=0; row<len; row++) {
+		MailConfigService *news;
+		gchar *text[1];
+		
+		news = service_copy ((MailConfigService *)
+				     g_slist_nth_data (config->news, row));
+		
+		text[0] = news->url;
+
+	 	gtk_clist_append (clist, text);
+		gtk_clist_set_row_data (clist, row, news);
+	}
+
+	dialog->maxnrow = len - 1;
+	dialog->nrow = -1;
+	gtk_signal_connect (GTK_OBJECT (clist), "select_row",
+			    GTK_SIGNAL_FUNC (news_select_row),
+			    dialog);
+
+	button = glade_xml_get_widget (gui, "cmdNewsServersAdd");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (news_add_clicked),
+			    dialog);
+	button = glade_xml_get_widget (gui, "cmdNewsServersEdit");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (news_edit_clicked),
+			    dialog);
+	button = glade_xml_get_widget (gui, "cmdNewsServersDelete");
+	gtk_signal_connect (GTK_OBJECT (button), "clicked",
+			    GTK_SIGNAL_FUNC (news_delete_clicked),
+			    dialog);
+
+	/* Transport Page */
+	tvbox = glade_xml_get_widget (gui, "transport_vbox");
+	dialog->page = transport_page_new (transports);
+	service_page_set_url (dialog->page->page, config->transport);
+	service_page_set_changed_cb (dialog->page->page,
+				     mail_config_tpage_changed, dialog);
+	service_page_set_done_cb (dialog->page->page, 
+				  mail_config_tpage_done, dialog);
+	gtk_box_pack_start (GTK_BOX (tvbox), 
+			    dialog->page->vbox, TRUE, TRUE, 0);
+	gtk_widget_show (dialog->page->vbox);
+	
+	/* Other Page */
+	dialog->chkFormat = glade_xml_get_widget (gui, "chkFormat");
+	gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (dialog->chkFormat), 
+				      config->send_html);
+	gtk_signal_connect (GTK_OBJECT (dialog->chkFormat), "toggled",
+			    GTK_SIGNAL_FUNC (format_toggled),
+			    dialog);
+
+	/* Listen for apply signal */
+	gtk_signal_connect (GTK_OBJECT (dialog->dialog), "apply",
+			    GTK_SIGNAL_FUNC (mail_config_apply_clicked),
+			    dialog);
+
+	gnome_dialog_run (GNOME_DIALOG (dialog->dialog));
+
+	/* Clean up */
+	gtk_object_unref (GTK_OBJECT (gui));
+	g_free (dialog);
+}
diff --git a/mail/mail-config-gui.h b/mail/mail-config-gui.h
new file mode 100644
index 0000000000..be122966fc
--- /dev/null
+++ b/mail/mail-config-gui.h
@@ -0,0 +1,29 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
+
+/*
+ *  Copyright 2000, Helix Code, Inc. (http://www.helixcode.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.
+ */
+
+#ifndef _MAIL_CONFIG_GUI_H
+#define _MAIL_CONFIG_GUI_H
+
+#include <glib.h>
+
+void mail_config (void);
+void mail_config_druid (void);
+
+#endif
diff --git a/mail/mail-config.c b/mail/mail-config.c
index 33d94de315..c90ac45ef6 100644
--- a/mail/mail-config.c
+++ b/mail/mail-config.c
@@ -1,4 +1,3 @@
-
 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
 /* mail-config.c: Mail configuration dialogs/wizard. */
 
@@ -35,335 +34,13 @@
 
 #include "e-util/e-html-utils.h"
 #include "e-util/e-setup.h"
-#include "mail.h"
-
-typedef struct _MailDialogIdentityPage MailDialogIdentityPage;
-typedef struct _MailDialogServicePage MailDialogServicePage;
-
-typedef void (*IdentityPageCallback) (MailDialogIdentityPage *, gpointer);
-typedef void (*ServicePageCallback) (MailDialogServicePage *, gpointer);
-
-typedef struct 
-{
-	CamelProvider *provider;
-	CamelService *service;
-	CamelProviderType type;
-	GList *authtypes;
-} MailService;
-
-struct _MailDialogIdentityPage
-{
-	GtkWidget *vbox;
-	GtkWidget *name;
-	GtkWidget *address;
-	GtkWidget *org;
-	GtkWidget *sig;
-	IdentityPageCallback undonecb;
-	gpointer undonedata;
-	IdentityPageCallback donecb;
-	gpointer donedata;
-};
-
-typedef struct
-{
-	GtkWidget *item;
-	GtkWidget *vbox;
-	CamelProviderType type;
-	gchar *protocol;
-	GtkWidget *user;
-	gboolean userneed;
-	GtkWidget *host;
-	gboolean hostneed;
-	GtkWidget *path;
-	gboolean pathneed;
-	GtkWidget *auth_optionmenu;
-	GList *auth_items;
-	GtkWidget *auth_html;
-	GtkWidget *auth_detect;
-	gint pnum;
-} MailDialogServicePageItem;
-
-struct _MailDialogServicePage
-{
-	GtkWidget *vbox;
-	GtkWidget *optionmenu;
-	GList *items;
-	GtkWidget *notebook;
-	MailDialogServicePageItem *spitem;
-	ServicePageCallback changedcb;
-	gpointer changeddata;
-	ServicePageCallback undonecb;
-	gpointer undonedata;
-	ServicePageCallback donecb;
-	gpointer donedata;
-};
-
-typedef struct
-{
-	GtkWidget *vbox;
-	MailDialogServicePage *page;
-} MailDialogSourcePage;
-
-typedef struct
-{
-	GtkWidget *vbox;
-	MailDialogServicePage *page;
-} MailDialogNewsPage;
-
-typedef struct
-{
-	GtkWidget *vbox;
-	MailDialogServicePage *page;
-} MailDialogTransportPage;
-
-typedef struct 
-{
-	GtkWidget *dialog;
-	MailDialogIdentityPage *page;
-	MailConfigIdentity *id;
-} MailDialogIdentity;
-
-typedef struct
-{
-	GtkWidget *dialog;
-	MailDialogSourcePage *page;
-	MailConfigService *source;
-} MailDialogSource;
-
-typedef struct
-{
-	GtkWidget *dialog;
-	MailDialogNewsPage *page;
-	MailConfigService *source;
-} MailDialogNews;
-
-typedef struct
-{
-	GladeXML *gui;
-	GtkWidget *dialog;
-	GtkWidget *druid;
-	MailDialogIdentityPage *idpage;
-	gboolean iddone;
-	MailDialogSourcePage *spage;
-	gboolean sdone;
-	MailDialogTransportPage *tpage;
-	gboolean tdone;
-} MailDruidDialog;
-
-typedef struct
-{
-	GladeXML *gui;
-	GtkWidget *dialog;
-	GtkWidget *notebook;
-	GtkWidget *clistIdentities;
-	gint idrow;
-	gint maxidrow;
-	GtkWidget *clistSources;
-	gint srow;
-	gint maxsrow;
-	GtkWidget *clistNewsServers;
-	gint nrow;
-	gint maxnrow;
-	MailDialogTransportPage *page;
-	gboolean tpagedone;
-	GtkWidget *chkFormat;
-} MailDialog;
+#include "mail-config.h"
 
 static const char GCONFPATH[] = "/apps/Evolution/Mail";
 static MailConfig *config = NULL;
 
-/* private prototypes - these are ugly, rename some of them? */
-static void html_size_req (GtkWidget *widget, GtkRequisition *requisition);
-static GtkWidget *html_new (gboolean white);
-static void put_html (GtkHTML *html, char *text);
-static void error_dialog (GtkWidget *parent_finder, const char *fmt, ...);
-static GdkImlibImage *load_image (const char *name);
-static void service_page_menuitem_activate (GtkWidget *item, 
-					    MailDialogServicePage *page);
-static void service_page_item_changed (GtkWidget *item, 
-				       MailDialogServicePage *page);
-static void service_page_item_auth_activate (GtkWidget *menuitem, 
-					     MailDialogServicePageItem *spitem);
-
-
-/* HTML Helpers */
-static void
-html_size_req (GtkWidget *widget, GtkRequisition *requisition)
-{
-	 requisition->height = GTK_LAYOUT (widget)->height;
-}
-
-/* Returns a GtkHTML which is already inside a GtkScrolledWindow. If
- * @white is TRUE, the GtkScrolledWindow will be inside a GtkFrame.
- */
-static GtkWidget *
-html_new (gboolean white)
-{
-	GtkWidget *html, *scrolled, *frame;
-	GtkStyle *style;
-	
-	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) {
-		gtk_html_set_default_background_color (GTK_HTML (html),
-						       white ? &style->white :
-						       &style->bg[0]);
-	}
-	gtk_widget_set_sensitive (html, FALSE);
-	scrolled = gtk_scrolled_window_new (NULL, NULL);
-	gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled),
-					GTK_POLICY_NEVER,
-					GTK_POLICY_NEVER);
-	gtk_container_add (GTK_CONTAINER (scrolled), html);
-	
-	if (white) {
-		frame = gtk_frame_new (NULL);
-		gtk_frame_set_shadow_type (GTK_FRAME (frame),
-					   GTK_SHADOW_ETCHED_IN);
-		gtk_container_add (GTK_CONTAINER (frame), scrolled);
-		gtk_widget_show_all (frame);
-	} else
-		gtk_widget_show_all (scrolled);
-	
-	return html;
-}
-
-static void
-put_html (GtkHTML *html, char *text)
-{
-	GtkHTMLStream *handle;
-	
-	text = e_text_to_html (text, E_TEXT_TO_HTML_CONVERT_NL);
-	handle = gtk_html_begin (html);
-	gtk_html_write (html, handle, "<HTML><BODY>", 12);
-	gtk_html_write (html, handle, text, strlen (text));
-	gtk_html_write (html, handle, "</BODY></HTML>", 14);
-	g_free (text);
-	gtk_html_end (html, handle, GTK_HTML_STREAM_OK);
-}
-
-
-/* Standard Dialog Helpers */
-static void
-error_dialog (GtkWidget *parent_finder, const char *fmt, ...)
-{
-	GtkWidget *parent, *dialog;
-	char *msg;
-	va_list ap;
-	
-	parent = gtk_widget_get_ancestor (parent_finder, GTK_TYPE_WINDOW);
-	
-	va_start (ap, fmt);
-	msg = g_strdup_vprintf (fmt, ap);
-	va_end (ap);
-	
-	dialog = gnome_error_dialog_parented (msg, GTK_WINDOW (parent));
-	gtk_window_set_modal (GTK_WINDOW (dialog), TRUE);
-	g_free (msg);
-}
-
-static void
-info_dialog (GtkWidget *parent_finder, const char *fmt, ...)
-{
-	GtkWidget *parent, *dialog;
-	char *msg;
-	va_list ap;
-	
-	parent = gtk_widget_get_ancestor (parent_finder, GTK_TYPE_WINDOW);
-	
-	va_start (ap, fmt);
-	msg = g_strdup_vprintf (fmt, ap);
-	va_end (ap);
-	
-	dialog = gnome_ok_dialog_parented (msg, GTK_WINDOW (parent));
-	gtk_window_set_modal (GTK_WINDOW (dialog), TRUE);
-	g_free (msg);
-}
-
-/* Provider List */
-static GSList *
-provider_list_add (GSList *services, CamelProviderType type, 
-		   CamelProvider *prov)
-{
-	MailService *mcs;
-	CamelService *service;
-	CamelException *ex;
-	char *url;
-
-	ex = camel_exception_new ();
-
-	url = g_strdup_printf ("%s:", prov->protocol);
-	service = camel_session_get_service (session, url, type, ex);
-	g_free (url);
-	if (!service) {
-		camel_exception_free (ex);
-		return services;
-	}
-
-	mcs = g_new (MailService, 1);
-	mcs->provider = prov;
-	mcs->service = service;
-	mcs->type = type;
-	mcs->authtypes = camel_service_query_auth_types (mcs->service, ex);
-	camel_exception_free (ex);
-
-	return g_slist_prepend (services, mcs);
-}
-
-static void 
-provider_list (GSList **sources, GSList **news, GSList **transports)
-{
-	GList *providers, *p;
-	
-	/* Fetch list of all providers. */
-	providers = camel_session_list_providers (session, TRUE);
-	*sources = *transports = *news = NULL;
-	for (p = providers; p; p = p->next) {
-		CamelProvider *prov = p->data;
-		
-		if (!strcmp (prov->domain, "news")) {
-			if (prov->object_types[CAMEL_PROVIDER_STORE]) {
-				*news = provider_list_add (*news,
-							   CAMEL_PROVIDER_STORE,
-							   prov);
-			}
-		}
-    
-		if (strcmp (prov->domain, "mail"))
-			continue;
-		
-		if (prov->object_types[CAMEL_PROVIDER_STORE]) {
-			*sources = provider_list_add (*sources,
-						      CAMEL_PROVIDER_STORE,
-						      prov);
-		} else if (prov->object_types[CAMEL_PROVIDER_TRANSPORT]) {
-			*transports = provider_list_add (*transports,
-							 CAMEL_PROVIDER_TRANSPORT,
-							 prov);
-		}
-	}	
-}
-
-/* Utility routines */
-static GdkImlibImage *
-load_image (const char *name)
-{
-	char *path;
-	GdkImlibImage *image;
-
-	path = g_strdup_printf (EVOLUTION_ICONSDIR "/%s", name);
-	image = gdk_imlib_load_image (path);
-	g_free (path);
-
-	return image;
-}
-
 /* Identity struct */
-static MailConfigIdentity *
+MailConfigIdentity *
 identity_copy (MailConfigIdentity *id) 
 {
 	MailConfigIdentity *newid;
@@ -379,7 +56,7 @@ identity_copy (MailConfigIdentity *id)
 	return newid;
 }
 
-static void
+void
 identity_destroy (MailConfigIdentity *id)
 {
 	if (!id)
@@ -393,14 +70,14 @@ identity_destroy (MailConfigIdentity *id)
 	g_free (id);
 }
 
-static void
+void
 identity_destroy_each (gpointer item, gpointer data)
 {
 	identity_destroy ((MailConfigIdentity *)item);
 }
 
-/* Source struct */
-static MailConfigService *
+/* Service struct */
+MailConfigService *
 service_copy (MailConfigService *source) 
 {
 	MailConfigService *newsource;
@@ -413,7 +90,7 @@ service_copy (MailConfigService *source)
 	return newsource;
 }
 
-static void
+void
 service_destroy (MailConfigService *source)
 {
 	if (!source)
@@ -424,15 +101,15 @@ service_destroy (MailConfigService *source)
 	g_free (source);
 }
 
-static void
+void
 service_destroy_each (gpointer item, gpointer data)
 {
 	service_destroy ((MailConfigService *)item);
 }
 
 /* Config struct routines */
-static void
-init_config ()
+void
+mail_config_init ()
 {
 	if (config)
 		return;
@@ -442,10 +119,12 @@ init_config ()
 	config->ids = NULL;
 	config->sources = NULL;
 	config->transport = NULL;
+
+	mail_config_read ();
 }
 
-static void
-clear_config ()
+void
+mail_config_clear ()
 {
 	if (!config)
 		return;
@@ -466,14 +145,13 @@ clear_config ()
 	config->transport = NULL;
 }
 
-static void
-read_config ()
+void
+mail_config_read ()
 {
 	gchar *str;
 	gint len, i;
 	
-	init_config ();
-	clear_config ();
+	mail_config_clear ();
 
 	/* Configured */
 	str = g_strdup_printf ("=%s/config/General=/General/configured", evolution_dir);
@@ -565,13 +243,11 @@ read_config ()
 	gnome_config_sync ();
 }
 
-static void
-write_config ()
+void
+mail_config_write ()
 {
 	gchar *str;
 	gint len, i;
-	
-	init_config ();
 
 	/* Configured switch */
 	str = g_strdup_printf ("=%s/config/General=/General/configured", 
@@ -660,1750 +336,45 @@ write_config ()
 	gnome_config_sync ();
 }
 
-/* Identity Page */
-static void
-identity_page_changed (GtkWidget *widget, MailDialogIdentityPage *page)
-{
-	gchar *name, *addr;
-	
-	name = gtk_editable_get_chars (GTK_EDITABLE (page->name), 0, -1);
-	addr = gtk_editable_get_chars (GTK_EDITABLE (page->address), 0, -1);
-	
-	if (addr && *addr && name && *name && page->donecb)
-		page->donecb (page, page->donedata);
-	else if (page->undonecb)
-		page->undonecb (page, page->undonedata);
-
-	g_free (name);
-	g_free (addr);
-}
-
-static MailConfigIdentity *
-identity_page_extract (MailDialogIdentityPage *page)
-{
-	MailConfigIdentity *id = g_new0 (MailConfigIdentity, 1);
-
-	id->name = gtk_editable_get_chars (GTK_EDITABLE (page->name), 0, -1);
-	id->address = 
-		gtk_editable_get_chars (GTK_EDITABLE (page->address), 0, -1);
-	id->org = gtk_editable_get_chars (GTK_EDITABLE (page->org), 0, -1);
-	id->sig = gtk_editable_get_chars (GTK_EDITABLE (page->sig), 0, -1);
-
-	return id;
-}
-
-static void
-identity_page_set_undone_cb (MailDialogIdentityPage *page, 
-			     IdentityPageCallback cb, gpointer data)
-{
-	page->undonecb = cb;
-	page->undonedata = data;
-}
-
-static void
-identity_page_set_done_cb (MailDialogIdentityPage *page, 
-			   IdentityPageCallback cb, gpointer data)
-{
-	page->donecb = cb;
-	page->donedata = data;
-}
-
-static MailDialogIdentityPage *
-identity_page_new (const MailConfigIdentity *id)
-{
-	MailDialogIdentityPage *page = g_new0 (MailDialogIdentityPage, 1);
-	GtkWidget *html, *table;
-	GtkWidget *label, *fentry, *hsep;
-	gchar *user = NULL;
-	gboolean new = !id;
-	
-	page->vbox = gtk_vbox_new (FALSE, 5);
-	
-	html = html_new (FALSE);
-	put_html (GTK_HTML (html),
-		  _("Enter your name and email address to be used in "
-		    "outgoing mail. You may also, optionally, enter the "
-		    "name of your organization, and the name of a file "
-		    "to read your signature from."));
-	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
-			    FALSE, TRUE, 0);
-
-	table = gtk_table_new (5, 2, FALSE);
-	gtk_table_set_row_spacings (GTK_TABLE (table), 10);
-	gtk_table_set_col_spacings (GTK_TABLE (table), 6);
-	gtk_container_set_border_width (GTK_CONTAINER (table), 8);
-	gtk_box_pack_start (GTK_BOX (page->vbox), table, FALSE, FALSE, 0);
-
-	label = gtk_label_new (_("Full name:"));
-	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 0, 1,
-			  GTK_FILL, 0, 0, 0);
-	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
-
-	page->name = gtk_entry_new ();
-	gtk_table_attach (GTK_TABLE (table), page->name, 1, 2, 0, 1,
-			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
-
-	if (!id || !id->name)
-		user = g_get_real_name ();
-
-	if ((id && id->name) || user) {
-		char *name;
-
-		if (id && id->name)
-			name = g_strdup (id->name);
-		else
-			name = g_strdup (user);
-
-		gtk_entry_set_text (GTK_ENTRY (page->name), name);
-		g_free (name);
-	}
-
-	label = gtk_label_new (_("Email address:"));
-	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 1, 2,
-			  GTK_FILL, 0, 0, 0);
-	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
-
-	page->address = gtk_entry_new ();
-	if (id && id->address)
-		gtk_entry_set_text (GTK_ENTRY (page->address), id->address);
-	gtk_table_attach (GTK_TABLE (table), page->address, 1, 2, 1, 2,
-			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
-
-	hsep = gtk_hseparator_new ();
-	gtk_table_attach (GTK_TABLE (table), hsep, 0, 2, 2, 3,
-			  GTK_FILL, 0, 0, 8);
-
-	label = gtk_label_new (_("Organization:"));
-	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 3, 4,
-			  GTK_FILL, 0, 0, 0);
-	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
-
-	page->org = gtk_entry_new ();
-	if (id && id->org)
-		gtk_entry_set_text (GTK_ENTRY (page->org), id->org);
-	gtk_table_attach (GTK_TABLE (table), page->org, 1, 2, 3, 4,
-			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
-
-	label = gtk_label_new (_("Signature file:"));
-	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 4, 5,
-			  GTK_FILL, GTK_FILL, 0, 0);
-	gtk_misc_set_alignment (GTK_MISC (label), 1, 0);
-
-	fentry = gnome_file_entry_new (NULL, _("Signature File"));
-	page->sig = gnome_file_entry_gtk_entry (GNOME_FILE_ENTRY (fentry));
-	if (id && id->sig) {
-		gtk_entry_set_text (GTK_ENTRY (page->sig), id->sig);
-	} else {
-		gchar *default_sig;
-		
-		default_sig = g_strconcat (g_get_home_dir (), 
-					   G_DIR_SEPARATOR_S,
-					   ".signature", NULL);
-		if (g_file_exists (default_sig))
-			gtk_entry_set_text (GTK_ENTRY (page->sig), default_sig);
-		g_free (default_sig);
-	}
-	
-	gtk_table_attach (GTK_TABLE (table), fentry, 1, 2, 4, 5,
-			  GTK_FILL, 0, 0, 0);
-	gnome_file_entry_set_default_path (GNOME_FILE_ENTRY (fentry),
-					   g_get_home_dir ());
-	
-	gtk_signal_connect (GTK_OBJECT (page->name), "changed",
-			    GTK_SIGNAL_FUNC (identity_page_changed), page);
-	gtk_signal_connect (GTK_OBJECT (page->address), "changed",
-			    GTK_SIGNAL_FUNC (identity_page_changed), page);
-	if (!new) {
-		gtk_signal_connect (GTK_OBJECT (page->org), "changed",
-				    GTK_SIGNAL_FUNC (identity_page_changed), 
-				    page);
-		gtk_signal_connect (GTK_OBJECT (page->sig), "changed",
-				    GTK_SIGNAL_FUNC (identity_page_changed), 
-				    page);
-	}
-
-	gtk_widget_show_all (table);
-
-	return page;
-}
-
-/* Service page */
-static MailDialogServicePageItem *
-service_page_item_by_protocol (MailDialogServicePage *page, gchar *protocol)
-{
-	MailDialogServicePageItem *spitem;
-	gint len, i;
-	
-	len = g_list_length (page->items);
-	for (i = 0; i < len; i++) {
-		spitem = (MailDialogServicePageItem *)
-			g_list_nth_data (page->items, i);
-		if (!g_strcasecmp (spitem->protocol, protocol)) 
-			return spitem;
-	}
-	
-	return NULL;
-}
-
-static MailDialogServicePageItem *
-service_page_item_by_menuitem (MailDialogServicePage *page, 
-			       GtkWidget *menuitem)
-{
-	MailDialogServicePageItem *spitem;
-	gint len, i;
-	
-	len = g_list_length (page->items);
-	for (i = 0; i < len; i++) {
-		spitem = (MailDialogServicePageItem *)
-			g_list_nth_data (page->items, i);
-		if (spitem->item == menuitem) 
-			return spitem;
-	}
-
-	return NULL;
-}
-
-static char *
-service_page_get_url (MailDialogServicePage *page)
-{
-	MailDialogServicePageItem *spitem;
-	CamelURL *url;
-	char *url_str;
-
-	spitem = page->spitem;
-	
-	url = g_new0 (CamelURL, 1);
-	url->protocol = g_strdup (spitem->protocol);
-
-	if (spitem->user)
-		url->user = gtk_editable_get_chars (GTK_EDITABLE (spitem->user), 0, -1);
-	if (spitem->host)
-		url->host = gtk_editable_get_chars (GTK_EDITABLE (spitem->host), 0, -1);
-	if (spitem->path) {
-		gchar *path;
-		path = gtk_editable_get_chars (GTK_EDITABLE (spitem->path),
-					       0, -1);
-		url->path = g_strdup_printf ("%s%s", url->host ? "/" : "", 
-					     path);
-		g_free (path);
-	}
-	
-	if (spitem->auth_optionmenu) {
-		GtkWidget *menu, *item;
-		CamelServiceAuthType *authtype;
-
-		menu = gtk_option_menu_get_menu (GTK_OPTION_MENU (spitem->auth_optionmenu));
-		if (menu) {
-			item = gtk_menu_get_active (GTK_MENU (menu));
-			authtype = gtk_object_get_data (GTK_OBJECT (item),
-							"authtype");
-			if (*authtype->authproto)
-				url->authmech = g_strdup (authtype->authproto);
-		}
-	}
-
-	url_str = camel_url_to_string (url, FALSE);
-	camel_url_free (url);
-	
-	return url_str;
-}
-
-static void
-service_page_set_url (MailDialogServicePage *page, MailConfigService *service)
-{
-	CamelURL *url;
-	CamelException *ex;
-	MailDialogServicePageItem *spitem = NULL;
-	
-	if (!service || !service->url)
-		return;
-	
-	ex = camel_exception_new ();
-	
-	url = camel_url_new (service->url, ex);
-	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
-		camel_exception_free (ex);
-		return;
-	}
-
-	/* Find the right protocol */
-	spitem = service_page_item_by_protocol (page, url->protocol);
-	service_page_menuitem_activate (spitem->item, page);
-	gtk_option_menu_set_history (GTK_OPTION_MENU (page->optionmenu), 
-				     spitem->pnum);
-	
-	if (spitem->user && url && url->user)
-		gtk_entry_set_text (GTK_ENTRY (spitem->user), url->user);
-
-	if (spitem->host && url && url->host)
-		gtk_entry_set_text (GTK_ENTRY (spitem->host), url->host);
-	
-	if (spitem->path && url && url->path) {
-		if (url->host && *url->path)
-			gtk_entry_set_text (GTK_ENTRY (spitem->path),
-					    url->path + 1);
-		else
-			gtk_entry_set_text (GTK_ENTRY (spitem->path), 
-					    url->path);
-	}
-
-	/* Set the auth menu */
-	if (spitem->auth_optionmenu) {
-		GtkWidget *menu, *item;
-		CamelServiceAuthType *authtype;
-		gint len, i;
-		
-		menu = gtk_option_menu_get_menu (GTK_OPTION_MENU (spitem->auth_optionmenu));
-		len = g_list_length (spitem->auth_items);
-		for (i = 0; i < len; i++) {
-			item = g_list_nth_data (spitem->auth_items, i);
-			authtype = gtk_object_get_data (GTK_OBJECT (item),
-							"authtype");
-			
-			if ((!url->authmech && !*authtype->authproto) ||
-			    (url->authmech && !strcmp (authtype->authproto, url->authmech)))
-				service_page_item_auth_activate (item, spitem);
-				gtk_option_menu_set_history (GTK_OPTION_MENU (spitem->auth_optionmenu), i);
-		}
-	}
-
-	camel_exception_free (ex);
-	camel_url_free (url);
-}
-
-static void
-service_page_item_auth_activate (GtkWidget *menuitem, 
-				 MailDialogServicePageItem *spitem)
-{
-	CamelServiceAuthType *authtype;
-
-	authtype = gtk_object_get_data (GTK_OBJECT (menuitem), "authtype");
-	put_html (GTK_HTML (spitem->auth_html), 
-		  authtype->description);
-}
-
-static void
-service_page_item_auth_fill (MailDialogServicePage *page,
-			     MailDialogServicePageItem *spitem, 
-			     GList *authtypes)
-{
-	CamelServiceAuthType *authtype;
-	GtkWidget *menu, *item, *firstitem = NULL;
-
-	menu = gtk_menu_new ();
-	gtk_option_menu_set_menu (GTK_OPTION_MENU (spitem->auth_optionmenu), 
-				  menu);
-	for (; authtypes; authtypes = authtypes->next) {
-		authtype = authtypes->data;
-
-		item = gtk_menu_item_new_with_label (_(authtype->name));
-		if (!firstitem)
-			firstitem = item;
-		spitem->auth_items = g_list_append (spitem->auth_items, item);
-
-		gtk_menu_append (GTK_MENU (menu), item);
-		gtk_object_set_data (GTK_OBJECT (item), "authtype", authtype);
-
-		gtk_signal_connect (GTK_OBJECT (item), "activate",
-				    GTK_SIGNAL_FUNC (service_page_item_auth_activate),
-				    spitem);
-		gtk_signal_connect (GTK_OBJECT (item), "activate",
-				    GTK_SIGNAL_FUNC (service_page_item_changed),
-				    page);
-	}
-	gtk_widget_show_all (menu);
-
-	gtk_option_menu_set_history (GTK_OPTION_MENU (spitem->auth_optionmenu), 0);
-	if (firstitem)
-		service_page_item_auth_activate (firstitem, spitem);
-}
-
-static gboolean
-service_acceptable (MailDialogServicePage *page)
-{
-	char *url = NULL;
-	CamelService *service;
-	CamelException *ex;
-
-	url = service_page_get_url (page);
-
-	ex = camel_exception_new ();
-	camel_exception_clear (ex);
-	service = camel_session_get_service (session, url, 
-					     page->spitem->type, ex);
-	g_free (url);
-
-	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE)
-		goto error;
-
-	if (camel_service_connect (service, ex)) {
-		camel_service_disconnect (service, ex);
-		gtk_object_unref (GTK_OBJECT (service));
-		camel_exception_free (ex);
-		
-		info_dialog (page->vbox, "Connection successful!");
-		
-		return TRUE;
-	}
-	
-	gtk_object_unref (GTK_OBJECT (service));
-	
- error:
-	error_dialog (page->vbox, camel_exception_get_description (ex));
-	camel_exception_free (ex);
-
-	return FALSE;
-}
-
-static MailConfigService *
-service_page_extract (MailDialogServicePage *page)
-{
-	MailConfigService *source = g_new0 (MailConfigService, 1);
-
-	source->url = service_page_get_url (page);
-
-	return source;
-}
-
-static void
-service_page_item_changed (GtkWidget *item, MailDialogServicePage *page) 
-{
-	MailDialogServicePageItem *spitem;
-	char *data;
-	gboolean complete = TRUE;
-
-	spitem = page->spitem;
-
-	if (complete && page->changedcb) {
-		page->changedcb (page, page->changeddata);
-	}
-	
-	if (spitem->host && spitem->hostneed) {
-		data = gtk_editable_get_chars (GTK_EDITABLE (spitem->host), 0, -1);
-		if (!data || !*data)
-			complete = FALSE;
-		g_free (data);
-	}
-
-	if (complete) {
-		if (spitem->user && spitem->userneed) {
-			data = gtk_editable_get_chars (GTK_EDITABLE (spitem->user), 0, -1);
-			if (!data || !*data)
-				complete = FALSE;
-			g_free (data);
-		}
-	}
-
-	if (complete) {
-		if (spitem->path && spitem->pathneed) {
-			data = gtk_editable_get_chars (GTK_EDITABLE (spitem->path), 0, -1);
-			if (!data || !*data)
-				complete = FALSE;
-		}
-	}
-
-	if (spitem->auth_detect)
-		gtk_widget_set_sensitive (spitem->auth_detect, complete);
-
-	if (complete && page->donecb) {
-		page->donecb (page, page->donedata);
-	} else if (!complete && page->undonecb) {
-		page->undonecb (page, page->undonedata);
-	}
-}
-
-static void
-service_page_detect (GtkWidget *button, MailDialogServicePage *page)
-{
-	MailDialogServicePageItem *spitem;
-	char *url = NULL;
-	CamelException *ex;
-	CamelService *service;
-	GList *authtypes;
-
-	spitem = page->spitem;
-	url = service_page_get_url (page);
-
-	ex = camel_exception_new ();
-	service = camel_session_get_service (session, url, spitem->type, ex);
-	g_free (url);
-	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE)
-		goto error;
-
-	authtypes = camel_service_query_auth_types (service, ex);
-	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE)
-		goto error;
-
-	service_page_item_auth_fill (page, spitem, authtypes);
-
-	camel_exception_free (ex);
-
-	return;
-
- error:
-	error_dialog (button, "Could not detect supported authentication "
-		      "types:\n%s", camel_exception_get_description (ex));
-	camel_exception_free (ex);
-}
-
-static void
-service_page_item_test (GtkWidget *button, MailDialogServicePage *page) 
+/* Accessor functions */
+gboolean
+mail_config_is_configured ()
 {
-	service_acceptable (page);
+	return config->configured;
 }
 
-static GtkWidget *
-service_page_add_elem (MailDialogServicePage *page, GtkWidget *table, 
-		       int row, const char *label_text)
+MailConfigIdentity *
+mail_config_get_default_identity ()
 {
-	GtkWidget *label, *entry;
-
-	label = gtk_label_new (label_text);
-	gtk_table_attach (GTK_TABLE (table), label, 0, 1, 
-			  row, row + 1, GTK_FILL, 0, 0, 0);
-	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
-
-	entry = gtk_entry_new ();
-	gtk_table_attach (GTK_TABLE (table), entry, 1, 3, row, row + 1,
-			  GTK_EXPAND | GTK_FILL, 0, 0, 0);
-
-	gtk_signal_connect (GTK_OBJECT (entry), "changed",
-			    GTK_SIGNAL_FUNC (service_page_item_changed), page);
-
-	return entry;
-}
-
-static MailDialogServicePageItem *
-service_page_item_new (MailDialogServicePage *page, MailService *mcs)
-{
-	MailDialogServicePageItem *item;
-	GtkWidget *table, *description;
-	int row, service_flags;
-
-	item = g_new0 (MailDialogServicePageItem, 1);
-	
-	item->vbox = gtk_vbox_new (FALSE, 0);
-
-	/* Description */
-	description = html_new (TRUE);
-	put_html (GTK_HTML (description), mcs->provider->description);
-	gtk_box_pack_start (GTK_BOX (item->vbox),
-			    description->parent->parent,
-			    TRUE, TRUE, 0);
-	
-	table = gtk_table_new (5, 3, FALSE);
-	gtk_table_set_row_spacings (GTK_TABLE (table), 2);
-	gtk_table_set_col_spacings (GTK_TABLE (table), 10);
-	gtk_container_set_border_width (GTK_CONTAINER (table), 8);
-	gtk_box_pack_start (GTK_BOX (item->vbox), table, TRUE, TRUE, 0);
-
-	item->protocol = g_strdup (mcs->provider->protocol);
-	item->type = mcs->type;
-	
-	row = 0;
-	service_flags = mcs->service->url_flags & ~CAMEL_SERVICE_URL_NEED_AUTH;
-
-	if (service_flags & CAMEL_SERVICE_URL_ALLOW_HOST) {
-		item->host = service_page_add_elem (page, table, row++, _("Server:"));
-		item->hostneed = ((service_flags & CAMEL_SERVICE_URL_NEED_HOST)
-				  == CAMEL_SERVICE_URL_NEED_HOST);
-	}
-
-	if (service_flags & CAMEL_SERVICE_URL_ALLOW_USER) {
-		item->user = service_page_add_elem (page, table, row++, _("Username:"));
-		item->userneed = ((service_flags & CAMEL_SERVICE_URL_NEED_USER)
-				  == CAMEL_SERVICE_URL_NEED_USER);
-	}
-
-	if (service_flags & CAMEL_SERVICE_URL_ALLOW_PATH) {
-		item->path = service_page_add_elem (page, table, row++, _("Path:"));
-		item->pathneed = ((service_flags & CAMEL_SERVICE_URL_NEED_PATH)
-				  == CAMEL_SERVICE_URL_NEED_PATH);
-	}
-
-	if (mcs->authtypes) {
-		GtkWidget *label;
-
-		label = gtk_label_new (_("Authentication:"));
-		gtk_table_attach (GTK_TABLE (table), label, 0, 1,
-				  row, row + 1, GTK_FILL, 0, 0, 0);
-		gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
-
-		item->auth_optionmenu = gtk_option_menu_new ();
-		gtk_table_attach (GTK_TABLE (table), 
-				  item->auth_optionmenu, 
-				  1, 2, row, row + 1, 
-				  GTK_FILL | GTK_EXPAND,
-				  0, 0, 0);
-
-		item->auth_detect = gtk_button_new_with_label (_("Detect supported types..."));
-		gtk_table_attach (GTK_TABLE (table), item->auth_detect, 
-				  2, 3, row, row + 1, 0, 0, 0, 0);
-		gtk_widget_set_sensitive (item->auth_detect, FALSE);
-		gtk_signal_connect (GTK_OBJECT (item->auth_detect), 
-				    "clicked",
-				    GTK_SIGNAL_FUNC (service_page_detect), 
-				    page);
-
-		item->auth_html = html_new (TRUE);
-		gtk_table_attach (GTK_TABLE (table), 
-				  item->auth_html->parent->parent,
-				  0, 3, row + 1, row + 2,
-				  GTK_FILL, GTK_EXPAND | GTK_FILL, 0, 0);
-
-		service_page_item_auth_fill (page, item, mcs->authtypes);
-
-		row += 2;
-	}
-
-	if (row != 0) {
-		GtkWidget *btn;
-
-		btn = gtk_button_new_with_label (_("Test Settings"));
-
-		gtk_table_attach (GTK_TABLE (table), btn, 2, 3,
-				  row, row + 1, GTK_FILL, GTK_FILL, 0, 0);
-
-		gtk_signal_connect (GTK_OBJECT (btn), "clicked",
-				    GTK_SIGNAL_FUNC (service_page_item_test), 
-				    page);
-		row += 1;
-	}
-
-	gtk_table_resize (GTK_TABLE (table), row, 3);
-	gtk_widget_show_all (table);
-
-	return item;
-}
-
-static void
-service_page_menuitem_activate (GtkWidget *item, MailDialogServicePage *page)
-{
-	MailDialogServicePageItem *spitem;
-
-	spitem = service_page_item_by_menuitem (page, item);
-
-	g_return_if_fail (spitem);
+	if (!config->ids)
+		return NULL;
 	
-	gtk_notebook_set_page (GTK_NOTEBOOK (page->notebook), spitem->pnum);
-	page->spitem = spitem;
-
-	service_page_item_changed (item, page);
-}
-
-static void
-service_page_set_changed_cb (MailDialogServicePage *page, 
-			     ServicePageCallback cb, gpointer data)
-{
-	page->changedcb = cb;
-	page->changeddata = data;
-}
-
-static void
-service_page_set_undone_cb (MailDialogServicePage *page, 
-			    ServicePageCallback cb, gpointer data)
-{
-	page->undonecb = cb;
-	page->undonedata = data;
-}
-
-static void
-service_page_set_done_cb (MailDialogServicePage *page, 
-			  ServicePageCallback cb, gpointer data)
-{
-	page->donecb = cb;
-	page->donedata = data;
-
-	/* In case its already done */
-	service_page_item_changed (page->spitem->item, page);
+	return (MailConfigIdentity *)config->ids->data;
 }
 
-static MailDialogServicePage *
-service_page_new (const char *label_text, GSList *services)
+MailConfigService *
+mail_config_get_default_source ()
 {
-	MailDialogServicePage *page;
-	GtkWidget *hbox, *label, *menu;
-	GtkWidget *first_item = NULL;
-	int pnum;
-	GSList *s;
-
-	page = g_new0 (MailDialogServicePage, 1);
-	
-	page->vbox = gtk_vbox_new (FALSE, 5);
-	
-	hbox = gtk_hbox_new (FALSE, 8);
-	gtk_box_pack_start (GTK_BOX (page->vbox), hbox, FALSE, TRUE, 0);
-
-	label = gtk_label_new (label_text);
-	gtk_box_pack_start (GTK_BOX (hbox), label, FALSE, FALSE, 0);
-	gtk_misc_set_alignment (GTK_MISC (label), 1, 0.5);
-
-	page->optionmenu = gtk_option_menu_new ();
-	menu = gtk_menu_new ();
-	gtk_option_menu_set_menu (GTK_OPTION_MENU (page->optionmenu), menu);
-	gtk_box_pack_start (GTK_BOX (hbox), page->optionmenu, TRUE, TRUE, 0);
+	if (!config->sources)
+		return NULL;
 	
-	/* Notebook */
-	page->notebook = gtk_notebook_new ();
-	gtk_notebook_set_show_tabs (GTK_NOTEBOOK (page->notebook), FALSE);
-	gtk_box_pack_start (GTK_BOX (page->vbox), page->notebook, 
-			    TRUE, TRUE, 0);
-
-	/* Build the list of services and the service item pages */
-	for (s = services, pnum = 0; s; s = s->next, pnum++) {
-		MailService *mcs = s->data;
-		MailDialogServicePageItem *spitem;
-		
-		spitem = service_page_item_new (page, mcs);
-		spitem->pnum = pnum;
-		
-		gtk_notebook_append_page (GTK_NOTEBOOK (page->notebook), 
-					  spitem->vbox, NULL);
-
-		spitem->item = gtk_menu_item_new_with_label (_(mcs->provider->name));
-		if (!first_item)
-			first_item = spitem->item;
-
-		gtk_signal_connect (GTK_OBJECT (spitem->item), "activate",
-				    GTK_SIGNAL_FUNC (service_page_menuitem_activate),
-				    page);
-
-		gtk_menu_append (GTK_MENU (menu), spitem->item);
-		page->items = g_list_append (page->items, spitem);
-	}
-	
-	service_page_menuitem_activate (first_item, page);
-	gtk_option_menu_set_history (GTK_OPTION_MENU (page->optionmenu), 0);
-
-	gtk_widget_show_all (page->vbox);
-
-	return page;
+	return (MailConfigService *)config->sources->data;
 }
 
-/* Source Page */
-static MailDialogSourcePage *
-source_page_new (GSList *sources)
+MailConfigService *
+mail_config_get_transport ()
 {
-	MailDialogSourcePage *page = g_new0 (MailDialogSourcePage, 1);
-	GtkWidget *html;
-
-	page->page = service_page_new ("Mail source type:", sources);
-	page->vbox = page->page->vbox;
-	
-	html = html_new (FALSE);
-	put_html (GTK_HTML (html),
-		  _("Select the kind of mail server you have, and enter "
-		    "the relevant information about it.\n\nIf the server "
-		    "requires authentication, you can click the "
-		    "\"Detect supported types...\" button after entering "
-		    "the other information."));
-	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
-			    FALSE, TRUE, 0);
-	gtk_box_reorder_child (GTK_BOX (page->vbox), html->parent, 0);
-
-	return page;
+	return config->transport;
 }
 
-/* News Page */
-static MailDialogNewsPage *
-news_page_new (GSList *sources)
+gboolean
+mail_config_send_html ()
 {
-	MailDialogNewsPage *page = g_new0 (MailDialogNewsPage, 1);
-	GtkWidget *html;
-
-	page->page = service_page_new ("News source type:", sources);
-	page->vbox = page->page->vbox;
-	
-	html = html_new (FALSE);
-	put_html (GTK_HTML (html),
-		  _("Select the kind of news server you have, and enter "
-		    "the relevant information about it.\n\nIf the server "
-		    "requires authentication, you can click the "
-		    "\"Detect supported types...\" button after entering "
-		    "the other information."));
-	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
-			    FALSE, TRUE, 0);
-	gtk_box_reorder_child (GTK_BOX (page->vbox), html->parent, 0);
-
-	return page;
+	return config->send_html;
 }
 
-/* Transport page */
-static MailDialogTransportPage *
-transport_page_new (GSList *transports)
-{
-	MailDialogTransportPage *page = g_new0 (MailDialogTransportPage, 1);
-	GtkWidget *html;
-
-	page->page = service_page_new ("Mail transport type:", transports);
-	page->vbox = page->page->vbox;
-	
-	html = html_new (FALSE);
-	put_html (GTK_HTML (html),
-		  _("Select the kind of mail server you have, and enter "
-		    "the relevant information about it.\n\nIf the server "
-		    "requires authentication, you can click the "
-		    "\"Detect supported types...\" button after entering "
-		    "the other information."));
-	gtk_box_pack_start (GTK_BOX (page->vbox), html->parent, 
-			    FALSE, TRUE, 0);
-	gtk_box_reorder_child (GTK_BOX (page->vbox), html->parent, 0);
-
-	return page;
-}
-
-/* Identity dialog */
-static void
-iddialog_page_undone (MailDialogIdentityPage *page, gpointer data)
-{
-	MailDialogIdentity *iddialog = (MailDialogIdentity *)data;
-
-	gnome_dialog_set_sensitive (GNOME_DIALOG (iddialog->dialog), 0, FALSE);
-}
-
-static void
-iddialog_page_done (MailDialogIdentityPage *page, gpointer data)
-{
-	MailDialogIdentity *iddialog = (MailDialogIdentity *)data;
-
-	gnome_dialog_set_sensitive (GNOME_DIALOG (iddialog->dialog), 0, TRUE);
-}
-
-static void
-iddialog_ok_clicked (GtkWidget *dialog, MailDialogIdentity *iddialog)
-{
-	g_return_if_fail (iddialog);
-	
-	iddialog->id = identity_page_extract (iddialog->page);
-}
-
-static MailConfigIdentity *
-identity_dialog (const MailConfigIdentity *id, GtkWidget *parent)
-
-{
-	MailDialogIdentity *iddialog;
-	MailConfigIdentity *returnid;
-	GtkWidget *dialog_vbox;
-	GtkWidget *area;
-	gboolean new = !id;
-	
-	iddialog = g_new0 (MailDialogIdentity, 1);
-
-	if (new)
-		iddialog->dialog = gnome_dialog_new (_("Edit Identity"), NULL);
-	else
-		iddialog->dialog = gnome_dialog_new (_("Add Identity"), NULL);
-
-	gtk_window_set_modal (GTK_WINDOW (iddialog->dialog), TRUE);
-	gtk_window_set_policy (GTK_WINDOW (iddialog->dialog), 
-			       TRUE, TRUE, FALSE);
-	gnome_dialog_set_parent (GNOME_DIALOG (iddialog->dialog),
-				 GTK_WINDOW (parent));
-
-	/* Create the vbox that we will pack the identity widget into */
-	dialog_vbox = GNOME_DIALOG (iddialog->dialog)->vbox;
-	gtk_widget_show (dialog_vbox);
-
-        /* Get the identity widget */
-	iddialog->page = identity_page_new (id);
-	gtk_box_pack_start (GTK_BOX (dialog_vbox), 
-			    iddialog->page->vbox, TRUE, TRUE, 0);
-
-	identity_page_set_undone_cb (iddialog->page, 
-				     iddialog_page_undone, 
-				     iddialog);
-	identity_page_set_done_cb (iddialog->page, 
-				   iddialog_page_done, 
-				   iddialog);
-	gtk_widget_show (iddialog->page->vbox);
-
-	/* Buttons */
-	area = GNOME_DIALOG (iddialog->dialog)->action_area;
-	gtk_widget_show (area);
-	gtk_button_box_set_layout (GTK_BUTTON_BOX (area), GTK_BUTTONBOX_END);
-	gtk_button_box_set_spacing (GTK_BUTTON_BOX (area), 8);
-
-	gnome_dialog_append_button (GNOME_DIALOG (iddialog->dialog), 
-				    GNOME_STOCK_BUTTON_OK);
-	gnome_dialog_append_button (GNOME_DIALOG (iddialog->dialog), 
-				    GNOME_STOCK_BUTTON_CANCEL);	
-
-	gnome_dialog_set_default (GNOME_DIALOG (iddialog->dialog), 0);
-	gnome_dialog_set_default (GNOME_DIALOG (iddialog->dialog), 1);
-	
-	gnome_dialog_set_sensitive (GNOME_DIALOG (iddialog->dialog), 0, FALSE);
-	
-	gnome_dialog_button_connect( GNOME_DIALOG (iddialog->dialog), 0,
-				     GTK_SIGNAL_FUNC (iddialog_ok_clicked),
-				     iddialog);
-
-	gnome_dialog_run_and_close (GNOME_DIALOG (iddialog->dialog));
-
-	returnid = iddialog->id;
-	g_free (iddialog);
-
-	return returnid;
-}
-
-/* Source Dialog */
-static void
-sdialog_page_undone (MailDialogServicePage *page, gpointer data)
-{
-	MailDialogSource *sdialog = (MailDialogSource *)data;
-
-	gnome_dialog_set_sensitive (GNOME_DIALOG (sdialog->dialog), 0, FALSE);
-}
-
-static void
-sdialog_page_done (MailDialogServicePage *page, gpointer data)
-{
-	MailDialogSource *sdialog = (MailDialogSource *)data;
-
-	gnome_dialog_set_sensitive (GNOME_DIALOG (sdialog->dialog), 0, TRUE);
-}
-
-static void
-sdialog_ok_clicked (GtkWidget *widget, MailDialogSource *sdialog) 
-{
-	g_return_if_fail (sdialog);
-	
-	sdialog->source = service_page_extract (sdialog->page->page);
-}
-
-static MailConfigService *
-source_dialog (MailConfigService *source, GtkWidget *parent)
-{
-	MailDialogSource *sdialog;
-	MailConfigService *returnsource;
-	GtkWidget *dialog_vbox, *area;
-	GSList *sources, *news, *transports;
-	gboolean new = !source;
-	
-	sdialog = g_new0 (MailDialogSource, 1);
-	sdialog->source = source;
-	
-	provider_list (&sources, &news, &transports);
-	
-	if (new)
-		sdialog->dialog = gnome_dialog_new (_("Edit Source"), NULL);
-	else
-		sdialog->dialog = gnome_dialog_new (_("Add Source"), NULL);
-
-	gtk_window_set_modal (GTK_WINDOW (sdialog->dialog), TRUE);
-	gtk_window_set_policy (GTK_WINDOW (sdialog->dialog), 
-			       TRUE, TRUE, FALSE);
-	gtk_window_set_default_size (GTK_WINDOW (sdialog->dialog), 380, 450);
-	gnome_dialog_set_parent (GNOME_DIALOG (sdialog->dialog),
-				 GTK_WINDOW (parent));
-
-	/* Create the vbox that we will pack the identity widget into */
-	dialog_vbox = GNOME_DIALOG (sdialog->dialog)->vbox;
-	gtk_widget_show (dialog_vbox);
-
-        /* Get the identity widget */
-	sdialog->page = source_page_new (sources);
-	if (!new)
-		service_page_set_url (sdialog->page->page, source);
-	gtk_box_pack_start (GTK_BOX (dialog_vbox), sdialog->page->vbox, 
-			    TRUE, TRUE, 0);
-
-	service_page_set_undone_cb (sdialog->page->page, 
-				    sdialog_page_undone, 
-				    sdialog);
-	service_page_set_done_cb (sdialog->page->page, 
-				  sdialog_page_done, 
-				  sdialog);
-	gtk_widget_show (sdialog->page->vbox);
-	
-	/* Buttons */
-	area = GNOME_DIALOG (sdialog->dialog)->action_area;
-	gtk_widget_show (area);
-	gtk_button_box_set_layout (GTK_BUTTON_BOX (area), GTK_BUTTONBOX_END);
-	gtk_button_box_set_spacing (GTK_BUTTON_BOX (area), 8);
-
-	gnome_dialog_append_button (GNOME_DIALOG (sdialog->dialog), 
-				    GNOME_STOCK_BUTTON_OK);
-	gnome_dialog_append_button (GNOME_DIALOG (sdialog->dialog), 
-				    GNOME_STOCK_BUTTON_CANCEL);	
-
-	gnome_dialog_set_default (GNOME_DIALOG (sdialog->dialog), 0);
-	gnome_dialog_set_default (GNOME_DIALOG (sdialog->dialog), 1);
-	
-	gnome_dialog_set_sensitive (GNOME_DIALOG (sdialog->dialog), 0, FALSE);
-	
-	gnome_dialog_button_connect(GNOME_DIALOG (sdialog->dialog), 0,
-				    GTK_SIGNAL_FUNC (sdialog_ok_clicked),
-				    sdialog);
-
-	gnome_dialog_run_and_close (GNOME_DIALOG (sdialog->dialog));
-
-	/* FIXME: */
-	returnsource = sdialog->source;
-	/*g_free (sdialog);*/
-
-	return returnsource;
-}
-
-/* News Dialog */
-static void
-ndialog_page_undone (MailDialogServicePage *page, gpointer data)
-{
-	MailDialogNews *ndialog = (MailDialogNews *)data;
-
-	gnome_dialog_set_sensitive (GNOME_DIALOG (ndialog->dialog), 0, FALSE);
-}
-
-static void
-ndialog_page_done (MailDialogServicePage *page, gpointer data)
-{
-	MailDialogNews *ndialog = (MailDialogNews *)data;
-
-	gnome_dialog_set_sensitive (GNOME_DIALOG (ndialog->dialog), 0, TRUE);
-}
-
-static void
-ndialog_ok_clicked (GtkWidget *widget, MailDialogNews *ndialog) 
-{
-	g_return_if_fail (ndialog);
-	
-	ndialog->source = service_page_extract (ndialog->page->page);
-}
-
-static MailConfigService *
-news_dialog (MailConfigService *source, GtkWidget *parent)
-{
-	MailDialogNews *ndialog;
-	MailConfigService *returnsource;
-	GtkWidget *dialog_vbox, *area;
-	GSList *sources, *news, *transports;
-	gboolean new = !source;
-	
-	ndialog = g_new0 (MailDialogNews, 1);
-	
-	provider_list (&sources, &news, &transports);
-	
-	if (new)
-		ndialog->dialog = gnome_dialog_new (_("Edit News Server"), NULL);
-	else
-		ndialog->dialog = gnome_dialog_new (_("Add News Server"), NULL);
-
-	gtk_window_set_modal (GTK_WINDOW (ndialog->dialog), TRUE);
-	gtk_window_set_policy (GTK_WINDOW (ndialog->dialog), 
-			       TRUE, TRUE, FALSE);
-	gtk_window_set_default_size (GTK_WINDOW (ndialog->dialog), 380, 450);
-	gnome_dialog_set_parent (GNOME_DIALOG (ndialog->dialog),
-				 GTK_WINDOW (parent));
-
-	/* Create the vbox that we will pack the identity widget into */
-	dialog_vbox = GNOME_DIALOG (ndialog->dialog)->vbox;
-	gtk_widget_show (dialog_vbox);
-
-        /* Get the identity widget */
-	ndialog->page = news_page_new (news);
-	service_page_set_url (ndialog->page->page, source);
-	gtk_box_pack_start (GTK_BOX (dialog_vbox), ndialog->page->vbox, 
-			    TRUE, TRUE, 0);
-
-	service_page_set_undone_cb (ndialog->page->page, 
-				    ndialog_page_undone, 
-				    ndialog);
-	service_page_set_done_cb (ndialog->page->page, 
-				  ndialog_page_done, 
-				  ndialog);
-	gtk_widget_show (ndialog->page->vbox);
-	
-	/* Buttons */
-	area = GNOME_DIALOG (ndialog->dialog)->action_area;
-	gtk_widget_show (area);
-	gtk_button_box_set_layout (GTK_BUTTON_BOX (area), GTK_BUTTONBOX_END);
-	gtk_button_box_set_spacing (GTK_BUTTON_BOX (area), 8);
-
-	gnome_dialog_append_button (GNOME_DIALOG (ndialog->dialog), 
-				    GNOME_STOCK_BUTTON_OK);
-	gnome_dialog_append_button (GNOME_DIALOG (ndialog->dialog), 
-				    GNOME_STOCK_BUTTON_CANCEL);	
-
-	gnome_dialog_set_default (GNOME_DIALOG (ndialog->dialog), 0);
-	gnome_dialog_set_default (GNOME_DIALOG (ndialog->dialog), 1);
-	
-	gnome_dialog_set_sensitive (GNOME_DIALOG (ndialog->dialog), 0, FALSE);
-	
-	gnome_dialog_button_connect(GNOME_DIALOG (ndialog->dialog), 0,
-				    GTK_SIGNAL_FUNC (ndialog_ok_clicked),
-				    ndialog);
-
-	gnome_dialog_run_and_close (GNOME_DIALOG (ndialog->dialog));
-
-	returnsource = ndialog->source;
-	g_free (ndialog);
-
-	return returnsource;
-}
-
-/* Mail configuration druid */
-static gboolean
-mail_druid_prepare (GnomeDruidPage *page, GnomeDruid *druid, gboolean *active)
-{
-	gnome_druid_set_buttons_sensitive (druid, TRUE, *active, TRUE);
-
-	return FALSE;
-}
-
-static void
-mail_druid_identity_undone (MailDialogIdentityPage *page, gpointer data)
-{
-	MailDruidDialog *dialog = (MailDruidDialog *) data;
-	
-	dialog->iddone = FALSE;
-	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
-					   TRUE, FALSE, TRUE);
-}
-
-static void
-mail_druid_identity_done (MailDialogIdentityPage *page, gpointer data)
-{
-	MailDruidDialog *dialog = (MailDruidDialog *) data;
-	
-	dialog->iddone = TRUE;
-	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
-					   TRUE, TRUE, TRUE);
-}
-
-static void
-mail_druid_source_undone (MailDialogServicePage *page, gpointer data)
-{
-	MailDruidDialog *dialog = (MailDruidDialog *) data;
-
-	dialog->sdone = FALSE;
-	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
-					   TRUE, FALSE, TRUE);
-}
-
-static void
-mail_druid_source_done (MailDialogServicePage *page, gpointer data)
-{
-	MailDruidDialog *dialog = (MailDruidDialog *) data;
-
-	dialog->sdone = TRUE;
-	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
-					   TRUE, TRUE, TRUE);
-}
-
-static void
-mail_druid_transport_undone (MailDialogServicePage *page, gpointer data)
-{
-	MailDruidDialog *dialog = (MailDruidDialog *) data;
-
-	dialog->tdone = FALSE;
-	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
-					   TRUE, FALSE, TRUE);
-}
-
-static void
-mail_druid_transport_done (MailDialogServicePage *page, gpointer data)
-{
-	MailDruidDialog *dialog = (MailDruidDialog *) data;
-
-	dialog->tdone = TRUE;
-	gnome_druid_set_buttons_sensitive (GNOME_DRUID (dialog->druid), 
-					   TRUE, TRUE, TRUE);
-}
-
-static void
-mail_druid_cancel (GnomeDruid *druid, GtkWindow *window)
-{
-	gtk_window_set_modal (window, FALSE);
-	gtk_widget_destroy (GTK_WIDGET (window));
-	gtk_main_quit ();
-}
-
-static void
-mail_druid_finish (GnomeDruidPage *page, GnomeDruid *druid, 
-		   MailDruidDialog *dialog)
-{
-	MailConfigIdentity *id;
-	MailConfigService *source;
-	
-	clear_config ();
-
-	/* Identity */
-	id = identity_page_extract (dialog->idpage);
-	config->ids = g_slist_append (config->ids, id);
-
-	/* Source */
-	source = service_page_extract (dialog->spage->page);
-	config->sources = g_slist_append (config->sources, source);
-	
-	/* Transport */
-	config->transport = service_page_extract (dialog->tpage->page);
-
-	write_config ();
-	
-	mail_druid_cancel (druid, GTK_WINDOW (dialog->dialog));
-}
-
-void
-mail_config_druid (void)
-{
-	MailDruidDialog *dialog;
-	GnomeDruidPageStart *spage;
-	GnomeDruidPageFinish *fpage;
-	GnomeDruidPageStandard *dpage;
-	GSList *sources, *news, *transports;
-	GdkImlibImage *mail_logo, *identity_logo;
-	GdkImlibImage *source_logo, *transport_logo;
-
-	read_config ();
-	provider_list (&sources, &news, &transports);
-
-	mail_logo = load_image ("evolution-inbox.png");
-	identity_logo = load_image ("malehead.png");
-	source_logo = mail_logo;
-	transport_logo = load_image ("envelope.png");
-
-	dialog = g_new0 (MailDruidDialog, 1);
-	dialog->gui = glade_xml_new (EVOLUTION_GLADEDIR 
-				     "/mail-config-druid.glade", NULL);
-	dialog->dialog = glade_xml_get_widget (dialog->gui, "dialog");
-	dialog->druid = glade_xml_get_widget (dialog->gui, "druid");
-
-	/* Cancel button */
-	gtk_signal_connect (GTK_OBJECT (dialog->druid), "cancel", 
-			    GTK_SIGNAL_FUNC (mail_druid_cancel), 
-			    dialog->dialog);
-
-	/* Start page */
-	spage = GNOME_DRUID_PAGE_START (glade_xml_get_widget (dialog->gui, "startpage"));
-	gnome_druid_page_start_set_logo (spage, mail_logo);
-	
-	/* Identity page */
-	dpage = GNOME_DRUID_PAGE_STANDARD (glade_xml_get_widget (dialog->gui, "standardpage1"));
-	gnome_druid_page_standard_set_logo (dpage, identity_logo);
-
-	dialog->idpage = identity_page_new (NULL);
-	gtk_box_pack_start (GTK_BOX (dpage->vbox), 
-			    dialog->idpage->vbox, 
-			    TRUE, TRUE, 0);
-
-	identity_page_set_undone_cb (dialog->idpage, 
-				     mail_druid_identity_undone, 
-				     dialog);
-	identity_page_set_done_cb (dialog->idpage, 
-				   mail_druid_identity_done, 
-				   dialog);
-	gtk_signal_connect (GTK_OBJECT (dpage), "prepare", 
-			    GTK_SIGNAL_FUNC (mail_druid_prepare), 
-			    &dialog->iddone);
-	gtk_widget_show (dialog->idpage->vbox);
-
-	/* Source page */
-	dpage = GNOME_DRUID_PAGE_STANDARD (glade_xml_get_widget (dialog->gui, "standardpage2"));
-	gnome_druid_page_standard_set_logo (dpage, source_logo);
-
-	dialog->spage = source_page_new (sources);
-	gtk_box_pack_start (GTK_BOX (dpage->vbox), 
-			    dialog->spage->vbox, 
-			    TRUE, TRUE, 0);
-
-	service_page_set_done_cb (dialog->spage->page, 
-				  mail_druid_source_done, 
-				  dialog);
-	service_page_set_undone_cb (dialog->spage->page, 
-				    mail_druid_source_undone, 
-				    dialog);
-	gtk_signal_connect (GTK_OBJECT (dpage), "prepare", 
-			    GTK_SIGNAL_FUNC (mail_druid_prepare), 
-			    &dialog->sdone);
-	gtk_widget_show (dialog->spage->vbox);
-
-	/* Transport page */
-	dpage = GNOME_DRUID_PAGE_STANDARD (glade_xml_get_widget (dialog->gui, "standardpage3"));
-	gnome_druid_page_standard_set_logo (dpage, transport_logo);
-
-	dialog->tpage = transport_page_new (transports);
-	gtk_box_pack_start (GTK_BOX (dpage->vbox), 
-			    dialog->tpage->vbox, 
-			    TRUE, TRUE, 0);
-
-	service_page_set_undone_cb (dialog->tpage->page, 
-				    mail_druid_transport_undone, 
-				    dialog);
-	service_page_set_done_cb (dialog->tpage->page, 
-				  mail_druid_transport_done, 
-				  dialog);
-	gtk_signal_connect (GTK_OBJECT (dpage), "prepare", 
-			    GTK_SIGNAL_FUNC (mail_druid_prepare), 
-			    &dialog->tdone);
-	gtk_widget_show (dialog->tpage->vbox);
-
-
-	/* Finish page */
-	fpage = GNOME_DRUID_PAGE_FINISH (glade_xml_get_widget (dialog->gui, "finishpage"));
-	gnome_druid_page_finish_set_logo (fpage, mail_logo);
-
-	gtk_signal_connect (GTK_OBJECT (fpage), "finish",
-			    GTK_SIGNAL_FUNC (mail_druid_finish),
-			    dialog);
-
-	gtk_main ();
-}
-
-/* Main configuration dialog */
-static void
-identities_select_row (GtkWidget *widget, gint row, gint column,
-		       GdkEventButton *event, MailDialog *dialog)
-{
-	dialog->idrow = row;
-}
-
-static void
-identities_add_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	MailConfigIdentity *id;
-
-	id = identity_dialog (NULL, dialog->dialog);
-	if (id) {
-		GtkWidget *clist = dialog->clistIdentities;
-		gchar *text[4];
-		gint row = 0;
-		
-		text[0] = id->name;
-		text[1] = id->address;
-		text[2] = id->org;
-		text[3] = id->sig;
-
-		row = gtk_clist_append (GTK_CLIST (clist), text);
-		gtk_clist_set_row_data (GTK_CLIST (clist), row, id);
-		gtk_clist_select_row (GTK_CLIST (clist), row, 0);
-		dialog->maxidrow++;
-
-		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-	}
-}
-
-static void
-identities_edit_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	MailConfigIdentity *id, *id2;
-
-	if (dialog->idrow < 0)
-		return;
-	
-	id = gtk_clist_get_row_data (GTK_CLIST (dialog->clistIdentities), 
-				     dialog->idrow);
-	
-	id2 = identity_dialog (id, dialog->dialog);
-	if (id2) {
-		GtkCList *clist = GTK_CLIST (dialog->clistIdentities);
-	
-		gtk_clist_set_text (clist, dialog->idrow, 0, id2->name);
-		gtk_clist_set_text (clist, dialog->idrow, 1, id2->address);
-		gtk_clist_set_text (clist, dialog->idrow, 2, id2->org);
-		gtk_clist_set_text (clist, dialog->idrow, 3, id2->sig);
-	
-		gtk_clist_set_row_data (clist, dialog->idrow, id2);
-		identity_destroy (id);
-
-		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-	}
-}
-
-static void
-identities_delete_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	GtkCList *clist;
-	
-	if (dialog->idrow == -1)
-		return;
-
-	clist = GTK_CLIST (dialog->clistIdentities);
-	
-	gtk_clist_remove (clist, dialog->idrow);
-	dialog->maxidrow--;
-
-	if (dialog->idrow > dialog->maxidrow)
-		gtk_clist_select_row (clist, dialog->maxidrow, 0);
-	else
-		gtk_clist_select_row (clist, dialog->idrow, 0);
-
-	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-}
-
-static void
-sources_select_row (GtkWidget *widget, gint row, gint column,
-		    GdkEventButton *event, MailDialog *dialog)
-{
-	dialog->srow = row;
-}
-
-static void
-sources_add_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	MailConfigService *source;
-
-	source = source_dialog (NULL, dialog->dialog);
-	if (source) {
-		GtkCList *clist = GTK_CLIST (dialog->clistSources);
-		gchar *text[1];
-		gint row = 0;
-		
-		text[0] = source->url;
-		
-		row = gtk_clist_append (clist, text);
-		gtk_clist_set_row_data (clist, row, source);
-		gtk_clist_select_row (clist, row, 0);
-		dialog->maxsrow++;
-		
-		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-	}
-}
-
-static void
-sources_edit_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	MailConfigService *source, *source2;
-
-	if (dialog->srow < 0)
-		return;
-
-	source = gtk_clist_get_row_data (GTK_CLIST (dialog->clistSources),
-					 dialog->srow);
-	
-	source2 = source_dialog (source, dialog->dialog);
-	if (source2) {
-		GtkCList *clist = GTK_CLIST (dialog->clistSources);
-		
-		gtk_clist_set_text (clist, dialog->srow, 0, source2->url);
-		gtk_clist_set_row_data (clist, dialog->srow, source2);
-		service_destroy (source);
-
-		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-	}
-}
-
-static void
-sources_delete_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	GtkCList *clist;
-	
-	if (dialog->srow == -1)
-		return;
-	
-	clist = GTK_CLIST (dialog->clistSources);
-
-	gtk_clist_remove (clist, dialog->srow);
-	dialog->maxsrow--;
-
-	if (dialog->srow > dialog->maxsrow)
-		gtk_clist_select_row (clist, dialog->maxsrow, 0);
-	else
-		gtk_clist_select_row (clist, dialog->srow, 0);
-
-	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-}
-
-static void
-news_select_row (GtkWidget *widget, gint row, gint column,
-		 GdkEventButton *event, MailDialog *dialog)
-{
-	dialog->nrow = row;
-}
-
-static void
-news_add_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	MailConfigService *news;
-
-	news = news_dialog (NULL, dialog->dialog);
-	if (news) {
-		GtkCList *clist = GTK_CLIST (dialog->clistNewsServers);
-		gchar *text[1];
-		gint row = 0;
-		
-		text[0] = news->url;
-
-		row = gtk_clist_append (clist, text);
-		gtk_clist_set_row_data (clist, row, news);
-		gtk_clist_select_row (clist, row, 0);
-		dialog->maxsrow++;
-		
-		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-	}
-}
-
-static void
-news_edit_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	MailConfigService *news, *news2;
-
-	if (dialog->srow < 0)
-		return;
-
-	news = gtk_clist_get_row_data (GTK_CLIST (dialog->clistNewsServers),
-				       dialog->srow);
-	
-	news2 = source_dialog (news, dialog->dialog);
-	if (news2) {
-		GtkCList *clist = GTK_CLIST (dialog->clistNewsServers);
-		
-		gtk_clist_set_text (clist, dialog->nrow, 0, news2->url);
-		gtk_clist_set_row_data (clist, dialog->nrow, news2);
-		service_destroy (news);
-
-		gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-	}
-}
-
-static void
-news_delete_clicked (GtkWidget *widget, MailDialog *dialog)
-{
-	GtkCList *clist;
-	
-	if (dialog->nrow == -1)
-		return;
-	
-	clist = GTK_CLIST (dialog->clistNewsServers);
-
-	gtk_clist_remove (clist, dialog->nrow);
-	dialog->maxnrow--;
-
-	if (dialog->nrow > dialog->maxnrow)
-		gtk_clist_select_row (clist, dialog->maxnrow, 0);
-	else
-		gtk_clist_select_row (clist, dialog->nrow, 0);
-
-	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-}
-
-static void
-mail_config_tpage_changed (MailDialogServicePage *page, gpointer data)
-{
-	MailDialog *dialog = (MailDialog *)data;
-
-	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-}
-
-static void
-mail_config_tpage_done (MailDialogServicePage *page, gpointer data)
-{
-	MailDialog *dialog = (MailDialog *)data;
-	
-	dialog->tpagedone = TRUE;
-}
-
-static void
-format_toggled (GtkWidget *widget, MailDialog *dialog)
-{
-	gnome_property_box_changed (GNOME_PROPERTY_BOX (dialog->dialog));
-}
-
-static void
-mail_config_apply_clicked (GnomePropertyBox *property_box, gint page_num,
-			   MailDialog *dialog)
-{
-	gpointer data;
-	int i;
-	
-	if (page_num != -1)
-		return;
-
-	clear_config ();
-
-	/* Identities */
-	for (i = 0; i <= dialog->maxidrow; i++) {	
-		data = gtk_clist_get_row_data (GTK_CLIST (dialog->clistIdentities), i);
-		config->ids = g_slist_append (config->ids, data);
-	}
-
-	/* Sources */
-	for (i = 0; i <= dialog->maxsrow; i++) {	
-		data = gtk_clist_get_row_data (GTK_CLIST (dialog->clistSources), i);
-		config->sources = g_slist_append (config->sources, data);
-	}
-
-	/* Transport */
-	config->transport = service_page_extract (dialog->page->page);
-	
-	/* Format */
-	config->send_html = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (dialog->chkFormat));
-
-	write_config ();
-}
-
-void
-mail_config (void)
-{
-	MailDialog *dialog;
-	GladeXML *gui;
-	GtkCList *clist;
-	GtkWidget *button, *tvbox;
-	GSList *sources, *news, *transports;
-	gint len, row;
-
-	read_config ();
-	provider_list (&sources, &news, &transports);
-
-	dialog = g_new0 (MailDialog, 1);	
-	gui = glade_xml_new (EVOLUTION_GLADEDIR "/mail-config.glade", NULL);
-
-	dialog->dialog = glade_xml_get_widget (gui, "dialog");
-	dialog->notebook = glade_xml_get_widget (gui, "notebook");
-	
-	/* Identities Page */
-	dialog->clistIdentities = 
-		glade_xml_get_widget (gui, "clistIdentities");
-	clist = GTK_CLIST (dialog->clistIdentities);
-	gtk_clist_set_column_width (clist, 0, 80);
-
-	len = g_slist_length (config->ids);	
-	for (row = 0; row < len; row++) {
-		MailConfigIdentity *id;
-		gchar *text[4];
-		
-		id = identity_copy ((MailConfigIdentity *)
-				    g_slist_nth_data (config->ids, row));
-		
-		text[0] = id->name;
-		text[1] = id->address;
-		text[2] = id->org;
-		text[3] = id->sig;
-		
-	 	gtk_clist_append (clist, text);
-		gtk_clist_set_row_data (clist, row, id);
-	}
-
-	dialog->maxidrow = len - 1;
-	dialog->idrow = -1;
-	gtk_signal_connect (GTK_OBJECT (clist), "select_row",
-			    GTK_SIGNAL_FUNC (identities_select_row),
-			    dialog);
-
-	button = glade_xml_get_widget (gui, "cmdIdentitiesAdd");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (identities_add_clicked),
-			    dialog);
-	button = glade_xml_get_widget (gui, "cmdIdentitiesEdit");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (identities_edit_clicked),
-			    dialog);
-	button = glade_xml_get_widget (gui, "cmdIdentitiesDelete");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (identities_delete_clicked),
-			    dialog);
-
-	/* Sources Page */
-	dialog->clistSources = glade_xml_get_widget (gui, "clistSources");
-	clist = GTK_CLIST (dialog->clistSources);
-	gtk_clist_set_column_width (clist, 0, 80);
-
-	len = g_slist_length (config->sources);	
-	for (row = 0; row < len; row++) {
-		MailConfigService *source;
-		gchar *text[1];
-		
-		source = service_copy ((MailConfigService *)g_slist_nth_data (config->sources, row));
-		
-		text[0] = source->url;
-
-	 	gtk_clist_append (clist, text);
-		gtk_clist_set_row_data (clist, row, source);
-	}
-
-	dialog->maxsrow = len - 1;
-	dialog->srow = -1;
-	gtk_signal_connect (GTK_OBJECT (clist), "select_row",
-			    GTK_SIGNAL_FUNC (sources_select_row),
-			    dialog);
-
-	button = glade_xml_get_widget (gui, "cmdSourcesAdd");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (sources_add_clicked),
-			    dialog);
-	button = glade_xml_get_widget (gui, "cmdSourcesEdit");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (sources_edit_clicked),
-			    dialog);
-	button = glade_xml_get_widget (gui, "cmdSourcesDelete");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (sources_delete_clicked),
-			    dialog);
-
-	/* News Page */
-	dialog->clistNewsServers = glade_xml_get_widget (gui, "clistNewsServers");
-	clist = GTK_CLIST (dialog->clistNewsServers);
-	gtk_clist_set_column_width (clist, 0, 80);
-
-	len = g_slist_length (config->news);	
-	for (row=0; row<len; row++) {
-		MailConfigService *news;
-		gchar *text[1];
-		
-		news = service_copy ((MailConfigService *)
-				     g_slist_nth_data (config->news, row));
-		
-		text[0] = news->url;
-
-	 	gtk_clist_append (clist, text);
-		gtk_clist_set_row_data (clist, row, news);
-	}
-
-	dialog->maxnrow = len - 1;
-	dialog->nrow = -1;
-	gtk_signal_connect (GTK_OBJECT (clist), "select_row",
-			    GTK_SIGNAL_FUNC (news_select_row),
-			    dialog);
-
-	button = glade_xml_get_widget (gui, "cmdNewsServersAdd");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (news_add_clicked),
-			    dialog);
-	button = glade_xml_get_widget (gui, "cmdNewsServersEdit");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (news_edit_clicked),
-			    dialog);
-	button = glade_xml_get_widget (gui, "cmdNewsServersDelete");
-	gtk_signal_connect (GTK_OBJECT (button), "clicked",
-			    GTK_SIGNAL_FUNC (news_delete_clicked),
-			    dialog);
-
-	/* Transport Page */
-	tvbox = glade_xml_get_widget (gui, "transport_vbox");
-	dialog->page = transport_page_new (transports);
-	service_page_set_url (dialog->page->page, config->transport);
-	service_page_set_changed_cb (dialog->page->page,
-				     mail_config_tpage_changed, dialog);
-	service_page_set_done_cb (dialog->page->page, 
-				  mail_config_tpage_done, dialog);
-	gtk_box_pack_start (GTK_BOX (tvbox), 
-			    dialog->page->vbox, TRUE, TRUE, 0);
-	gtk_widget_show (dialog->page->vbox);
-	
-	/* Other Page */
-	dialog->chkFormat = glade_xml_get_widget (gui, "chkFormat");
-	gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (dialog->chkFormat), 
-				      config->send_html);
-	gtk_signal_connect (GTK_OBJECT (dialog->chkFormat), "toggled",
-			    GTK_SIGNAL_FUNC (format_toggled),
-			    dialog);
-
-	/* Listen for apply signal */
-	gtk_signal_connect (GTK_OBJECT (dialog->dialog), "apply",
-			    GTK_SIGNAL_FUNC (mail_config_apply_clicked),
-			    dialog);
-
-	gnome_dialog_run (GNOME_DIALOG (dialog->dialog));
-
-	/* Clean up */
-	gtk_object_unref (GTK_OBJECT (gui));
-	g_free (dialog);
-}
-
-const MailConfig *
+MailConfig *
 mail_config_fetch (void)
 {
-	read_config ();
-	
 	return config;
 }
-
-
diff --git a/mail/mail-config.h b/mail/mail-config.h
index 6bd5532110..8e8c641d66 100644
--- a/mail/mail-config.h
+++ b/mail/mail-config.h
@@ -46,9 +46,31 @@ typedef struct
 	gboolean send_html;
 } MailConfig;
 
-void mail_config (void);
-void mail_config_druid (void);
+/* Identities */
+MailConfigIdentity *identity_copy (MailConfigIdentity *id);
+void identity_destroy (MailConfigIdentity *id);
+void identity_destroy_each (gpointer item, gpointer data);
 
-const MailConfig *mail_config_fetch (void);
+/* Services */
+MailConfigService *service_copy (MailConfigService *source);
+void service_destroy (MailConfigService *source);
+void service_destroy_each (gpointer item, gpointer data);
+
+/* Configuration */
+void mail_config_init (void);
+void mail_config_clear (void);
+void mail_config_read (void);
+void mail_config_write (void);
+
+/* Accessor functions */
+gboolean mail_config_is_configured ();
+MailConfigIdentity *mail_config_get_default_identity (void);
+MailConfigService *mail_config_get_default_source (void);
+MailConfigService *mail_config_get_transport (void);
+gboolean mail_config_send_html ();
+
+MailConfig *mail_config_fetch (void);
 
 #endif
+
+
diff --git a/mail/mail-ops.c b/mail/mail-ops.c
index 68edde98ff..2d94a94da2 100644
--- a/mail/mail-ops.c
+++ b/mail/mail-ops.c
@@ -103,17 +103,12 @@ async_mail_exception_dialog (char *head, CamelException *ex, gpointer unused )
 static gboolean
 check_configured (void)
 {
-	const MailConfig *config;
-
-	config = mail_config_fetch ();
-	if (config->configured)
+	if (mail_config_is_configured ())
 		return TRUE;
 	
 	mail_config_druid ();
 
-	config = mail_config_fetch ();
-
-	return config->configured;
+	return mail_config_is_configured ();
 }
 
 static void
@@ -361,19 +356,15 @@ real_fetch_mail (gpointer user_data)
 void
 fetch_mail (GtkWidget *button, gpointer user_data)
 {
-	const MailConfig *config;
-	const MailConfigService *source;
+	MailConfigService *source;
 	char *url = NULL;
 	rfm_t *info;
 
 	if (!check_configured ())
 		return;
 
-	config = mail_config_fetch ();
-	if (config->sources) {
-		source = (MailConfigService *)config->sources->data;
-		url = source->url;
-	}
+	source = mail_config_get_default_source ();
+	url = source->url;
 	
 	if (!url) {
 		GtkWidget *win = gtk_widget_get_ancestor (GTK_WIDGET (user_data),
@@ -507,7 +498,6 @@ cleanup_send_mail (gpointer userdata)
 static void
 composer_send_cb (EMsgComposer *composer, gpointer data)
 {
-	const MailConfig *config;
 	const MailConfigIdentity *id = NULL; 
 	static CamelTransport *transport = NULL;
 	struct post_send_data *psd = data;
@@ -520,9 +510,9 @@ composer_send_cb (EMsgComposer *composer, gpointer data)
 
 	ex = camel_exception_new ();
 
-	config = mail_config_fetch ();
+	id = mail_config_get_default_identity ();
 	
-	if (!check_configured() || !config->ids) {
+	if (!check_configured() || !id) {
 		GtkWidget *message;
 
 		message = gnome_warning_dialog_parented (_("You need to configure an identity\n"
@@ -536,9 +526,6 @@ composer_send_cb (EMsgComposer *composer, gpointer data)
 	if (!from) {
 		CamelInternetAddress *ciaddr;
 
-		if (config->ids->data) {
-			id = (MailConfigIdentity *)config->ids->data;
-		}
 		g_assert (id);
 		
 		name = id->name;
@@ -554,9 +541,11 @@ composer_send_cb (EMsgComposer *composer, gpointer data)
 	}
 
 	if (!transport) {
+		MailConfigService *t;
 		char *url;
 
-		url = config->transport->url;
+		t = mail_config_get_transport ();
+		url = t->url;
 		g_assert (url);
 
 		transport = camel_session_get_transport (session, url, ex);
@@ -606,15 +595,15 @@ free_psd (GtkWidget *composer, gpointer user_data)
 static GtkWidget *
 create_msg_composer (const char *url)
 {
-	const MailConfig *config;
+	MailConfigIdentity *id;
+	gboolean send_html;
 	gchar *sig_file = NULL;
 	GtkWidget *composer_widget;
 
-	config = mail_config_fetch ();
-	if (config->ids) {
-		const MailConfigIdentity *id;
-		
-		id = (MailConfigIdentity *)config->ids->data;
+	id = mail_config_get_default_identity ();
+	send_html = mail_config_send_html ();
+	
+	if (id) {
 		sig_file = id->sig;
 	}
 	
@@ -624,7 +613,7 @@ create_msg_composer (const char *url)
 		composer_widget = e_msg_composer_new_with_sig_file (sig_file);
 
 	e_msg_composer_set_send_html (E_MSG_COMPOSER (composer_widget), 
-				      config->send_html);
+				      send_html);
 
 	return composer_widget;
 }
diff --git a/mail/mail.h b/mail/mail.h
index 7f71be9c43..bb28ae1e15 100644
--- a/mail/mail.h
+++ b/mail/mail.h
@@ -22,6 +22,7 @@
 #include "camel/camel.h"
 #include "composer/e-msg-composer.h"
 #include "mail-config.h"
+#include "mail-config-gui.h"
 #include "folder-browser.h"
 
 /* FIXME FIXME FIXME this sucks sucks sucks sucks */
diff --git a/mail/main.c b/mail/main.c
index 5c0bb0e410..f1d89b72b2 100644
--- a/mail/main.c
+++ b/mail/main.c
@@ -53,6 +53,8 @@ main (int argc, char *argv [])
 
 	glade_gnome_init ();
 
+	mail_config_init ();
+	
 	session_init ();
 	e_cursors_init ();