path: root/mail/mail-callbacks.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* mail-ops.c: callbacks for the mail toolbar/menus */

/* 
 * Author : 
 *  Dan Winship <danw@helixcode.com>
 *  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 Place, Suite 330, Boston, MA 02111-1307
 * USA
 */

#include <config.h>
#include <errno.h>
#include <gnome.h>
#include <libgnomeprint/gnome-print-master.h>
#include <libgnomeprint/gnome-print-master-preview.h>
#include "mail.h"
#include "mail-config.h"
#include "mail-threads.h"
#include "mail-tools.h"
#include "mail-ops.h"
#include "mail-local.h"
#include "folder-browser.h"
#include "filter/filter-editor.h"
#include "filter/filter-driver.h"
#include "widgets/e-table/e-table.h"

/* FIXME: is there another way to do this? */
#include "Evolution.h"
#include "evolution-storage.h"

#include "evolution-shell-client.h"

#ifndef HAVE_MKSTEMP
#include <fcntl.h>
#include <sys/stat.h>
#endif

struct post_send_data {
    CamelFolder *folder;
    gchar *uid;
    guint32 flags;
};

static gboolean
check_configured (FolderBrowser *fb)
{
    if (mail_config_is_configured ())
        return TRUE;

    if (fb) {
        mail_config_druid (fb->shell);
        return mail_config_is_configured ();
    } else
        return FALSE;
}

static gboolean
check_send_configuration (FolderBrowser *fb)
{
    MailConfigService *xport = NULL;

    /* Check general */
    
    if (!check_configured (fb)) {
        GtkWidget *message;
        
        message = gnome_warning_dialog_parented (_("You need to configure the mail client\n"
                               "before you can compose mail."),
                             GTK_WINDOW (gtk_widget_get_ancestor (GTK_WIDGET (fb),
                                                  GTK_TYPE_WINDOW)));
        mail_dialog_run_and_close (GNOME_DIALOG (message));
        return FALSE;
    }

    /* Check for an identity */

    if (!mail_config_get_default_identity ()) {
        GtkWidget *message;
        
        message = gnome_warning_dialog_parented (_("You need to configure an identity\n"
                               "before you can compose mail."),
                             GTK_WINDOW (gtk_widget_get_ancestor (GTK_WIDGET (fb),
                                                  GTK_TYPE_WINDOW)));
        mail_dialog_run_and_close (GNOME_DIALOG (message));
        return FALSE;
    }
    
    /* Check for a transport */
    
    xport = mail_config_get_transport ();
    if (!xport || !xport->url) {
        GtkWidget *message;
        
        message = gnome_warning_dialog_parented (_("You need to configure a mail transport\n"
                               "before you can compose mail."),
                             GTK_WINDOW (gtk_widget_get_ancestor (GTK_WIDGET (fb),
                                                  GTK_TYPE_WINDOW)));
        mail_dialog_run_and_close (GNOME_DIALOG (message));
        return FALSE;
    }

    return TRUE;
}

static void
main_select_first_unread (CamelObject *object, gpointer event_data, gpointer data)
{
    FolderBrowser *fb = FOLDER_BROWSER (data);
    /*ETable *table = E_TABLE_SCROLLED (fb->message_list->etable)->table;*/
  
    message_list_select (fb->message_list, -1, MESSAGE_LIST_SELECT_NEXT,
                 0, CAMEL_MESSAGE_SEEN);
}

static void
select_first_unread (CamelObject *object, gpointer event_data, gpointer data)
{
    mail_op_forward_event (main_select_first_unread, object, event_data, data);
}

