evolution/mail/folder-browser.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * folder-browser.c: Folder browser top level component
 *
 * Author:
 *   Miguel de Icaza (miguel@kernel.org)
 *
 * (C) 2000, 2001 Ximian, Inc.
 */
#include <config.h>
#include <ctype.h>
#include <gnome.h>
#include "e-util/e-sexp.h"
#include "folder-browser.h"
#include "mail.h"
#include "mail-callbacks.h"
#include "mail-tools.h"
#include "message-list.h"
#include "mail-ops.h"
#include "mail-vfolder.h"
#include "mail-autofilter.h"
#include "mail-mlist-magic.h"
#include "mail-mt.h"

#include <gal/util/e-util.h>
#include <gal/widgets/e-unicode.h>
#include <gal/e-paned/e-vpaned.h>

#include "filter/vfolder-rule.h"
#include "filter/vfolder-context.h"
#include "filter/filter-option.h"
#include "filter/filter-input.h"

#include "mail-search-dialogue.h"

#include "mail-local.h"
#include "mail-config.h"

#include <gal/widgets/e-popup-menu.h>

#define d(x) x

#define PARENT_TYPE (gtk_table_get_type ())

static void fb_resize_cb (GtkWidget *w, GtkAllocation *a);

static GtkObjectClass *folder_browser_parent_class;

static void
folder_browser_destroy (GtkObject *object)
{
	FolderBrowser *folder_browser;
	CORBA_Environment ev;
	
	folder_browser = FOLDER_BROWSER (object);
	
	CORBA_exception_init (&ev);
	
	if (folder_browser->search_full)
		gtk_object_unref (GTK_OBJECT (folder_browser->search_full));
	
	if (folder_browser->shell != CORBA_OBJECT_NIL)
		CORBA_Object_release (folder_browser->shell, &ev);
	
	g_free (folder_browser->uri);
	
	if (folder_browser->folder) {
		mail_sync_folder (folder_browser->folder, NULL, NULL);
		camel_object_unref (CAMEL_OBJECT (folder_browser->folder));
	}
	
	if (folder_browser->message_list)
		gtk_widget_destroy (GTK_WIDGET (folder_browser->message_list));
	
	if (folder_browser->mail_display)
		gtk_widget_destroy (GTK_WIDGET (folder_browser->mail_display));
	
	CORBA_exception_free (&ev);
	
	folder_browser_parent_class->destroy (object);
}

static void
folder_browser_class_init (GtkObjectClass *object_class)
{
	object_class->destroy = folder_browser_destroy;
	
	folder_browser_parent_class = gtk_type_class (PARENT_TYPE);
}

/*
 * static gboolean
 * folder_browser_load_folder (FolderBrowser *fb, const char *name)
 * {
 * 	CamelFolder *new_folder;
 * 
 * 	new_folder = mail_tool_uri_to_folder_noex (name);
 * 
 * 	if (!new_folder)
 * 		return FALSE;
 * 
 * 	if (fb->folder)
 * 		camel_object_unref (CAMEL_OBJECT (fb->folder));
 * 	fb->folder = new_folder;
 * 	message_list_set_folder (fb->message_list, new_folder);
 * 	return TRUE;
 * }
 */

static void
update_unread_count_main(CamelObject *object, gpointer event_data, gpointer user_data)
{
	CamelFolder *folder = (CamelFolder *)object;
	FolderBrowser *fb = user_data;
	EvolutionStorage *storage;
	char *name;

	storage = mail_lookup_storage (folder->parent_store);

	if (fb->unread_count == 0)
		name = g_strdup (camel_folder_get_name (folder));
	else
		name = g_strdup_printf ("%s (%d)", camel_folder_get_name (folder), fb->unread_count);

	evolution_storage_update_folder_by_uri (storage, fb->uri, name, fb->unread_count != 0);
	g_free (name);
	gtk_object_unref (GTK_OBJECT (storage));
}

static void
update_unread_count(CamelObject *object, gpointer event_data, gpointer user_data)
{
	CamelFolder *folder = (CamelFolder *)object;
	FolderBrowser *fb = user_data;
	int unread;

	unread = camel_folder_get_unread_message_count (folder);
	if (unread == fb->unread_count)
		return;
	fb->unread_count = unread;
	mail_proxy_event (update_unread_count_main, object, event_data, user_data);
}

