path: root/mail/mail-threads.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */

/*
 * Author :
 *  Peter Williams (peterw@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 Street #330, Boston, MA 02111-1307, USA.
 *
 */

#include <config.h>

#include <string.h>
#include <glib.h>
#include "mail.h"
#include "mail-threads.h"

#define DEBUG(p) g_print p

/* FIXME TODO: Do we need operations that don't get a progress window because
 * they're quick, but we still want camel to be locked? We need some kind
 * of flag to mail_operation_queue, but then we also need some kind of monitor
 * to open the window if it takes more than a second or something. That would
 * probably entail another thread....
 */

/**
 * A function and its userdata
 **/

typedef struct closure_s
{
    gpointer in_data;
    gboolean free_in_data;
    gpointer op_data;
    const mail_operation_spec *spec;
    CamelException *ex;
    gchar *infinitive;
    gchar *gerund;
}
closure_t;

/**
 * A command issued through the compipe
 **/

typedef struct com_msg_s
{
    enum com_msg_type_e { 
        STARTING, 
        PERCENTAGE, 
        HIDE_PBAR, 
        SHOW_PBAR, 
        MESSAGE, 
        PASSWORD,
        ERROR, 
        FINISHED
    } type;
    gfloat percentage;
    gchar *message;

    closure_t *clur;

    /* Password stuff */
    gchar **reply;
    gboolean secret;
    gboolean *success;
}
com_msg_t;

/**
 * @dispatch_thread_started: gboolean that tells us whether
 * the dispatch thread has been launched.
 **/

static gboolean dispatch_thread_started = FALSE;

/** 
 * @queue_len : the number of operations pending
 * and being executed.
 *
 * Because camel is not thread-safe we work
 * with the restriction that more than one mailbox
 * cannot be accessed at once. Thus we cannot
 * concurrently check mail and move messages, etc.
 **/

static gint queue_len = 0;

/**
 * @queue_window: The little window on the screen that
 * shows the progress of the current operation and the
 * operations that are queued to proceed after it.
 *
 * @queue_window_pending: The vbox that contains the
 * list of pending operations.
 *
 * @queue_window_message: The label that contains the
 * operation's message to the user
 **/

static GtkWidget *queue_window = NULL;
static GtkWidget *queue_window_pending = NULL;
static GtkWidget *queue_window_message = NULL;
static GtkWidget *queue_window_progress = NULL;

/**
 * @progress_timeout_handle: the handle to our timer
 * function so that we can remove it when the progress bar
 * mode changes.
 **/

static int progress_timeout_handle = -1;

/**
 * @main_compipe: The pipe through which the dispatcher communicates
 * with the main thread for GTK+ calls
 *
 * @chan_reader: the GIOChannel that reads our pipe
 *
 * @MAIN_READER: the fd in our main pipe that.... reads!
 * @MAIN_WRITER: the fd in our main pipe that.... writes!
 */

#define MAIN_READER main_compipe[0]
#define MAIN_WRITER main_compipe[1]
#define DISPATCH_READER dispatch_compipe[0]
#define DISPATCH_WRITER dispatch_compipe[1]

static int main_compipe[2] = { -1, -1 };
static int dispatch_compipe[2] = { -1, -1 };

GIOChannel *chan_reader = NULL;

/**
 * @modal_cond: a condition maintained so that the
 * calling thread (the dispatch thread) blocks correctly
 * until the user has responded to some kind of modal
 * dialog boxy thing.
 *
 * @modal_lock: a mutex for said condition
 *
 * @modal_may_proceed: a gboolean telling us whether
 * the dispatch thread may proceed its operations.
 */

G_LOCK_DEFINE_STATIC (modal_lock);
static GCond *modal_cond = NULL;
static gboolean modal_may_proceed = FALSE;

/**
 * @ready_for_op: A lock that the main thread only releases
 * when it is ready for the dispatch thread to do its thing
 *
 * @ready_cond: A condition for this ... condition
 *
 * @ready_may_proceed: a gboolean telling the dispatch thread
 * when it may proceed.
 **/

G_LOCK_DEFINE_STATIC (ready_for_op);
static GCond *ready_cond = NULL;
static gboolean ready_may_proceed = FALSE;

/**
 * Static prototypes
 **/

static void create_queue_window (void);
static void destroy_queue_window (void);
static void *dispatch (void * data);
static void check_dispatcher (void);
static void check_compipes (void);
static void check_cond (void);
static gboolean read_msg (GIOChannel * source, GIOCondition condition,
              gpointer userdata);