void
fetch_mail (GtkWidget *button, gpointer user_data)
{
    GSList *sources;

    if (!check_configured (FOLDER_BROWSER (user_data))) {
        GtkWidget *win = gtk_widget_get_ancestor (GTK_WIDGET (user_data),
                              GTK_TYPE_WINDOW);

        gnome_error_dialog_parented ("You have no mail sources "
                         "configured", GTK_WINDOW (win));
        return;
    }

    sources = mail_config_get_sources ();

    if (!sources || !sources->data) {
        GtkWidget *win = gtk_widget_get_ancestor (GTK_WIDGET (user_data),
                              GTK_TYPE_WINDOW);

        gnome_error_dialog_parented ("You have no mail sources "
                         "configured", GTK_WINDOW (win));
        return;
    }

    while (sources) {
        MailConfigService *source;

        source = (MailConfigService *) sources->data;
        sources = sources->next;

        if (!source || !source->url) {
            g_warning ("Bad source in fetch_mail??");
            continue;
        }

        mail_do_fetch_mail (source->url, source->keep_on_server, 
                    NULL, select_first_unread, user_data);
    }
}

static gboolean
ask_confirm_for_empty_subject (EMsgComposer *composer)
{
    GtkWidget *message_box;
    int button;

    message_box = gnome_message_box_new (_("This message has no subject.\nReally send?"),
                         GNOME_MESSAGE_BOX_QUESTION,
                         GNOME_STOCK_BUTTON_YES, GNOME_STOCK_BUTTON_NO,
                         NULL);

    button = mail_dialog_run_and_close (GNOME_DIALOG (message_box));

    if (button == 0)
        return TRUE;
    else
        return FALSE;
}

static void
free_psd (struct post_send_data *psd)
{
    if (!psd)
        return;

    if (psd->folder)
        camel_object_unref (CAMEL_OBJECT (psd->folder));
    if (psd->uid)
        g_free (psd->uid);
    g_free (psd);
}

void
composer_send_cb (EMsgComposer *composer, gpointer data)
{
    gchar *from = NULL;
    const MailConfigIdentity *id = NULL;
    MailConfigService *xport = NULL;
    CamelMimeMessage *message;
    const char *subject;

    struct post_send_data *psd = data;

    /* Config info */

    id = mail_config_get_default_identity ();
    xport = mail_config_get_transport ();

    /* Generate our from address */
    
    from = g_strdup (e_msg_composer_hdrs_get_from (E_MSG_COMPOSER_HDRS (composer->hdrs)));
    if (!from) {
        CamelInternetAddress *ciaddr;
        
        ciaddr = camel_internet_address_new ();
        camel_internet_address_add (ciaddr, id->name, id->address);
        from = camel_address_encode (CAMEL_ADDRESS (ciaddr));
        camel_object_unref (CAMEL_OBJECT (ciaddr));
    }
    
    /* Get the message */
    
    message = e_msg_composer_get_message (composer);

    /* Check for no subject */

    subject = camel_mime_message_get_subject (message);
    if (subject == NULL || subject[0] == '\0') {
        if (! ask_confirm_for_empty_subject (composer)) {
            camel_object_unref (CAMEL_OBJECT (message));
            free_psd (psd); /* will take care of psd == NULL */
            return;
        }
    }

    if (psd) {
        mail_do_send_mail (xport->url, message, from,
                   psd->folder, psd->uid, psd->flags, 
                   GTK_WIDGET (composer));
    } else {
        mail_do_send_mail (xport->url, message, from,
                   NULL, NULL, 0,
                   GTK_WIDGET (composer));
    }

    free_psd (psd);
}

static GtkWidget *
create_msg_composer (const char *url)
{
       MailConfigIdentity *id;
       gboolean send_html;
       gchar *sig_file = NULL;
       GtkWidget *composer_widget;

       id = mail_config_get_default_identity ();
       send_html = mail_config_send_html ();

       if (id)
               sig_file = id->sig;

       if (url != NULL)
               composer_widget = e_msg_composer_new_from_url (url);
       else
               composer_widget = e_msg_composer_new_with_sig_file (sig_file);

       e_msg_composer_set_send_html (E_MSG_COMPOSER (composer_widget), 
                                     send_html);

       return composer_widget;
}