static void
got_folder(char *uri, CamelFolder *folder, void *data)
{
	FolderBrowser *fb = data;
	EvolutionStorage *storage;

	printf("got folder '%s' = %p\n", uri, folder);

	if (fb->folder == folder)
		goto done;

	if (fb->folder)
		camel_object_unref((CamelObject *)fb->folder);
	g_free(fb->uri);
	fb->uri = g_strdup(uri);
	fb->folder = folder;

	if (folder == NULL)
		goto done;

	camel_object_ref((CamelObject *)folder);

	if ((storage = mail_lookup_storage (folder->parent_store))) {
		gtk_object_unref (GTK_OBJECT (storage));
		fb->unread_count = camel_folder_get_unread_message_count (folder);
		update_unread_count_main ((CamelObject *)folder, NULL, fb);
		camel_object_hook_event ((CamelObject *)folder, "message_changed",
					 update_unread_count, fb);
		camel_object_hook_event ((CamelObject *)folder, "folder_changed",
					 update_unread_count, fb);
	}

	gtk_widget_set_sensitive (GTK_WIDGET (fb->search->entry),
				  camel_folder_has_search_capability (folder));
	gtk_widget_set_sensitive (GTK_WIDGET (fb->search->option),
				  camel_folder_has_search_capability (folder));
	message_list_set_threaded(fb->message_list, mail_config_get_thread_list());
	message_list_set_folder(fb->message_list, folder);
done:
	gtk_object_unref((GtkObject *)fb);

	/* Sigh, i dont like this (it can be set in reconfigure folder),
	   but its just easier right now to do it this way */
	fb->reconfigure = FALSE;
}

gboolean
folder_browser_set_uri (FolderBrowser *folder_browser, const char *uri)
{
	if (uri && *uri) {
		gtk_object_ref((GtkObject *)folder_browser);
		mail_get_folder(uri, got_folder, folder_browser);
	} else {
		/* Sigh, i dont like this (it can be set in reconfigure folder),
		   but its just easier right now to do it this way */
		folder_browser->reconfigure = FALSE;
	}

	return TRUE;
}

void
folder_browser_set_message_preview (FolderBrowser *folder_browser, gboolean show_message_preview)
{
	if (folder_browser->preview_shown == show_message_preview)
		return;

	g_warning ("FIXME: implement me");
}

enum {
	ESB_SHOW_ALL,
	ESB_ADVANCED,
	ESB_SAVE,
};

static ESearchBarItem folder_browser_search_menu_items[] = {
	{ N_("Show All"),         	  ESB_SHOW_ALL },
	{ NULL,                   	  0            },
	{ N_("Advanced..."),      	  ESB_ADVANCED },
	{ NULL,                   	  0            },
	{ N_("Store search as vFolder"),  ESB_SAVE     },
	{ NULL,                           -1           }
};

enum {
	ESB_BODY_SUBJECT_CONTAINS,
	ESB_BODY_CONTAINS,
	ESB_SUBJECT_CONTAINS,
	ESB_BODY_DOES_NOT_CONTAIN,
	ESB_SUBJECT_DOES_NOT_CONTAIN,
	ESB_SENDER_CONTAINS,
};

static ESearchBarItem folder_browser_search_option_items[] = {
	{ N_("Body or subject contains"), ESB_BODY_SUBJECT_CONTAINS    },
	{ N_("Body contains"),            ESB_BODY_CONTAINS            },
        { N_("Subject contains"),         ESB_SUBJECT_CONTAINS         },
	{ N_("Body does not contain"),    ESB_BODY_DOES_NOT_CONTAIN    },
	{ N_("Subject does not contain"), ESB_SUBJECT_DOES_NOT_CONTAIN },
	{ N_("Sender contains"),          ESB_SENDER_CONTAINS          },
	{ NULL,                           -1                           }
};

/* NOTE: If this is changed, then change the search_save() function to match! */
/* %s is replaced by the whole search string in quotes ...
   possibly could split the search string into words as well ? */
static char *search_string[] = {
	"(or (body-contains %s) (match-all (header-contains \"Subject\" %s)))",
	"(body-contains %s)",
	"(match-all (header-contains \"Subject\" %s))",
	"(match-all (not (body-contains %s)))",
	"(match-all (not (header-contains \"Subject\" %s)))",
	"(match-all (header-contains \"from\" %s))",
};

static void
search_full_clicked (MailSearchDialogue *msd, guint button, FolderBrowser *fb)
{
	char *query;
	
	switch (button) {
	case 0:			/* 'ok' */
	case 1:			/* 'search' */
		query = mail_search_dialogue_get_query (msd);
		message_list_set_search (fb->message_list, query);
		g_free (query);
		
		/* save the search as well */
		if (fb->search_full)
			gtk_object_unref (GTK_OBJECT (fb->search_full));
		
		fb->search_full = msd->rule;
		
		gtk_object_ref (GTK_OBJECT (fb->search_full));
		if (button == 0)
			gnome_dialog_close (GNOME_DIALOG (msd));
		break;
	case 2:			/* 'cancel' */
		gnome_dialog_close (GNOME_DIALOG (msd));
	case -1:		/* dialogue closed */
		message_list_set_search (fb->message_list, 0);
		/* reset the search buttons state */
		gtk_menu_set_active (GTK_MENU (GTK_OPTION_MENU (fb->search->option)->menu), 0);
		gtk_widget_set_sensitive (fb->search->entry, TRUE);
		break;
	}
}