static void remove_next_pending (void);
static void show_error (com_msg_t * msg);
static void show_error_clicked (GtkObject * obj);
static void get_password (com_msg_t * msg);
static void get_password_cb (gchar * string, gpointer data);
static void get_password_clicked (GnomeDialog * dialog, gint button,

                  gpointer user_data);
static gboolean progress_timeout (gpointer data);
static void timeout_toggle (gboolean active);
static gboolean display_timeout (gpointer data);
static closure_t *new_closure (const mail_operation_spec * spec, gpointer input,
                   gboolean free_in_data);
static void free_closure (closure_t *clur);

/* Pthread code */
/* FIXME: support other thread types!!!! */

#ifdef G_THREADS_IMPL_POSIX

#include <pthread.h>

/**
 * @dispatch_thread: the pthread_t (when using pthreads, of
 * course) representing our dispatcher routine. Never used
 * except to make pthread_create happy
 **/

static pthread_t dispatch_thread;

/* FIXME: do we need to set any attributes for our thread? 
 * If so, we need to create a pthread_attr structure and
 * fill it in somewhere. But the defaults should be good
 * enough.
 */

#elif defined( G_THREADS_IMPL_SOLARIS )

#include <thread.h>

static thread_t dispatch_thread;

#else /* no supported thread impl */
void
f (void)
{
    Error_No_supported_thread_implementation_recognized ();
    choke on this;
}
#endif

/**
 * mail_operation_queue:
 * @spec: describes the operation to be performed
 * @input: input data for the operation.
 *
 * Runs a mail operation asynchronously. If no other operation is running,
 * we start another thread and call the callback in that thread. The function
 * can then use the mail_op_ functions to perform limited UI returns, while
 * the main UI is completely unlocked.
 *
 * If an async operation is going on when this function is called again, 
 * it waits for the currently executing operation to finish, then
 * executes the callback function in another thread.
 *
 * Returns TRUE on success, FALSE on some sort of queueing error.
 **/

gboolean
mail_operation_queue (const mail_operation_spec * spec, gpointer input,
              gboolean free_in_data)
{
    closure_t *clur;

    g_assert (spec);

    clur = new_closure (spec, input, free_in_data);

    if (spec->setup)
        (spec->setup) (clur->in_data, clur->op_data, clur->ex);

    if (camel_exception_is_set (clur->ex)) {
        if (clur->ex->id != CAMEL_EXCEPTION_USER_CANCEL) {
            GtkWidget *err_dialog;
            gchar *msg;

            msg =
                g_strdup_printf
                ("Error while preparing to %s:\n" "%s",
                 clur->infinitive,
                 camel_exception_get_description (clur->ex));
            err_dialog = gnome_error_dialog (msg);
            g_free (msg);
            gnome_dialog_set_close (GNOME_DIALOG (err_dialog),
                        TRUE);
            /*gnome_dialog_run_and_close (GNOME_DIALOG (err_dialog)); */
            /*gtk_widget_destroy (err_dialog); */
            gtk_widget_show (GTK_WIDGET (err_dialog));

            g_warning ("Setup failed for `%s': %s",
                   clur->infinitive,
                   camel_exception_get_description (clur->
                                    ex));
        }

        free_closure (clur);
        return FALSE;
    }

    if (queue_len == 0) {
        check_cond ();
        check_compipes ();
        check_dispatcher ();
        create_queue_window ();
        /*gtk_widget_show_all (queue_window); */
        gtk_timeout_add (1000, display_timeout, NULL);
    } else {
        GtkWidget *label;

        /* We already have an operation running. Well,
         * queue ourselves up. (visually)
         */

        /* Show us in the pending window. */
        label = gtk_label_new (clur->infinitive);
        gtk_misc_set_alignment (GTK_MISC (label), 1.0, 0.5);
        gtk_box_pack_start (GTK_BOX (queue_window_pending), label,
                    FALSE, TRUE, 2);
        gtk_widget_show (label);

        /* If we want the next op to be on the bottom, uncomment this */
        /* 1 = first on list always (0-based) */
        /* gtk_box_reorder_child( GTK_BOX( queue_window_pending ), label, 1 ); */
        gtk_widget_show (queue_window_pending);
    }

    write (DISPATCH_WRITER, clur, sizeof (closure_t));
    queue_len++;
    return TRUE;
}