void
compose_msg (GtkWidget *widget, gpointer user_data)
{
    GtkWidget *composer;

    if (!check_send_configuration (FOLDER_BROWSER (user_data)))
        return;

    composer = create_msg_composer (NULL);

    gtk_signal_connect (GTK_OBJECT (composer), "send",
                GTK_SIGNAL_FUNC (composer_send_cb), NULL);
    gtk_widget_show (composer);
}

/* Send according to a mailto (RFC 2368) URL. */
void
send_to_url (const char *url)
{
    GtkWidget *composer;

    /* FIXME: no way to get folder browser? Not without
     * big pain in the ass, as far as I can tell */
    if (!check_send_configuration (NULL))
        return;

    composer = create_msg_composer (url);

    gtk_signal_connect (GTK_OBJECT (composer), "send",
                GTK_SIGNAL_FUNC (composer_send_cb), NULL);
    gtk_widget_show (composer);
}   

void
mail_reply (CamelFolder *folder, CamelMimeMessage *msg, const char *uid, gboolean to_all)
{
    EMsgComposer *composer;
    struct post_send_data *psd;

    /* FIXME: I just don't feel like implementing the folder-browser-passing
     * garbage. */
    if (!check_send_configuration (NULL) || !folder ||
        !msg || !uid)
        return;

    psd = g_new (struct post_send_data, 1);
    psd->folder = folder;
    camel_object_ref (CAMEL_OBJECT (psd->folder));
    psd->uid = g_strdup (uid);
    psd->flags = CAMEL_MESSAGE_ANSWERED;

    composer = mail_generate_reply (msg, to_all);

    gtk_signal_connect (GTK_OBJECT (composer), "send",
                GTK_SIGNAL_FUNC (composer_send_cb), psd); 

    gtk_widget_show (GTK_WIDGET (composer));    
}

void
reply_to_sender (GtkWidget *widget, gpointer user_data)
{
    FolderBrowser *fb = FOLDER_BROWSER (user_data);

    mail_reply (fb->folder, fb->mail_display->current_message, 
           fb->message_list->cursor_uid, FALSE);
}

void
reply_to_all (GtkWidget *widget, gpointer user_data)
{
    FolderBrowser *fb = FOLDER_BROWSER (user_data);

    mail_reply (fb->folder, fb->mail_display->current_message, 
           fb->message_list->cursor_uid, TRUE);
}

static void
enumerate_msg (MessageList *ml, const char *uid, gpointer data)
{
    g_ptr_array_add ((GPtrArray *) data, g_strdup (uid));
}


void
forward_msg (GtkWidget *widget, gpointer user_data)
{
    FolderBrowser *fb = FOLDER_BROWSER (user_data);
    EMsgComposer *composer;
    CamelMimeMessage *cursor_msg;
    GPtrArray *uids;

    cursor_msg = fb->mail_display->current_message;
    if (!check_send_configuration (fb) || !cursor_msg)
        return;

    composer = E_MSG_COMPOSER (e_msg_composer_new ());

    uids = g_ptr_array_new();
    message_list_foreach (fb->message_list, enumerate_msg, uids);

    gtk_signal_connect (GTK_OBJECT (composer), "send",
                GTK_SIGNAL_FUNC (composer_send_cb), NULL);

    mail_do_forward_message (cursor_msg,
                 fb->message_list->folder,
                 uids,
                 composer);
}

static void
transfer_msg (GtkWidget *widget, gpointer user_data, gboolean delete_from_source)
{
    FolderBrowser *fb = user_data;
    MessageList *ml = fb->message_list;
    GPtrArray *uids;
    char *uri, *physical, *path;
    char *desc;
    const char *allowed_types[] = { "mail", NULL };
    extern EvolutionShellClient *global_shell_client;
    static char *last = NULL;

    if (last == NULL)
        last = g_strdup ("");

    if (delete_from_source)
        desc = _("Move message(s) to");
    else
        desc = _("Copy message(s) to");

    evolution_shell_client_user_select_folder  (global_shell_client,
                            desc,
                            last, allowed_types, &uri, &physical);
    if (!uri)
        return;

    path = strchr (uri, '/');
    if (path && strcmp (last, path) != 0) {
        g_free (last);
        last = g_strdup (path);
    }
    g_free (uri);

    uids = g_ptr_array_new ();
    message_list_foreach (ml, enumerate_msg, uids);
    mail_do_transfer_messages (ml->folder, uids, delete_from_source, physical);
}