/* bring up the 'full search' dialogue and let the user use that to search with */
static void
search_full (GtkWidget *w, FolderBrowser *fb)
{
	MailSearchDialogue *msd;
	
	gtk_widget_set_sensitive (fb->search->entry, FALSE);
	
	msd = mail_search_dialogue_new_with_rule (fb->search_full);
	gtk_signal_connect (GTK_OBJECT (msd), "clicked", search_full_clicked, fb);
	gtk_widget_show (GTK_WIDGET (msd));
}

static void
search_save (GtkWidget *w, FolderBrowser *fb)
{
	char *text;
	FilterElement *element;
	VfolderRule *rule;
	FilterPart *part;
	int index;
	
	text = e_utf8_gtk_entry_get_text (GTK_ENTRY (fb->search->entry));
	
	index = fb->search->option_choice;
	
	if (text == NULL || text[0] == 0) {
		g_free (text);
		return;
	}
	
	rule = vfolder_rule_new ();
	((FilterRule *)rule)->grouping = FILTER_GROUP_ANY;
	vfolder_rule_add_source (rule, fb->uri);
	filter_rule_set_name ((FilterRule *)rule, text);
	
	switch (index) {
	default:
		/* header or body contains */
		index = ESB_BODY_SUBJECT_CONTAINS;
	case ESB_BODY_CONTAINS:
	case ESB_SUBJECT_CONTAINS:
		if (index == ESB_BODY_SUBJECT_CONTAINS || index == ESB_BODY_CONTAINS) {
			part = vfolder_create_part ("body");
			filter_rule_add_part ((FilterRule *)rule, part);
			element = filter_part_find_element (part, "body-type");
			filter_option_set_current ((FilterOption *)element, "contains");
			element = filter_part_find_element (part, "word");
			filter_input_set_value ((FilterInput *)element, text);
		}
		
		if (index == ESB_BODY_SUBJECT_CONTAINS || index == ESB_SUBJECT_CONTAINS) {
			part = vfolder_create_part ("subject");
			filter_rule_add_part ((FilterRule *)rule, part);
			element = filter_part_find_element (part, "subject-type");
			filter_option_set_current ((FilterOption *)element, "contains");
			element = filter_part_find_element (part, "subject");
			filter_input_set_value ((FilterInput *)element, text);
		}
		break;
	case ESB_BODY_DOES_NOT_CONTAIN:
		part = vfolder_create_part ("body");
		filter_rule_add_part ((FilterRule *)rule, part);
		element = filter_part_find_element (part, "body-type");
		filter_option_set_current ((FilterOption *)element, "not contains");
		element = filter_part_find_element (part, "word");
		filter_input_set_value ((FilterInput *)element, text);
		break;
	case ESB_SUBJECT_DOES_NOT_CONTAIN:
		part = vfolder_create_part ("subject");
		filter_rule_add_part ((FilterRule *)rule, part);
		element = filter_part_find_element (part, "subject-type");
		filter_option_set_current ((FilterOption *)element, "not contains");
		element = filter_part_find_element (part, "subject");
		filter_input_set_value ((FilterInput *)element, text);
		break;
	case ESB_SENDER_CONTAINS:
		part = vfolder_create_part ("from");
		filter_rule_add_part ((FilterRule *)rule, part);
		element = filter_part_find_element (part, "from-type");
		filter_option_set_current ((FilterOption *)element, "contains");
		element = filter_part_find_element (part, "from");
		filter_input_set_value ((FilterInput *)element, text);
		break;
	}
	
	vfolder_gui_add_rule (rule);
	
	g_free (text);
}

static void
folder_browser_search_menu_activated (ESearchBar *esb, int id, FolderBrowser *fb)
{
	switch (id) {
	case ESB_SHOW_ALL:
		gtk_entry_set_text (GTK_ENTRY (esb->entry), "");
		gtk_widget_set_sensitive (esb->entry, TRUE);
		message_list_set_search (fb->message_list, NULL);
		break;
	case ESB_ADVANCED:
		search_full (NULL, fb);
		break;
	case ESB_SAVE:
		search_save (NULL, fb);
		break;
	}
}