/**
 * mail_op_set_percentage:
 * @percentage: the percentage that will be displayed in the progress bar
 *
 * Set the percentage of the progress bar for the currently executing operation.
 * Threadsafe for, nay, intended to be called by, the dispatching thread.
 **/

void
mail_op_set_percentage (gfloat percentage)
{
    com_msg_t msg;

    msg.type = PERCENTAGE;
    msg.percentage = percentage;
    write (MAIN_WRITER, &msg, sizeof (msg));
}

/**
 * mail_op_hide_progressbar:
 *
 * Hide the progress bar in the status box
 * Threadsafe for, nay, intended to be called by, the dispatching thread.
 **/

/* FIXME: I'd much rather have one of those Netscape-style progress
 * bars that just zips back and forth, but gtkprogressbar can't do
 * that, right? 
 */

void
mail_op_hide_progressbar (void)
{
    com_msg_t msg;

    msg.type = HIDE_PBAR;
    write (MAIN_WRITER, &msg, sizeof (msg));
}

/**
 * mail_op_show_progressbar:
 *
 * Show the progress bar in the status box
 * Threadsafe for, nay, intended to be called by, the dispatching thread.
 **/

void
mail_op_show_progressbar (void)
{
    com_msg_t msg;

    msg.type = SHOW_PBAR;
    write (MAIN_WRITER, &msg, sizeof (msg));
}

/**
 * mail_op_set_message:
 * @fmt: printf-style format string for the message
 * @...: arguments to the format string
 *
 * Set the message displayed above the progress bar for the currently
 * executing operation.
 * Threadsafe for, nay, intended to be called by, the dispatching thread.
 **/

void
mail_op_set_message (gchar * fmt, ...)
{
    com_msg_t msg;
    va_list val;

    va_start (val, fmt);
    msg.type = MESSAGE;
    msg.message = g_strdup_vprintf (fmt, val);
    va_end (val);

    write (MAIN_WRITER, &msg, sizeof (msg));
}

/**
 * mail_op_get_password:
 * @prompt: the question put to the user
 * @secret: whether the dialog box shold print stars when the user types
 * @dest: where to store the reply
 *
 * Asks the user for a password (or string entry in general). Waits for
 * the user's response. On success, returns TRUE and @dest contains the
 * response. On failure, returns FALSE and @dest contains the error
 * message.
 **/

gboolean
mail_op_get_password (gchar * prompt, gboolean secret, gchar ** dest)
{
    com_msg_t msg;
    gboolean result;

    msg.type = PASSWORD;
    msg.secret = secret;
    msg.message = prompt;
    msg.reply = dest;
    msg.success = &result;

    (*dest) = NULL;

    G_LOCK (modal_lock);

    write (MAIN_WRITER, &msg, sizeof (msg));
    modal_may_proceed = FALSE;

    while (modal_may_proceed == FALSE)
        g_cond_wait (modal_cond,
                 g_static_mutex_get_mutex (&G_LOCK_NAME
                               (modal_lock)));

    G_UNLOCK (modal_lock);

    return result;
}

/**
 * mail_op_error:
 * @fmt: printf-style format string for the error
 * @...: arguments to the format string
 *
 * Opens an error dialog for the currently executing operation.
 * Threadsafe for, nay, intended to be called by, the dispatching thread.
 **/

void
mail_op_error (gchar * fmt, ...)
{
    com_msg_t msg;
    va_list val;

    va_start (val, fmt);
    msg.type = ERROR;
    msg.message = g_strdup_vprintf (fmt, val);
    va_end (val);

    G_LOCK (modal_lock);

    modal_may_proceed = FALSE;
    write (MAIN_WRITER, &msg, sizeof (msg));

    while (modal_may_proceed == FALSE)
        g_cond_wait (modal_cond,
                 g_static_mutex_get_mutex (&G_LOCK_NAME
                               (modal_lock)));

    G_UNLOCK (modal_lock);
}

/**
 * mail_operation_wait_for_finish:
 *
 * Waits for the currently executing async operations
 * to finish executing
 */

void
mail_operation_wait_for_finish (void)
{
    while (queue_len)
        gtk_main_iteration ();
    /* Sigh. Otherwise we deadlock upon exit. */
    GDK_THREADS_LEAVE ();
}

/**
 * mail_operations_are_executing:
 *
 * Returns TRUE if operations are being executed asynchronously
 * when called, FALSE if not.
 **/