void
move_msg (GtkWidget *widget, gpointer user_data)
{
    transfer_msg (widget, user_data, TRUE);
}

void
copy_msg (GtkWidget *widget, gpointer user_data)
{
    transfer_msg (widget, user_data, FALSE);
}

void
mark_all_seen (BonoboUIHandler *uih, void *user_data, const char *path)
{
        FolderBrowser *fb = FOLDER_BROWSER(user_data);
        MessageList *ml = fb->message_list;

    if (ml->folder == NULL)
        return;

    mail_do_flag_all_messages (ml->folder, FALSE,
                   CAMEL_MESSAGE_SEEN, CAMEL_MESSAGE_SEEN);
}

void
mark_all_deleted (BonoboUIHandler *uih, void *user_data, const char *path)
{
    FolderBrowser *fb = FOLDER_BROWSER (user_data);
    MessageList *ml = fb->message_list;

    if (ml->folder == NULL)
        return;

    mail_do_flag_all_messages (ml->folder, FALSE,
                   CAMEL_MESSAGE_DELETED, CAMEL_MESSAGE_DELETED);
}

                   
void
edit_msg (GtkWidget *widget, gpointer user_data)
{
    FolderBrowser *fb = FOLDER_BROWSER (user_data);
    GPtrArray *uids;
    extern CamelFolder *drafts_folder;

    if (fb->folder != drafts_folder) {
        GtkWidget *message;

        message = gnome_warning_dialog (_("You may only edit messages saved\n"
                               "in the Drafts folder."));
        mail_dialog_run_and_close (GNOME_DIALOG (message));
        return;
    }

    if (!check_send_configuration (fb))
        return;

    uids = g_ptr_array_new();
    message_list_foreach (fb->message_list, enumerate_msg, uids);

    mail_do_edit_messages (fb->folder, uids, (GtkSignalFunc) composer_send_cb);
}

void
delete_msg (GtkWidget *button, gpointer user_data)
{
    FolderBrowser *fb = user_data;
    MessageList *ml = fb->message_list;
    GPtrArray *uids;

    uids = g_ptr_array_new ();
    message_list_foreach (ml, enumerate_msg, uids);
    if (uids->len == 1) {
        guint32 flags;
        char *uid = uids->pdata[0];

        mail_tool_camel_lock_up ();
        flags = camel_folder_get_message_flags (ml->folder, uid);
        camel_folder_set_message_flags (ml->folder, uid,
                        CAMEL_MESSAGE_DELETED,
                        ~flags);
        mail_tool_camel_lock_down ();
    } else {
        mail_do_flag_messages (ml->folder, uids, TRUE,
                       CAMEL_MESSAGE_DELETED,
                       CAMEL_MESSAGE_DELETED);
    }
}

void
expunge_folder (BonoboUIHandler *uih, void *user_data, const char *path)
{
    FolderBrowser *fb = FOLDER_BROWSER(user_data);

    e_table_model_pre_change (fb->message_list->table_model);

    if (fb->message_list->folder)
        mail_do_expunge_folder (fb->message_list->folder);
}

static void
filter_druid_clicked (GtkWidget *w, int button, FolderBrowser *fb)
{
    FilterContext *fc;

    if (button == 0) {
        char *user;

        fc = gtk_object_get_data (GTK_OBJECT (w), "context");
        user = g_strdup_printf ("%s/filters.xml", evolution_dir);
        rule_context_save ((RuleContext *)fc, user);
        g_free (user);
    }
    
    if (button != -1) {
        gnome_dialog_close (GNOME_DIALOG (w));
    }
}