static void
folder_browser_search_query_changed (ESearchBar *esb, FolderBrowser *fb)
{
	GString *search_query;
	char *search_word, *str;
	int search_type;
	
	gtk_widget_set_sensitive (esb->entry, TRUE);
	
	gtk_object_get (GTK_OBJECT (esb),
			"text", &search_word,
			"option_choice", &search_type,
			NULL);
	
	if (search_word && strlen (search_word)) {
		str = search_string[search_type];
		
		search_query = g_string_new ("");
		while (*str) {
			if (str[0] == '%' && str[1]=='s') {
				str += 2;
				e_sexp_encode_string (search_query, search_word);
			} else {
				g_string_append_c (search_query, *str);
				str++;
			}
		}
		
		message_list_set_search (fb->message_list, search_query->str);
		g_string_free (search_query, TRUE);
	} else {
		message_list_set_search (fb->message_list, NULL);
	}
	
	g_free (search_word);
}

void
folder_browser_clear_search (FolderBrowser *fb)
{
	gtk_entry_set_text (GTK_ENTRY (fb->search->entry), "");
	gtk_option_menu_set_history (GTK_OPTION_MENU (fb->search->option), 0);
	
	message_list_set_search (fb->message_list, NULL);
}

void
folder_browser_toggle_threads (BonoboUIComponent           *component,
			       const char                  *path,
			       Bonobo_UIComponent_EventType type,
			       const char                  *state,
			       gpointer                     user_data)
{
	FolderBrowser *fb = user_data;
	
	if (type != Bonobo_UIComponent_STATE_CHANGED)
		return;
	
	mail_config_set_thread_list (atoi (state));
	message_list_set_threaded (fb->message_list, atoi (state));
}

void
folder_browser_toggle_view_source (BonoboUIComponent           *component,
				   const char                  *path,
				   Bonobo_UIComponent_EventType type,
				   const char                  *state,
				   gpointer                     user_data)
{
	FolderBrowser *fb = user_data;
	
	if (type != Bonobo_UIComponent_STATE_CHANGED)
		return;
	
	mail_config_set_view_source (atoi (state));
	mail_display_redisplay (fb->mail_display, TRUE);
}

void
vfolder_subject (GtkWidget *w, FolderBrowser *fb)
{
	vfolder_gui_add_from_message (fb->mail_display->current_message, AUTO_SUBJECT, fb->uri);
}

void
vfolder_sender (GtkWidget *w, FolderBrowser *fb)
{
	vfolder_gui_add_from_message (fb->mail_display->current_message, AUTO_FROM, fb->uri);
}

void
vfolder_recipient (GtkWidget *w, FolderBrowser *fb)
{
	vfolder_gui_add_from_message (fb->mail_display->current_message, AUTO_TO, fb->uri);
}

void
filter_subject (GtkWidget *w, FolderBrowser *fb)
{
	filter_gui_add_from_message (fb->mail_display->current_message, AUTO_SUBJECT);
}

void
filter_sender (GtkWidget *w, FolderBrowser *fb)
{
	filter_gui_add_from_message (fb->mail_display->current_message, AUTO_FROM);
}

void
filter_recipient (GtkWidget *w, FolderBrowser *fb)
{
	filter_gui_add_from_message (fb->mail_display->current_message, AUTO_TO);
}

void
filter_mlist (GtkWidget *w, FolderBrowser *fb)
{
	char *name;
	char *header_value;
	const char *header_name;
	
	g_return_if_fail (fb->mail_display->current_message != NULL);

	name = mail_mlist_magic_detect_list (fb->mail_display->current_message, &header_name, &header_value);
	if (name == NULL)
		return;
	
	filter_gui_add_for_mailing_list (fb->mail_display->current_message, name, header_name, header_value);
	
	g_free (name);
	g_free (header_value);
}

void
hide_none(GtkWidget *w, FolderBrowser *fb)
{
	message_list_hide_clear(fb->message_list);
}

void
hide_selected(GtkWidget *w, FolderBrowser *fb)
{
	GPtrArray *uids;
	int i;

	uids = g_ptr_array_new();
	message_list_foreach(fb->message_list, enumerate_msg, uids);
	message_list_hide_uids(fb->message_list, uids);
	for (i=0; i<uids->len; i++)
		g_free(uids->pdata[i]);
	g_ptr_array_free(uids, TRUE);
}

void
hide_deleted(GtkWidget *w, FolderBrowser *fb)
{
	MessageList *ml = fb->message_list;

	message_list_hide_add(ml, "(match-all (system-flag \"deleted\"))", ML_HIDE_SAME, ML_HIDE_SAME);
}

void
hide_read(GtkWidget *w, FolderBrowser *fb)
{
	MessageList *ml = fb->message_list;

	message_list_hide_add(ml, "(match-all (system-flag \"seen\"))", ML_HIDE_SAME, ML_HIDE_SAME);
}