gboolean
mail_operations_are_executing (void)
{
    return (queue_len > 0);
}

/**
 * mail_operations_terminate:
 *
 * Let the operations finish then terminate the dispatch thread
 **/

void
mail_operations_terminate (void)
{
    closure_t clur;

    mail_operation_wait_for_finish();

    memset (&clur, 0, sizeof (closure_t));
    clur.spec = NULL;

    write (DISPATCH_WRITER, &clur, sizeof (closure_t));
}

/* ** Static functions **************************************************** */

static void check_dispatcher (void)
{
    int res;

    if (dispatch_thread_started)
        return;

#if defined( G_THREADS_IMPL_POSIX )
    res = pthread_create (&dispatch_thread, NULL,
                  (void *) &dispatch, NULL);
#elif defined( G_THREADS_IMPL_SOLARIS )
    res = thr_create (NULL, 0, (void *) &dispatch, NULL, 0, &dispatch_thread);
#else /* no known impl */
    Error_No_thread_create_implementation ();
    choke on this;
#endif
    if (res != 0) {
        g_warning ("Error launching dispatch thread!");
        /* FIXME: more error handling */
    } else
        dispatch_thread_started = TRUE;
}

static void
print_hide (GtkWidget * wid)
{
    g_message ("$$$ hide signal emitted");
}

static void
print_unmap (GtkWidget * wid)
{
    g_message ("$$$ unmap signal emitted");
}

static void
print_map (GtkWidget * wid)
{
    g_message ("$$$ map signal emitted");
}

static void
print_show (GtkWidget * wid)
{
    g_message ("$$$ show signal emitted");
}

/**
 * create_queue_window:
 *
 * Creates the queue_window widget that displays the progress of the
 * current operation.
 */

static void
queue_window_delete_event_cb (GtkWindow *window,
                  void *data)
{
    /* Do nothing.  Just prevent GTK+ from destroying the window.  */
}

static void
create_queue_window (void)
{
    GtkWidget *vbox;
    GtkWidget *pending_vb, *pending_lb;
    GtkWidget *progress_lb, *progress_bar;

    /* Check to see if we've only hidden it */
    if (queue_window != NULL)
        return;

    queue_window = gtk_window_new (GTK_WINDOW_DIALOG);
    gtk_container_set_border_width (GTK_CONTAINER (queue_window), 8);

    gtk_signal_connect (GTK_OBJECT (queue_window), "delete_event",
                GTK_SIGNAL_FUNC (queue_window_delete_event_cb), NULL);

    vbox = gtk_vbox_new (FALSE, 4);

    pending_vb = gtk_vbox_new (FALSE, 2);
    queue_window_pending = pending_vb;

    pending_lb = gtk_label_new (_("Currently pending operations:"));
    gtk_misc_set_alignment (GTK_MISC (pending_lb), 0.0, 0.0);
    gtk_box_pack_start (GTK_BOX (pending_vb), pending_lb, FALSE, TRUE, 0);

    gtk_box_pack_start (GTK_BOX (vbox), pending_vb, TRUE, TRUE, 4);

    /* FIXME: 'operation' is not the warmest cuddliest word. */
    progress_lb = gtk_label_new ("");
    queue_window_message = progress_lb;
    gtk_box_pack_start (GTK_BOX (vbox), progress_lb, FALSE, TRUE, 4);

    progress_bar = gtk_progress_bar_new ();
    queue_window_progress = progress_bar;
    /* FIXME: is this fit for l10n? */
    gtk_progress_bar_set_orientation (GTK_PROGRESS_BAR (progress_bar),
                      GTK_PROGRESS_LEFT_TO_RIGHT);
    gtk_progress_bar_set_bar_style (GTK_PROGRESS_BAR (progress_bar),
                    GTK_PROGRESS_CONTINUOUS);
    gtk_box_pack_start (GTK_BOX (vbox), progress_bar, FALSE, TRUE, 4);

    gtk_container_add (GTK_CONTAINER (queue_window), vbox);

    gtk_widget_show (GTK_WIDGET (progress_bar));
    gtk_widget_show (GTK_WIDGET (progress_lb));
    gtk_widget_show (GTK_WIDGET (pending_lb));
    gtk_widget_show (GTK_WIDGET (pending_vb));
    gtk_widget_show (GTK_WIDGET (vbox));

    gtk_signal_connect (GTK_OBJECT (queue_window), "hide", print_hide,
                NULL);
    gtk_signal_connect (GTK_OBJECT (queue_window), "unmap", print_unmap,
                NULL);
    gtk_signal_connect (GTK_OBJECT (queue_window), "show", print_show,
                NULL);
    gtk_signal_connect (GTK_OBJECT (queue_window), "map", print_map,
                NULL);
}