void
filter_edit (BonoboUIHandler *uih, void *user_data, const char *path)
{
    FolderBrowser *fb = FOLDER_BROWSER (user_data);
    FilterContext *fc;
    char *user, *system;
    GtkWidget *w;

    fc = filter_context_new();
    user = g_strdup_printf ("%s/filters.xml", evolution_dir);
    system = g_strdup_printf ("%s/evolution/filtertypes.xml", EVOLUTION_DATADIR);
    rule_context_load ((RuleContext *)fc, system, user, NULL, NULL);
    g_free (user);
    g_free (system);

    if (((RuleContext *)fc)->error) {
        GtkWidget *dialog;
        gchar *err;

        err = g_strdup_printf (_("Error loading filter information:\n"
                     "%s"), ((RuleContext *)fc)->error);
        dialog = gnome_warning_dialog (err);
        g_free (err);
        
        mail_dialog_run_and_close (GNOME_DIALOG (dialog));
        return;
    }

    w = filter_editor_construct (fc);
    gtk_object_set_data_full (GTK_OBJECT (w), "context", fc, (GtkDestroyNotify)gtk_object_unref);
    gtk_signal_connect (GTK_OBJECT (w), "clicked", filter_druid_clicked, fb);
    gtk_widget_show (GTK_WIDGET (w));
}

void
vfolder_edit_vfolders (BonoboUIHandler *uih, void *user_data, const char *path)
{
        void vfolder_edit(void);

        vfolder_edit();
}

void
providers_config (BonoboUIHandler *uih, void *user_data, const char *path)
{
    mail_config ((FOLDER_BROWSER (user_data))->shell);
}

void
mail_print_msg (MailDisplay *md)
{
    GnomePrintMaster *print_master;
    GnomePrintContext *print_context;
    GtkWidget *preview;

    print_master = gnome_print_master_new ();

    print_context = gnome_print_master_get_context (print_master);
    gtk_html_print (md->html, print_context);

    preview = GTK_WIDGET (gnome_print_master_preview_new (
        print_master, "Mail Print Preview"));
    gtk_widget_show (preview);

    gtk_object_unref (GTK_OBJECT (print_master));
}

void
print_msg (GtkWidget *button, gpointer user_data)
{
    FolderBrowser *fb = user_data;

    mail_print_msg (fb->mail_display);
}

void
configure_folder(BonoboUIHandler *uih, void *user_data, const char *path)
{
    FolderBrowser *fb = FOLDER_BROWSER(user_data);

    local_reconfigure_folder(fb);
}

void
view_msg (GtkWidget *widget, gpointer user_data)
{
    FolderBrowser *fb = user_data;
    GPtrArray *uids;

    if (!fb->folder)
        return;

    uids = g_ptr_array_new ();
    message_list_foreach (fb->message_list, enumerate_msg, uids);
    mail_do_view_messages (fb->folder, uids, fb);
}

void
view_message (BonoboUIHandler *uih, void *user_data, const char *path)
{
        view_msg (NULL, user_data);
}

void
edit_message (BonoboUIHandler *uih, void *user_data, const char *path)
{
        edit_msg (NULL, user_data);
}

void
run_filter_ondemand (BonoboUIHandler *uih, gpointer user_data, const char *path)
{
    struct fb_ondemand_closure *oc = (struct fb_ondemand_closure *) user_data;
    FilterDriver *d;

    if (oc->fb->folder == NULL)
        return;

    printf ("Running filter \"%s\"\n", oc->rule->name);

    d = filter_driver_new (oc->fb->filter_context, 
                   mail_tool_filter_get_folder_func,
                   NULL);
    filter_driver_run (d, oc->fb->folder, oc->fb->folder,
               FILTER_SOURCE_DEMAND, TRUE,
               NULL, NULL, NULL);
}