/* dum de dum, about the 3rd copy of this function throughout the mailer/camel */
static const char *
strip_re(const char *subject)
{
	const unsigned char *s, *p;
	
	s = (unsigned char *) subject;
	
	while (*s) {
		while(isspace (*s))
			s++;
		if (s[0] == 0)
			break;
		if ((s[0] == 'r' || s[0] == 'R')
		    && (s[1] == 'e' || s[1] == 'E')) {
			p = s+2;
			while (isdigit(*p) || (ispunct(*p) && (*p != ':')))
				p++;
			if (*p == ':') {
				s = p + 1;
			} else
				break;
		} else
			break;
	}
	return (char *) s;
}

void
hide_subject(GtkWidget *w, FolderBrowser *fb)
{
	const char *subject;
	GString *expr;

	if (fb->mail_display->current_message) {
		subject = camel_mime_message_get_subject(fb->mail_display->current_message);
		if (subject) {
			subject = strip_re(subject);
			if (subject && subject[0]) {
				expr = g_string_new("(match-all (header-contains \"subject\" ");
				e_sexp_encode_string(expr, subject);
				mail_tool_camel_lock_down();
				g_string_append(expr, "))");
				message_list_hide_add(fb->message_list, expr->str, ML_HIDE_SAME, ML_HIDE_SAME);
				g_string_free(expr, TRUE);
				return;
			}
		}
	}
}

void
hide_sender(GtkWidget *w, FolderBrowser *fb)
{
	const CamelInternetAddress *from;
	const char *real, *addr;
	GString *expr;

	if (fb->mail_display->current_message) {
		from = camel_mime_message_get_from(fb->mail_display->current_message);
		if (camel_internet_address_get(from, 0, &real, &addr)) {
			expr = g_string_new("(match-all (header-contains \"from\" ");
			e_sexp_encode_string(expr, addr);
			mail_tool_camel_lock_down();
			g_string_append(expr, "))");
			message_list_hide_add(fb->message_list, expr->str, ML_HIDE_SAME, ML_HIDE_SAME);
			g_string_free(expr, TRUE);
			return;
		}
	}
}