static void destroy_queue_window (void)
{
    g_return_if_fail (queue_window);

    timeout_toggle (FALSE);
    gtk_widget_destroy (queue_window);

    queue_window = NULL;
    queue_window_progress = NULL;
    queue_window_pending = NULL;
    queue_window_message = NULL;
}

/**
 * check_compipes:
 *
 * Check and see if our pipe has been opened and open
 * it if necessary.
 **/

static void
check_compipes (void)
{
    if (MAIN_READER < 0) {
        if (pipe (main_compipe) < 0) {
            g_warning ("Call to pipe(2) failed!");

            /* FIXME: better error handling. How do we react? */
            return;
        }
        
        chan_reader = g_io_channel_unix_new (MAIN_READER);
        g_io_add_watch (chan_reader, G_IO_IN, read_msg, NULL);
    }

    if (DISPATCH_READER < 0) {
        if (pipe (dispatch_compipe) < 0) {
            g_warning ("Call to pipe(2) failed!");

            /* FIXME: better error handling. How do we react? */
            return;
        }
    }
}

/**
 * check_cond:
 *
 * See if our condition is initialized and do so if necessary
 **/

static void
check_cond (void)
{
    if (modal_cond == NULL)
        modal_cond = g_cond_new ();

    if (ready_cond == NULL)
        ready_cond = g_cond_new ();
}

/**
 * dispatch:
 * @clur: The operation to execute and its parameters
 *
 * Start a thread that executes the closure and exit
 * it when done.
 */

static void *
dispatch (void *unused)
{
    size_t len;
    closure_t *clur;
    com_msg_t msg;

    /* Let the compipes be created */
    sleep (1);

    while (1) {
        clur = g_new (closure_t, 1);
        len = read (DISPATCH_READER, clur, sizeof (closure_t));

        if (len <= 0)
            break;

        if (len != sizeof (closure_t)) {
            g_warning ("dispatcher: Didn't read full message!");
            continue;
        }

        if (clur->spec == NULL)
            break;

        msg.type = STARTING;
        msg.message = g_strdup (clur->gerund);
        write (MAIN_WRITER, &msg, sizeof (msg));

        mail_op_hide_progressbar ();
        
        (clur->spec->callback) (clur->in_data, clur->op_data, clur->ex);

        if (camel_exception_is_set (clur->ex)) {
            if (clur->ex->id != CAMEL_EXCEPTION_USER_CANCEL) {
                g_warning ("Callback failed for `%s': %s",
                       clur->infinitive,
                       camel_exception_get_description (clur->
                                        ex));
                mail_op_error ("Error while `%s':\n" "%s",
                           clur->gerund,
                           camel_exception_get_description (clur->
                                        ex));
            }
        }

        msg.type = FINISHED;
        msg.clur = clur;

        G_LOCK (ready_for_op);
        write (MAIN_WRITER, &msg, sizeof (msg));

        ready_may_proceed = FALSE;
        while (ready_may_proceed == FALSE)
            g_cond_wait (ready_cond,
                     g_static_mutex_get_mutex (&G_LOCK_NAME
                                   (ready_for_op)));
        G_UNLOCK (ready_for_op);
    }

#ifdef G_THREADS_IMPL_POSIX
    pthread_exit (0);
#elif defined( G_THREADS_IMPL_SOLARIS )
    thr_exit (NULL);
#else /* no known impl */
    Error_No_thread_exit_implemented ();
    choke on this;
#endif
    return NULL;
    /*NOTREACHED*/
}

/**
 * read_msg:
 * @source: the channel that has data to read
 * @condition: the reason we were called
 * @userdata: unused
 *
 * A message has been recieved on our pipe; perform the appropriate 
 * action.
 **/

static gboolean
read_msg (GIOChannel * source, GIOCondition condition, gpointer userdata)
{
    com_msg_t *msg;
    guint size;

    msg = g_new0 (com_msg_t, 1);

    g_io_channel_read (source, (gchar *) msg,
               sizeof (com_msg_t) / sizeof (gchar), &size);

    if (size != sizeof (com_msg_t)) {
        g_warning (_("Incomplete message written on pipe!"));
        msg->type = ERROR;
        msg->message =
            g_strdup (_
                  ("Error reading commands from dispatching thread."));
    }

    /* This is very important, though I'm not quite sure why
     * it is as we are in the main thread right now.
     */

    GDK_THREADS_ENTER ();

    switch (msg->type) {
    case STARTING:
        DEBUG (("*** Message -- STARTING %s\n", msg->message));
        gtk_label_set_text (GTK_LABEL (queue_window_message),
                    msg->message);
        gtk_progress_bar_update (GTK_PROGRESS_BAR
                     (queue_window_progress), 0.0);
        g_free (msg->message);
        g_free (msg);
        break;
    case PERCENTAGE:
        DEBUG (("*** Message -- PERCENTAGE\n"));
        gtk_progress_bar_update (GTK_PROGRESS_BAR
                     (queue_window_progress),
                     msg->percentage);
        g_free (msg);
        break;
    case HIDE_PBAR:
        DEBUG (("*** Message -- HIDE_PBAR\n"));
        gtk_progress_set_activity_mode (GTK_PROGRESS
                        (queue_window_progress),
                        TRUE);
        timeout_toggle (TRUE);
        g_free (msg);
        break;
    case SHOW_PBAR:
        DEBUG (("*** Message -- SHOW_PBAR\n"));
        timeout_toggle (FALSE);
        gtk_progress_set_activity_mode (GTK_PROGRESS
                        (queue_window_progress),
                        FALSE);
        g_free (msg);
        break;
    case MESSAGE:
        DEBUG (("*** Message -- MESSAGE\n"));
        gtk_label_set_text (GTK_LABEL (queue_window_message),
                    msg->message);
        g_free (msg->message);
        g_free (msg);
        break;
    case PASSWORD:
        DEBUG (("*** Message -- PASSWORD\n"));
        g_assert (msg->reply);
        g_assert (msg->success);
        get_password (msg);
        /* don't free msg! done later */
        break;
    case ERROR:
        DEBUG (("*** Message -- ERROR\n"));
        show_error (msg);
        g_free (msg);
        break;

        /* Don't fall through; dispatch_func does the FINISHED
         * call for us 
         */

    case FINISHED:
        DEBUG (
               ("*** Message -- FINISH %s\n",
            msg->clur->gerund));

        if (msg->clur->spec->cleanup)
            (msg->clur->spec->cleanup) (msg->clur->in_data,
                            msg->clur->op_data,
                            msg->clur->ex);

        G_LOCK (ready_for_op);
        ready_may_proceed = TRUE;
        g_cond_signal (ready_cond);
        G_UNLOCK (ready_for_op);

        if (camel_exception_is_set (msg->clur->ex) &&
            msg->clur->ex->id != CAMEL_EXCEPTION_USER_CANCEL) {
            g_warning ("Error on cleanup of `%s': %s",
                   msg->clur->infinitive,
                   camel_exception_get_description (msg->
                                    clur->
                                    ex));
        }

        free_closure (msg->clur);
        queue_len--;

        if (queue_len == 0) {
            g_print ("\tNo more ops -- hide %p.\n", queue_window);
            /* All done! */
            /* gtk_widget_hide seems to have problems sometimes 
             * here... perhaps because we're in a gsource handler,
             * not a GTK event handler? Anyway, we defer the hiding
             * til an idle. */
            /*gtk_idle_add (hide_queue_window, NULL);*/
            /*gtk_widget_hide (queue_window); */
            destroy_queue_window ();
        } else {
            g_print ("\tOperation(s) left.\n");

            /* There's another operation left :
             * Clear it out of the 'pending' vbox 
             */
            remove_next_pending ();
        }
        g_free (msg);
        break;
    default:
        g_warning (_("Corrupted message from dispatching thread?"));
        break;
    }

    GDK_THREADS_LEAVE ();
    return TRUE;
}

/**
 * remove_next_pending:
 *
 * Remove an item from the list of pending items. If
 * that's the last one, additionally hide the little
 * 'pending' message.
 **/