/* handle context menu over message-list */
static gint
on_right_click (ETable *table, gint row, gint col, GdkEvent *event, FolderBrowser *fb)
{
	extern CamelFolder *drafts_folder;
	CamelMessageInfo *info;
	GPtrArray *uids;
	int enable_mask = 0;
	int last_item, i;
	char *mailing_list_name = NULL;
	char *subject_match = NULL, *from_match = NULL;

	EPopupMenu filter_menu[] = {
		{ _("VFolder on Subject"),         NULL, GTK_SIGNAL_FUNC (vfolder_subject),   NULL,  2 },
		{ _("VFolder on Sender"),          NULL, GTK_SIGNAL_FUNC (vfolder_sender),    NULL,  2 },
		{ _("VFolder on Recipients"),      NULL, GTK_SIGNAL_FUNC (vfolder_recipient), NULL,  2 },
		{ "",                              NULL, GTK_SIGNAL_FUNC (NULL),              NULL,  0 },
		{ _("Filter on Subject"),          NULL, GTK_SIGNAL_FUNC (filter_subject),    NULL,  2 },
		{ _("Filter on Sender"),           NULL, GTK_SIGNAL_FUNC (filter_sender),     NULL,  2 },
		{ _("Filter on Recipients"),       NULL, GTK_SIGNAL_FUNC (filter_recipient),  NULL,  2 },
		{ _("Filter on Mailing List"),     NULL, GTK_SIGNAL_FUNC (filter_mlist),      NULL, 66 },
		{ NULL,                            NULL, NULL,                                NULL,  0 }
	};


	EPopupMenu menu[] = {
		{ _("Open"),                       NULL, GTK_SIGNAL_FUNC (view_msg),          NULL,  0 },
		{ _("Edit"),                       NULL, GTK_SIGNAL_FUNC (edit_msg),          NULL,  1 },
		{ _("Save As..."),                 NULL, GTK_SIGNAL_FUNC (save_msg),          NULL,  0 },
		{ _("Print"),                      NULL, GTK_SIGNAL_FUNC (print_msg),         NULL,  0 },
		{ "",                              NULL, GTK_SIGNAL_FUNC (NULL),              NULL,  0 },
		{ _("Reply to Sender"),            NULL, GTK_SIGNAL_FUNC (reply_to_sender),   NULL,  0 },
		{ _("Reply to All"),               NULL, GTK_SIGNAL_FUNC (reply_to_all),      NULL,  0 },
		{ _("Forward"),                    NULL, GTK_SIGNAL_FUNC (forward_attached),  NULL,  0 },
		{ _("Forward inline"),             NULL, GTK_SIGNAL_FUNC (forward_inlined),   NULL,  0 },
		{ "",                              NULL, GTK_SIGNAL_FUNC (NULL),              NULL,  0 },
		{ _("Mark as Read"),               NULL, GTK_SIGNAL_FUNC (mark_as_seen),      NULL,  4 },
		{ _("Mark as Unread"),             NULL, GTK_SIGNAL_FUNC (mark_as_unseen),    NULL,  8 },
		{ "",                              NULL, GTK_SIGNAL_FUNC (NULL),              NULL,  0 },
		{ _("Move to Folder..."),          NULL, GTK_SIGNAL_FUNC (move_msg),          NULL,  0 },
		{ _("Copy to Folder..."),          NULL, GTK_SIGNAL_FUNC (copy_msg),          NULL,  0 },
		{ _("Delete"),                     NULL, GTK_SIGNAL_FUNC (delete_msg),        NULL, 16 },
		{ _("Undelete"),                   NULL, GTK_SIGNAL_FUNC (undelete_msg),      NULL, 32 },
		{ "",                              NULL, GTK_SIGNAL_FUNC (NULL),              NULL,  0 },
		/*{ _("Add Sender to Address Book"), NULL, GTK_SIGNAL_FUNC (addrbook_sender),   NULL,  0 },
		  { "",                              NULL, GTK_SIGNAL_FUNC (NULL),              NULL,  0 },*/
		{ _("Apply Filters"),              NULL, GTK_SIGNAL_FUNC (apply_filters),     NULL,  0 },
		{ "",                              NULL, GTK_SIGNAL_FUNC (NULL),              NULL,  0 },
		{ _("Create Rule From Message"),   NULL, GTK_SIGNAL_FUNC (NULL),       filter_menu,  2 },
		{ NULL,                            NULL, NULL,                                NULL,  0 }
	};
	
	last_item = (sizeof (filter_menu) / sizeof (*filter_menu)) - 2;

	if (fb->reconfigure) {
		enable_mask = 0;
		goto display_menu;
	}
	
	if (fb->folder != drafts_folder)
		enable_mask |= 1;
	
	if (fb->mail_display->current_message == NULL) {
		enable_mask |= 2;
		mailing_list_name = NULL;
	} else {
		const char *subject, *real, *addr;
		const CamelInternetAddress *from;

		mailing_list_name = mail_mlist_magic_detect_list (fb->mail_display->current_message, NULL, NULL);

		if ((subject = camel_mime_message_get_subject(fb->mail_display->current_message))
		    && (subject = strip_re(subject))
		    && subject[0])
			subject_match = g_strdup(subject);

		if ((from = camel_mime_message_get_from(fb->mail_display->current_message))
		    && camel_internet_address_get(from, 0, &real, &addr)
		    && addr && addr[0])
			from_match = g_strdup(addr);
	}
	
	/* get a list of uids */
	uids = g_ptr_array_new ();
	message_list_foreach (fb->message_list, enumerate_msg, uids);
	if (uids->len >= 1) {
		/* gray-out any items we don't need */
		gboolean have_deleted = FALSE;
		gboolean have_undeleted = FALSE;
		gboolean have_seen = FALSE;
		gboolean have_unseen = FALSE;

		for (i = 0; i < uids->len; i++) {
			info = camel_folder_get_message_info (fb->folder, uids->pdata[i]);
			if (info == NULL)
				continue;

			if (info->flags & CAMEL_MESSAGE_SEEN)
				have_seen = TRUE;
			else
				have_unseen = TRUE;
			
			if (info->flags & CAMEL_MESSAGE_DELETED)
				have_deleted = TRUE;
			else
				have_undeleted = TRUE;
			
			camel_folder_free_message_info(fb->folder, info);

			if (have_seen && have_unseen && have_deleted && have_undeleted)
				break;
		}

		if (!have_unseen)
			enable_mask |= 4;
		if (!have_seen)
			enable_mask |= 8;
		
		if (!have_undeleted)
			enable_mask |= 16;
		if (!have_deleted)
			enable_mask |= 32;
	}

	/* free uids */
	for (i = 0; i < uids->len; i++)
		g_free (uids->pdata[i]);
	g_ptr_array_free (uids, TRUE);

display_menu:
	
	/* generate the "Filter on Mailing List menu item name */
	if (mailing_list_name == NULL) {
		enable_mask |= 64;
		filter_menu[last_item].name = g_strdup (_("Filter on Mailing List"));
	} else {
		filter_menu[last_item].name = g_strdup_printf (_("Filter on Mailing List (%s)"),
							       mailing_list_name);
		g_free(mailing_list_name);
	}

	e_popup_menu_run (menu, event, enable_mask, 0, fb);
	
	g_free(filter_menu[last_item].name);

	return TRUE;
}

static int
etable_key (ETable *table, int row, int col, GdkEvent *ev, FolderBrowser *fb)
{
	if ((ev->key.state & !(GDK_SHIFT_MASK | GDK_LOCK_MASK)) != 0)
		return FALSE;

	switch (ev->key.keyval) {
	case GDK_space:
	case GDK_BackSpace:
	{
		GtkAdjustment *vadj;
		gfloat page_size;

		vadj = e_scroll_frame_get_vadjustment (fb->mail_display->scroll);
		page_size = vadj->page_size - vadj->step_increment;

		if (ev->key.keyval == GDK_BackSpace) {
			if (vadj->value > vadj->lower + page_size)
				vadj->value -= page_size;
			else
				vadj->value = vadj->lower;
		} else {
			if (vadj->value < vadj->upper - vadj->page_size - page_size)
				vadj->value += page_size;
			else
				vadj->value = vadj->upper - vadj->page_size;
		}

		gtk_adjustment_value_changed (vadj);
		return TRUE;
	}
	
	case GDK_Delete:
	case GDK_KP_Delete:
		delete_msg (NULL, fb);
		message_list_select (fb->message_list, row,
				     MESSAGE_LIST_SELECT_NEXT,
				     0, CAMEL_MESSAGE_DELETED);
		return TRUE;

	case 'n':
	case 'N':
		message_list_select (fb->message_list, row,
				     MESSAGE_LIST_SELECT_NEXT,
				     0, CAMEL_MESSAGE_SEEN);
		return TRUE;

	case 'p':
	case 'P':
		message_list_select (fb->message_list, row,
				     MESSAGE_LIST_SELECT_PREVIOUS,
				     0, CAMEL_MESSAGE_SEEN);
		return TRUE;

	case GDK_Menu:
		on_right_click (table, row, col, ev, fb);
		return TRUE;

	default:
		return FALSE;
	}

	return FALSE;
}

static void
on_double_click (ETable *table, gint row, gint col, GdkEvent *event, FolderBrowser *fb)
{
	/* Ignore double-clicks on columns where single-click doesn't
	 * just select.
	 */
	if (MESSAGE_LIST_COLUMN_IS_ACTIVE (col))
		return;

	view_msg (NULL, fb);
}

static void
folder_browser_gui_init (FolderBrowser *fb)
{
	/* The panned container */
	fb->vpaned = e_vpaned_new ();
	gtk_widget_show (fb->vpaned);
	
	gtk_table_attach (GTK_TABLE (fb), fb->vpaned,
			  0, 1, 1, 3,
			  GTK_FILL | GTK_EXPAND,
			  GTK_FILL | GTK_EXPAND,
			  0, 0);
	
	/* quick-search entry */
	fb->search = E_SEARCH_BAR (e_search_bar_new (folder_browser_search_menu_items,
						     folder_browser_search_option_items));
	gtk_widget_show (GTK_WIDGET (fb->search));
	
	gtk_signal_connect (GTK_OBJECT (fb->search), "query_changed",
			    GTK_SIGNAL_FUNC (folder_browser_search_query_changed), fb);
	gtk_signal_connect (GTK_OBJECT (fb->search), "menu_activated",
			    GTK_SIGNAL_FUNC (folder_browser_search_menu_activated), fb);
	
	gtk_table_attach (GTK_TABLE (fb), GTK_WIDGET (fb->search),
			  0, 1, 0, 1,
			  GTK_FILL | GTK_EXPAND,
			  0,
			  0, 0);
	
	e_paned_add1 (E_PANED (fb->vpaned), GTK_WIDGET (fb->message_list));
	gtk_widget_show (GTK_WIDGET (fb->message_list));
	
	gtk_signal_connect (GTK_OBJECT (fb->message_list), "size_allocate",
	                    GTK_SIGNAL_FUNC (fb_resize_cb), NULL);
	
	e_paned_add2 (E_PANED (fb->vpaned), GTK_WIDGET (fb->mail_display));
	e_paned_set_position (E_PANED (fb->vpaned), mail_config_get_paned_size ());
	gtk_widget_show (GTK_WIDGET (fb->mail_display));
	gtk_widget_show (GTK_WIDGET (fb));
}

/* mark the message seen if the current message still matches */
static gint 
do_mark_seen (gpointer data)
{
	FolderBrowser *fb = data;

	if (fb->new_uid && fb->loaded_uid
	    && strcmp(fb->new_uid, fb->loaded_uid) == 0) {
		camel_folder_set_message_flags(fb->folder, fb->new_uid, CAMEL_MESSAGE_SEEN, CAMEL_MESSAGE_SEEN);
	}

	return FALSE;
}

/* callback when we have the message to display, after async loading it (see below) */
/* if we have pending uid's, it means another was selected before we finished displaying
   the last one - so we cycle through and start loading the pending one immediately now */