static void
remove_next_pending (void)
{
    GList *children;

    children =
        gtk_container_children (GTK_CONTAINER (queue_window_pending));

    /* Skip past the header label */
    children = g_list_first (children);
    children = g_list_next (children);

    if (!children) {
        g_warning ("Mistake in queue window!");
        return;
    }

    /* Nuke the one on top */
    gtk_container_remove (GTK_CONTAINER (queue_window_pending),
                  GTK_WIDGET (children->data));

    /* Hide it? */
    if (g_list_next (children) == NULL)
        gtk_widget_hide (queue_window_pending);
}

/**
 * show_error:
 *
 * Show the error dialog and wait for user OK
 **/

static void
show_error (com_msg_t * msg)
{
    GtkWidget *err_dialog;
    gchar *old_message;

    err_dialog = gnome_error_dialog (msg->message);
    gnome_dialog_set_close (GNOME_DIALOG (err_dialog), TRUE);
    gtk_signal_connect (GTK_OBJECT (err_dialog), "clicked",
                (GtkSignalFunc) show_error_clicked, NULL);
    g_free (msg->message);

    /* Save the old message, but display a new one right now */
    gtk_label_get (GTK_LABEL (queue_window_message), &old_message);
    gtk_object_set_data (GTK_OBJECT (err_dialog), "old_message",
                 g_strdup (old_message));
    gtk_label_set_text (GTK_LABEL (queue_window_message),
                _("Waiting for user to close error dialog"));

    G_LOCK (modal_lock);

    timeout_toggle (FALSE);
    modal_may_proceed = FALSE;
    gtk_widget_show_all (GTK_WIDGET (err_dialog));
    gnome_win_hints_set_layer (err_dialog, WIN_LAYER_ONTOP);
    gnome_win_hints_set_state (err_dialog, WIN_STATE_ARRANGE_IGNORE);
    gnome_win_hints_set_hints (err_dialog,
                   WIN_HINTS_SKIP_FOCUS |
                   WIN_HINTS_SKIP_WINLIST |
                   WIN_HINTS_SKIP_TASKBAR);
}

/**
 * show_error_clicked:
 *
 * Called when the user makes hits okay to the error dialog --
 * the dispatch thread is allowed to continue.
 **/

static void
show_error_clicked (GtkObject * obj)
{
    gchar *old_message;

    /* Restore the old message */
    old_message = gtk_object_get_data (obj, "old_message");
    gtk_label_set_text (GTK_LABEL (queue_window_message),
                old_message);
    g_free (old_message);

    modal_may_proceed = TRUE;
    timeout_toggle (TRUE);
    g_cond_signal (modal_cond);
    G_UNLOCK (modal_lock);
}

/**
 * get_password:
 *
 * Ask for a password and put the answer in *(msg->reply)
 **/

static void
get_password (com_msg_t * msg)
{
    GtkWidget *dialog;
    gchar *old_message;

    dialog = gnome_request_dialog (msg->secret, msg->message, NULL,
                       0, get_password_cb, msg, NULL);
    gnome_dialog_set_close (GNOME_DIALOG (dialog), TRUE);
    gtk_signal_connect (GTK_OBJECT (dialog), "clicked",
                get_password_clicked, msg);

    /* Save the old message, but display a new one right now */
    gtk_label_get (GTK_LABEL (queue_window_message), &old_message);
    gtk_object_set_data (GTK_OBJECT (dialog), "old_message", g_strdup(old_message));
    gtk_label_set_text (GTK_LABEL (queue_window_message),
                _("Waiting for user to enter data"));

    G_LOCK (modal_lock);

    modal_may_proceed = FALSE;

    if (dialog == NULL) {
        *(msg->success) = FALSE;
        *(msg->reply) = g_strdup (_("Could not create dialog box."));
        modal_may_proceed = TRUE;
        g_cond_signal (modal_cond);
        G_UNLOCK (modal_lock);
    } else {
        *(msg->reply) = NULL;
        timeout_toggle (FALSE);
        gtk_widget_show_all (GTK_WIDGET (dialog));
        gnome_win_hints_set_layer (dialog, WIN_LAYER_ONTOP);
        gnome_win_hints_set_state (dialog, WIN_STATE_ARRANGE_IGNORE);
        gnome_win_hints_set_hints (dialog,
                       WIN_HINTS_SKIP_FOCUS |
                       WIN_HINTS_SKIP_WINLIST |
                       WIN_HINTS_SKIP_TASKBAR);
    }
}

static void
get_password_cb (gchar * string, gpointer data)
{
    com_msg_t *msg = (com_msg_t *) data;

    if (string)
        *(msg->reply) = g_strdup (string);
    else
        *(msg->reply) = NULL;
}