static void done_message_selected(CamelFolder *folder, char *uid, CamelMimeMessage *msg, void *data)
{
	FolderBrowser *fb = data;
	int timeout = mail_config_get_mark_as_seen_timeout ();

	if (folder != fb->folder)
		return;

	mail_display_set_message(fb->mail_display, (CamelMedium *)msg);

	/* pain, if we have pending stuff, re-run */
	if (fb->pending_uid) {	
		g_free(fb->loading_uid);
		fb->loading_uid = fb->pending_uid;
		fb->pending_uid = NULL;

		mail_get_message(fb->folder, fb->loading_uid, done_message_selected, fb, mail_thread_new);
		return;
	}

	g_free(fb->loaded_uid);
	fb->loaded_uid = fb->loading_uid;
	fb->loading_uid = NULL;

	/* if we are still on the same message, do the 'idle read' thing */
	if (fb->seen_id)
		gtk_timeout_remove(fb->seen_id);

	if (msg) {
		if (timeout > 0)
			fb->seen_id = gtk_timeout_add(timeout, do_mark_seen, fb);
		else
			do_mark_seen(fb);
	}
}

/* ok we waited enough, display it anyway (see below) */
static gboolean
do_message_selected(FolderBrowser *fb)
{
	d(printf ("selecting uid %s (delayed)\n", fb->new_uid));

	/* keep polling if we are busy */
	if (fb->reconfigure)
		return TRUE;

	fb->loading_id = 0;

	/* if we are loading, then set a pending, but leave the loading, coudl cancel here (?) */
	if (fb->loading_uid) {
		g_free(fb->pending_uid);
		fb->pending_uid = g_strdup(fb->new_uid);
	} else {
		if (fb->new_uid) {
			fb->loading_uid = g_strdup(fb->new_uid);
			mail_get_message(fb->folder, fb->loading_uid, done_message_selected, fb, mail_thread_new);
		} else {
			mail_display_set_message(fb->mail_display, NULL);
		}
	}

	return FALSE;
}

/* when a message is selected, wait a while before trying to display it */
static void
on_message_selected (MessageList *ml, const char *uid, FolderBrowser *fb)
{
	d(printf ("selecting uid %s (direct)\n", uid));

	if (fb->loading_id != 0)
		gtk_timeout_remove(fb->loading_id);

	g_free(fb->new_uid);
	fb->new_uid = g_strdup(uid);
	fb->loading_id = gtk_timeout_add(100, (GtkFunction)do_message_selected, fb);
}

static void
folder_browser_init (GtkObject *object)
{
}

static void
my_folder_browser_init (GtkObject *object)
{
	FolderBrowser *fb = FOLDER_BROWSER (object);

	/*
	 * Setup parent class fields.
	 */ 
	GTK_TABLE (fb)->homogeneous = FALSE;
	gtk_table_resize (GTK_TABLE (fb), 1, 2);

	/*
	 * Our instance data
	 */
	fb->message_list = (MessageList *)message_list_new ();
	fb->mail_display = (MailDisplay *)mail_display_new ();

	e_scroll_frame_set_policy(E_SCROLL_FRAME(fb->message_list),
				  GTK_POLICY_NEVER,
				  GTK_POLICY_ALWAYS);
	
	gtk_signal_connect (GTK_OBJECT (fb->message_list->table),
			    "key_press", GTK_SIGNAL_FUNC (etable_key), fb);

	gtk_signal_connect (GTK_OBJECT (fb->message_list->table),
			    "right_click", GTK_SIGNAL_FUNC (on_right_click), fb);

	gtk_signal_connect (GTK_OBJECT (fb->message_list->table),
			    "double_click", GTK_SIGNAL_FUNC (on_double_click), fb);

	gtk_signal_connect (GTK_OBJECT(fb->message_list), "message_selected",
			    on_message_selected, fb);

	folder_browser_gui_init (fb);
}

GtkWidget *
folder_browser_new (const GNOME_Evolution_Shell shell)
{
	CORBA_Environment ev;
	FolderBrowser *folder_browser;

	CORBA_exception_init (&ev);

	folder_browser = gtk_type_new (folder_browser_get_type ());

	my_folder_browser_init (GTK_OBJECT (folder_browser));
	folder_browser->uri = NULL;

	folder_browser->shell = CORBA_Object_duplicate (shell, &ev);
	if (ev._major != CORBA_NO_EXCEPTION) {
		folder_browser->shell = CORBA_OBJECT_NIL;
		gtk_widget_destroy (GTK_WIDGET (folder_browser));
		CORBA_exception_free (&ev);
		return NULL;
	}

	CORBA_exception_free (&ev);

	return GTK_WIDGET (folder_browser);
}


E_MAKE_TYPE (folder_browser, "FolderBrowser", FolderBrowser, folder_browser_class_init, folder_browser_init, PARENT_TYPE);

static void fb_resize_cb (GtkWidget *w, GtkAllocation *a)
{
	mail_config_set_paned_size (a->height);
}