static void
get_password_clicked (GnomeDialog * dialog, gint button, gpointer user_data)
{
    com_msg_t *msg = (com_msg_t *) user_data;
    gchar *old_message;

    /* Restore the old message */
    old_message = gtk_object_get_data (GTK_OBJECT (dialog), "old_message");
    gtk_label_set_text (GTK_LABEL (queue_window_message),
                old_message);
    g_free (old_message);

    if (button == 1 || *(msg->reply) == NULL) {
        *(msg->success) = FALSE;
        *(msg->reply) = g_strdup (_("User cancelled query."));
    } else
        *(msg->success) = TRUE;

    g_free (msg);
    modal_may_proceed = TRUE;
    timeout_toggle (TRUE);
    g_cond_signal (modal_cond);
    G_UNLOCK (modal_lock);
}

/* NOT totally copied from gtk+/gtk/testgtk.c, really! */

static gboolean
progress_timeout (gpointer data)
{
    gfloat new_val;
    GtkAdjustment *adj;

    if (queue_window == NULL) {
        gtk_timeout_remove (progress_timeout_handle);
        progress_timeout_handle = -1;
        return FALSE;
    }
        
    adj = GTK_PROGRESS (data)->adjustment;

    new_val = adj->value + 1;
    if (new_val > adj->upper)
        new_val = adj->lower;

    gtk_progress_set_value (GTK_PROGRESS (data), new_val);

    return TRUE;
}

/**
 * timeout_toggle:
 *
 * Turn on and off our timeout to zip the progressbar along,
 * protecting against recursion (Ie, call with TRUE twice
 * in a row.
 **/

static void
timeout_toggle (gboolean active)
{
    if (!queue_window)
        return;

    if ((GTK_PROGRESS (queue_window_progress))->activity_mode == 0)
        return;

    if (active) {
        /* We do this in case queue_window_progress gets reset */
        if (progress_timeout_handle < 0) {
            progress_timeout_handle =
                gtk_timeout_add (80, progress_timeout,
                         queue_window_progress);
        } else {
            gtk_timeout_remove (progress_timeout_handle);
            progress_timeout_handle =
                gtk_timeout_add (80, progress_timeout,
                         queue_window_progress);
        }
    } else {
        if (progress_timeout_handle >= 0) {
            gtk_timeout_remove (progress_timeout_handle);
            progress_timeout_handle = -1;
        }
    }
}

/* This can theoretically run into problems where if a short operation starts
 * and finishes, then another short operation starts and finishes a second
 * later, we will see the window prematurely. My response: oh noooooo!
 *
 * Solution: keep the timeout's handle and remove the timeout upon reception
 * of FINISH, and zero out the handle in this function. Whatever.
 */
static gboolean
display_timeout (gpointer data)
{
    if (queue_len > 0 && queue_window) {
        gtk_widget_show (queue_window);
        gnome_win_hints_set_layer (queue_window, WIN_LAYER_ONTOP);
        gnome_win_hints_set_state (queue_window,
                       WIN_STATE_ARRANGE_IGNORE);
        gnome_win_hints_set_hints (queue_window,
                       WIN_HINTS_SKIP_FOCUS |
                       WIN_HINTS_SKIP_WINLIST |
                       WIN_HINTS_SKIP_TASKBAR);

        if (queue_len == 1)
            gtk_widget_hide (queue_window_pending);
    }

    return FALSE;
}

static closure_t *
new_closure (const mail_operation_spec * spec, gpointer input,
         gboolean free_in_data)
{
    closure_t *clur;

    clur = g_new0 (closure_t, 1);
    clur->spec = spec;
    clur->in_data = input;
    clur->free_in_data = free_in_data;
    clur->ex = camel_exception_new ();

    clur->op_data = g_malloc (spec->datasize);

    camel_exception_init (clur->ex);

    clur->infinitive = (spec->describe) (input, FALSE);
    clur->gerund = (spec->describe) (input, TRUE);

    return clur;
}

static void
free_closure (closure_t *clur)
{
    clur->spec = NULL;

    if (clur->free_in_data)
        g_free (clur->in_data);
    clur->in_data = NULL;

    g_free (clur->op_data);
    clur->op_data = NULL;

    camel_exception_free (clur->ex);
    clur->ex = NULL;

    g_free (clur->infinitive);
    g_free (clur->gerund);

    g_free (clur);
}