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

-/*

- * Authors: Jeffrey Stedfast <fejj@ximian.com>

- *

- * Copyright 2003 Ximian, Inc. (www.ximian.com)

- *

- * This program is free software; you can redistribute it and/or modify

- * it under the terms of the GNU General Public License as published by

- * the Free Software Foundation; either version 2 of the License, or

- * (at your option) any later version.

- *

- * This program is distributed in the hope that it will be useful,

- * but WITHOUT ANY WARRANTY; without even the implied warranty of

- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

- * GNU General Public License for more details.

- *

- * You should have received a copy of the GNU General Public License

- * along with this program; if not, write to the Free Software

- * Foundation, Inc., 59 Temple Street #330, Boston, MA 02111-1307, USA.

- *

- */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-

-#include <stdio.h>

-#include <string.h>

-#include <sys/types.h>

-#include <sys/stat.h>

-#include <errno.h>

-#include <time.h>

-

-#include <camel/camel-stream-fs.h>

-#include <camel/camel-url-scanner.h>

-#include <camel/camel-file-utils.h>

-

-#include "em-filter-editor.h"

-

-#include <bonobo/bonobo-listener.h>

-#include <bonobo/bonobo-widget.h>

-#include <bonobo/bonobo-event-source.h>

-

-#include <libgnomevfs/gnome-vfs-mime.h>

-#include <libgnomevfs/gnome-vfs-mime-utils.h>

-#include <libgnomevfs/gnome-vfs-mime-handlers.h>

-#include <libgnome/gnome-i18n.h>

-

-#include "mail-component.h"

-#include "mail-mt.h"

-#include "mail-ops.h"

-#include "mail-tools.h"

-#include "mail-config.h"

-#include "message-tag-followup.h"

-

-#include <e-util/e-mktemp.h>

-#include <e-util/e-account-list.h>

-#include <e-util/e-dialog-utils.h>

-#include "widgets/misc/e-error.h"

-

-#include <gal/util/e-util.h>

-

-#include "em-utils.h"

-#include "em-composer-utils.h"

-#include "em-format-quote.h"

-#include "em-account-editor.h"

-

-static void emu_save_part_done (CamelMimePart *part, char *name, int done, void *data);

-

-extern struct _CamelSession *session;

-

-#define d(x)

-

-/**

- * em_utils_prompt_user:

- * @parent: parent window

- * @promptkey: gconf key to check if we should prompt the user or not.

- * @tag: e_error tag.

- * @arg0: The first of a NULL terminated list of arguments for the error.

- *

- * Convenience function to query the user with a Yes/No dialog and a

- * "Don't show this dialog again" checkbox. If the user checks that

- * checkbox, then @promptkey is set to %FALSE, otherwise it is set to

- * %TRUE.

- *

- * Returns %TRUE if the user clicks Yes or %FALSE otherwise.

- **/

-gboolean

-em_utils_prompt_user(GtkWindow *parent, const char *promptkey, const char *tag, const char *arg0, ...)

-{

- GtkWidget *mbox, *check = NULL;

- va_list ap;

- int button;

- GConfClient *gconf = mail_config_get_gconf_client();

-

- if (promptkey

- && !gconf_client_get_bool(gconf, promptkey, NULL))

- return TRUE;

-

- va_start(ap, arg0);

- mbox = e_error_newv(parent, tag, arg0, ap);

- va_end(ap);

-

- if (promptkey) {

- check = gtk_check_button_new_with_label (_("Don't show this message again."));

- gtk_container_set_border_width((GtkContainer *)check, 12);

- gtk_box_pack_start ((GtkBox *)((GtkDialog *) mbox)->vbox, check, TRUE, TRUE, 0);

- gtk_widget_show (check);

- }

-

- button = gtk_dialog_run ((GtkDialog *) mbox);

- if (promptkey)

- gconf_client_set_bool(gconf, promptkey, !gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(check)), NULL);

-

- gtk_widget_destroy(mbox);

-

- return button == GTK_RESPONSE_YES;

-}

-

-/**

- * em_utils_uids_copy:

- * @uids: array of uids

- *

- * Duplicates the array of uids held by @uids into a new

- * GPtrArray. Use em_utils_uids_free() to free the resultant uid

- * array.

- *

- * Returns a duplicate copy of @uids.

- **/

-GPtrArray *

-em_utils_uids_copy (GPtrArray *uids)

-{

- GPtrArray *copy;

- int i;

-

- copy = g_ptr_array_new ();

- g_ptr_array_set_size (copy, uids->len);

-

- for (i = 0; i < uids->len; i++)

- copy->pdata[i] = g_strdup (uids->pdata[i]);

-

- return copy;

-}

-

-/**

- * em_utils_uids_free:

- * @uids: array of uids

- *

- * Frees the array of uids pointed to by @uids back to the system.

- **/

-void

-em_utils_uids_free (GPtrArray *uids)

-{

- int i;

-

- for (i = 0; i < uids->len; i++)

- g_free (uids->pdata[i]);

-

- g_ptr_array_free (uids, TRUE);

-}

-

-static void

-druid_destroy_cb (gpointer user_data, GObject *deadbeef)

-{

- gtk_main_quit ();

-}

-

-/**

- * em_utils_configure_account:

- * @parent: parent window for the druid to be a child of.

- *

- * Displays a druid allowing the user to configure an account. If

- * @parent is non-NULL, then the druid will be created as a child

- * window of @parent's toplevel window.

- *

- * Returns %TRUE if an account has been configured or %FALSE

- * otherwise.

- **/

-gboolean

-em_utils_configure_account (GtkWidget *parent)

-{

- EMAccountEditor *emae;

-

- emae = em_account_editor_new(NULL, EMAE_DRUID);

- if (parent != NULL)

- e_dialog_set_transient_for((GtkWindow *)emae->editor, parent);

-

- g_object_weak_ref((GObject *)emae->editor, (GWeakNotify) druid_destroy_cb, NULL);

- gtk_widget_show(emae->editor);

- gtk_grab_add(emae->editor);

- gtk_main();

-

- return mail_config_is_configured();

-}

-

-/**

- * em_utils_check_user_can_send_mail:

- * @parent: parent window for the druid to be a child of.

- *

- * If no accounts have been configured, the user will be given a

- * chance to configure an account. In the case that no accounts are

- * configured, a druid will be created. If @parent is non-NULL, then

- * the druid will be created as a child window of @parent's toplevel

- * window.

- *

- * Returns %TRUE if the user has an account configured (to send mail)

- * or %FALSE otherwise.

- **/

-gboolean

-em_utils_check_user_can_send_mail (GtkWidget *parent)

-{

- EAccount *account;

-

- if (!mail_config_is_configured ()) {

- if (!em_utils_configure_account (parent))

- return FALSE;

- }

-

- if (!(account = mail_config_get_default_account ()))

- return FALSE;

-

- /* Check for a transport */

- if (!account->transport->url)

- return FALSE;

-

- return TRUE;

-}

-

-/* Editing Filters/vFolders... */

-

-static GtkWidget *filter_editor = NULL;

-

-static void

-em_filter_editor_response (GtkWidget *dialog, int button, gpointer user_data)

-{

- EMFilterContext *fc;

-

- if (button == GTK_RESPONSE_OK) {

- char *user;

-

- fc = g_object_get_data ((GObject *) dialog, "context");

- user = g_strdup_printf ("%s/mail/filters.xml",

- mail_component_peek_base_directory (mail_component_peek ()));

- rule_context_save ((RuleContext *) fc, user);

- g_free (user);

- }

-

- gtk_widget_destroy (dialog);

-

- filter_editor = NULL;

-}

-

-static const char *em_filter_source_element_names[] = {

- "incoming",

- "outgoing",

- NULL,

-};

-

-/**

- * em_utils_edit_filters:

- * @parent: parent window

- *

- * Opens or raises the filters editor dialog so that the user may edit

- * his/her filters. If @parent is non-NULL, then the dialog will be

- * created as a child window of @parent's toplevel window.

- **/

-void

-em_utils_edit_filters (GtkWidget *parent)

-{

- const char *base_directory = mail_component_peek_base_directory (mail_component_peek ());

- char *user, *system;

- EMFilterContext *fc;

-

- if (filter_editor) {

- gdk_window_raise (GTK_WIDGET (filter_editor)->window);

- return;

- }

-

- fc = em_filter_context_new ();

- user = g_strdup_printf ("%s/mail/filters.xml", base_directory);

- system = EVOLUTION_PRIVDATADIR "/filtertypes.xml";

- rule_context_load ((RuleContext *) fc, system, user);

- g_free (user);

-

- if (((RuleContext *) fc)->error) {

- e_error_run((GtkWindow *)parent, "mail:filter-load-error", ((RuleContext *)fc)->error, NULL);

- return;

- }

-

- filter_editor = (GtkWidget *) em_filter_editor_new (fc, em_filter_source_element_names);

- if (parent != NULL)

- e_dialog_set_transient_for ((GtkWindow *) filter_editor, parent);

-

- gtk_window_set_title (GTK_WINDOW (filter_editor), _("Filters"));

- g_object_set_data_full ((GObject *) filter_editor, "context", fc, (GtkDestroyNotify) g_object_unref);

- g_signal_connect (filter_editor, "response", G_CALLBACK (em_filter_editor_response), NULL);

- gtk_widget_show (GTK_WIDGET (filter_editor));

-}

-

-/* Saving messages... */

-

-static GtkWidget *

-emu_get_save_filesel (GtkWidget *parent, const char *title, const char *name)

-{

- GtkWidget *filesel;

- const char *dir;

- char *realname, *filename, *gdir;

- GConfClient *gconf;

-

-#ifdef USE_GTKFILECHOOSER

- filesel = gtk_file_chooser_dialog_new (title,

- NULL,

- GTK_FILE_CHOOSER_ACTION_SAVE,

- GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,

- GTK_STOCK_SAVE, GTK_RESPONSE_OK,

- NULL);

- gtk_dialog_set_default_response (GTK_DIALOG (filesel), GTK_RESPONSE_OK);

-#else

- filesel = gtk_file_selection_new (title);

-#endif

-

- if (parent)

- e_dialog_set_transient_for((GtkWindow *)filesel, parent);

-

- gconf = gconf_client_get_default();

- dir = gdir = gconf_client_get_string(gconf, "/apps/evolution/mail/save_dir", NULL);

- g_object_unref(gconf);

-

- if (dir == NULL)

- dir = g_get_home_dir();

-

- if (name && name[0]) {

- realname = g_strdup (name);

- e_filename_make_safe (realname);

- } else {

- realname = NULL;

- }

-

-#ifdef USE_GTKFILECHOOSER

- gtk_file_chooser_set_current_folder (GTK_FILE_CHOOSER (filesel), dir);

-

- if (realname)

- gtk_file_chooser_set_current_name (GTK_FILE_CHOOSER (filesel), realname);

-#else

- filename = g_build_filename (dir, G_DIR_SEPARATOR_S, realname, NULL);

- gtk_file_selection_set_filename (GTK_FILE_SELECTION (filesel), filename);

- g_free (filename);

-#endif

-

- g_free (realname);

- g_free (gdir);

-

- return filesel;

-}

-

-static void

-emu_update_save_path(const char *filename)

-{

- char *dir = g_path_get_dirname(filename);

- GConfClient *gconf = gconf_client_get_default();

-

- gconf_client_set_string(gconf, "/apps/evolution/mail/save_dir", dir, NULL);

- g_object_unref(gconf);

- g_free(dir);

-}

-

-static gboolean

-emu_can_save(GtkWindow *parent, const char *path)

-{

- struct stat st;

-

- if (!path || path[0] == 0)

- return FALSE;

-

- /* make sure we can actually save to it... */

- if (stat (path, &st) != -1 && !S_ISREG (st.st_mode))

- return FALSE;

-

- if (access (path, F_OK) == 0) {

- if (access (path, W_OK) != 0) {

- e_error_run(parent, "mail:no-save-path", path, g_strerror(errno), NULL);

- return FALSE;

- }

-

- return e_error_run(parent, E_ERROR_ASK_FILE_EXISTS_OVERWRITE, path, NULL) == GTK_RESPONSE_OK;

- }

-

- return TRUE;

-}

-

-static void

-emu_save_part_response(GtkWidget *filesel, int response, CamelMimePart *part)

-{

- const char *path;

-

- if (response == GTK_RESPONSE_OK) {

-#ifdef USE_GTKFILECHOOSER

- path = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (filesel));

-#else

- path = gtk_file_selection_get_filename (GTK_FILE_SELECTION (filesel));

-#endif

-

- if (!emu_can_save((GtkWindow *)filesel, path))

- return;

-

- emu_update_save_path(path);

- /* FIXME: popup error if it fails? */

- mail_save_part(part, path, NULL, NULL);

- }

-

- gtk_widget_destroy((GtkWidget *)filesel);

- camel_object_unref(part);

-}

-

-/**

- * em_utils_save_part:

- * @parent: parent window

- * @prompt: prompt string

- * @part: part to save

- *

- * Saves a mime part to disk (prompting the user for filename).

- **/

-void

-em_utils_save_part(GtkWidget *parent, const char *prompt, CamelMimePart *part)

-{

- const char *name;

- GtkWidget *filesel;

-

- name = camel_mime_part_get_filename(part);

- if (name == NULL) {

- if (CAMEL_IS_MIME_MESSAGE(part)) {

- name = camel_mime_message_get_subject((CamelMimeMessage *)part);

- if (name == NULL)

- name = _("message");

- } else {

- name = _("attachment");

- }

- }

-

- filesel = emu_get_save_filesel(parent, prompt, name);

- camel_object_ref(part);

- g_signal_connect (filesel, "response", G_CALLBACK (emu_save_part_response), part);

- gtk_widget_show (filesel);

-}

-

-/**

- * em_utils_save_part_to_file:

- * @parent: parent window

- * @filename: filename to save to

- * @part: part to save

- *

- * Save a part's content to a specific file

- * Creates all needed directories and overwrites without prompting

- *

- * Returns %TRUE if saving succeeded, %FALSE otherwise

- **/

-gboolean

-em_utils_save_part_to_file(GtkWidget *parent, const char *filename, CamelMimePart *part)

-{

- int done;

- char *dirname;

- struct stat st;

-

- if (filename[0] == 0)

- return FALSE;

-

- dirname = g_path_get_dirname(filename);

- if (camel_mkdir(dirname, 0777) == -1) {

- e_error_run((GtkWindow *)parent, "mail:no-create-path", filename, g_strerror(errno), NULL);

- g_free(dirname);

- return FALSE;

- }

- g_free(dirname);

-

- if (access(filename, F_OK) == 0) {

- if (access(filename, W_OK) != 0) {

- e_error_run((GtkWindow *)parent, E_ERROR_ASK_FILE_EXISTS_OVERWRITE, filename, NULL);

- return FALSE;

- }

- }

-

- if (stat(filename, &st) != -1 && !S_ISREG(st.st_mode)) {

- e_error_run((GtkWindow *)parent, "mail:no-write-path-notfile", filename, NULL);

- return FALSE;

- }

-

- /* FIXME: This doesn't handle default charsets */

- mail_msg_wait(mail_save_part(part, filename, emu_save_part_done, &done));

-

- return done;

-}

-

-struct _save_messages_data {

- CamelFolder *folder;

- GPtrArray *uids;

-};

-

-static void

-emu_save_messages_response(GtkWidget *filesel, int response, struct _save_messages_data *data)

-{

- const char *path;

-

- if (response == GTK_RESPONSE_OK) {

-#ifdef USE_GTKFILECHOOSER

- path = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (filesel));

-#else

- path = gtk_file_selection_get_filename (GTK_FILE_SELECTION (filesel));

-#endif

-

- if (!emu_can_save((GtkWindow *)filesel, path))

- return;

-

- emu_update_save_path(path);

- mail_save_messages(data->folder, data->uids, path, NULL, NULL);

- data->uids = NULL;

- }

-

- camel_object_unref(data->folder);

- if (data->uids)

- em_utils_uids_free(data->uids);

- g_free(data);

- gtk_widget_destroy((GtkWidget *)filesel);

-}

-

-/**

- * em_utils_save_messages:

- * @parent: parent window

- * @folder: folder containing messages to save

- * @uids: uids of messages to save

- *

- * Saves a group of messages to disk in mbox format (prompting the

- * user for filename).

- **/

-void

-em_utils_save_messages (GtkWidget *parent, CamelFolder *folder, GPtrArray *uids)

-{

- struct _save_messages_data *data;

- GtkWidget *filesel;

-

- g_return_if_fail (CAMEL_IS_FOLDER (folder));

- g_return_if_fail (uids != NULL);

-

- filesel = emu_get_save_filesel(parent, _("Save Message..."), NULL);

- camel_object_ref(folder);

-

- data = g_malloc(sizeof(struct _save_messages_data));

- data->folder = folder;

- data->uids = uids;

-

- g_signal_connect(filesel, "response", G_CALLBACK(emu_save_messages_response), data);

- gtk_widget_show((GtkWidget *)filesel);

-}

-

-/* ********************************************************************** */

-

-static void

-emu_add_address_cb(BonoboListener *listener, const char *name, const CORBA_any *any, CORBA_Environment *ev, void *data)

-{

- char *type = bonobo_event_subtype(name);

-

- if (!strcmp(type, "Destroy"))

- gtk_widget_destroy((GtkWidget *)data);

-

- g_free(type);

-}

-

-/**

- * em_utils_add_address:

- * @parent:

- * @email:

- *

- * Add address @email to the addressbook.

- **/

-void em_utils_add_address(struct _GtkWidget *parent, const char *email)

-{

- CamelInternetAddress *cia;

- GtkWidget *win;

- GtkWidget *control;

- /*GtkWidget *socket;*/

- char *buf;

-

- cia = camel_internet_address_new ();

- if (camel_address_decode ((CamelAddress *) cia, email) == -1) {

- camel_object_unref (cia);

- return;

- }

-

- buf = camel_address_format ((CamelAddress *) cia);

- camel_object_unref (cia);

-

- win = gtk_window_new(GTK_WINDOW_TOPLEVEL);

- gtk_window_set_title((GtkWindow *)win, _("Add address"));

- gtk_window_set_transient_for((GtkWindow *)win, ((GtkWindow *)parent));

- gtk_window_set_position((GtkWindow *)win, GTK_WIN_POS_CENTER_ON_PARENT);

- gtk_window_set_type_hint((GtkWindow *)win, GDK_WINDOW_TYPE_HINT_DIALOG);

-

- control = bonobo_widget_new_control("OAFIID:GNOME_Evolution_Addressbook_AddressPopup:" BASE_VERSION, CORBA_OBJECT_NIL);

- bonobo_widget_set_property((BonoboWidget *)control, "email", TC_CORBA_string, buf, NULL);

- g_free (buf);

-

- bonobo_event_source_client_add_listener(bonobo_widget_get_objref((BonoboWidget *)control), emu_add_address_cb, NULL, NULL, win);

-

- /*socket = find_socket (GTK_CONTAINER (control));

- g_object_weak_ref ((GObject *) socket, (GWeakNotify) gtk_widget_destroy, win);*/

-

- gtk_container_add((GtkContainer *)win, control);

- gtk_widget_show_all(win);

-}

-

-/* ********************************************************************** */

-/* Flag-for-Followup... */

-

-/* tag-editor callback data */

-struct ted_t {

- MessageTagEditor *editor;

- CamelFolder *folder;

- GPtrArray *uids;

-};

-

-static void

-ted_free (struct ted_t *ted)

-{

- camel_object_unref (ted->folder);

- em_utils_uids_free (ted->uids);

- g_free (ted);

-}

-

-static void

-tag_editor_response (GtkWidget *dialog, int button, struct ted_t *ted)

-{

- CamelFolder *folder;

- CamelTag *tags, *t;

- GPtrArray *uids;

- int i;

-

- if (button == GTK_RESPONSE_OK && (tags = message_tag_editor_get_tag_list (ted->editor))) {

- folder = ted->folder;

- uids = ted->uids;

-

- camel_folder_freeze (folder);

- for (i = 0; i < uids->len; i++) {

- for (t = tags; t; t = t->next)

- camel_folder_set_message_user_tag (folder, uids->pdata[i], t->name, t->value);

- }

-

- camel_folder_thaw (folder);

- camel_tag_list_free (&tags);

- }

-

- gtk_widget_destroy (dialog);

-}

-

-/**

- * em_utils_flag_for_followup:

- * @parent: parent window

- * @folder: folder containing messages to flag

- * @uids: uids of messages to flag

- *

- * Open the Flag-for-Followup editor for the messages specified by

- * @folder and @uids.

- **/

-void

-em_utils_flag_for_followup (GtkWidget *parent, CamelFolder *folder, GPtrArray *uids)

-{

- GtkWidget *editor;

- struct ted_t *ted;

- int i;

-

- g_return_if_fail (CAMEL_IS_FOLDER (folder));

- g_return_if_fail (uids != NULL);

-

- editor = (GtkWidget *) message_tag_followup_new ();

-

- if (parent != NULL)

- e_dialog_set_transient_for ((GtkWindow *) editor, parent);

-

- camel_object_ref (folder);

-

- ted = g_new (struct ted_t, 1);

- ted->editor = MESSAGE_TAG_EDITOR (editor);

- ted->folder = folder;

- ted->uids = uids;

-

- for (i = 0; i < uids->len; i++) {

- CamelMessageInfo *info;

-

- info = camel_folder_get_message_info (folder, uids->pdata[i]);

- message_tag_followup_append_message (MESSAGE_TAG_FOLLOWUP (editor),

- camel_message_info_from (info),

- camel_message_info_subject (info));

- }

-

- /* special-case... */

- if (uids->len == 1) {

- CamelMessageInfo *info;

-

- info = camel_folder_get_message_info (folder, uids->pdata[0]);

- if (info) {

- const CamelTag *tags = camel_message_info_user_tags(info);

-

- if (tags)

- message_tag_editor_set_tag_list (MESSAGE_TAG_EDITOR (editor), tags);

- camel_folder_free_message_info (folder, info);

- }

- }

-

- g_signal_connect (editor, "response", G_CALLBACK (tag_editor_response), ted);

- g_object_weak_ref ((GObject *) editor, (GWeakNotify) ted_free, ted);

-

- gtk_widget_show (editor);

-}

-

-/**

- * em_utils_flag_for_followup_clear:

- * @parent: parent window

- * @folder: folder containing messages to unflag

- * @uids: uids of messages to unflag

- *

- * Clears the Flag-for-Followup flag on the messages referenced by

- * @folder and @uids.

- **/

-void

-em_utils_flag_for_followup_clear (GtkWidget *parent, CamelFolder *folder, GPtrArray *uids)

-{

- int i;

-

- g_return_if_fail (CAMEL_IS_FOLDER (folder));

- g_return_if_fail (uids != NULL);

-

- camel_folder_freeze (folder);

- for (i = 0; i < uids->len; i++) {

- camel_folder_set_message_user_tag (folder, uids->pdata[i], "follow-up", "");

- camel_folder_set_message_user_tag (folder, uids->pdata[i], "due-by", "");

- camel_folder_set_message_user_tag (folder, uids->pdata[i], "completed-on", "");

- }

- camel_folder_thaw (folder);

-

- em_utils_uids_free (uids);

-}

-

-/**

- * em_utils_flag_for_followup_completed:

- * @parent: parent window

- * @folder: folder containing messages to 'complete'

- * @uids: uids of messages to 'complete'

- *

- * Sets the completed state (and date/time) for each message

- * referenced by @folder and @uids that is marked for

- * Flag-for-Followup.

- **/

-void

-em_utils_flag_for_followup_completed (GtkWidget *parent, CamelFolder *folder, GPtrArray *uids)

-{

- char *now;

- int i;

-

- g_return_if_fail (CAMEL_IS_FOLDER (folder));

- g_return_if_fail (uids != NULL);

-

- now = camel_header_format_date (time (NULL), 0);

-

- camel_folder_freeze (folder);

- for (i = 0; i < uids->len; i++) {

- const char *tag;

-

- tag = camel_folder_get_message_user_tag (folder, uids->pdata[i], "follow-up");

- if (tag == NULL || *tag == '\0')

- continue;

-

- camel_folder_set_message_user_tag (folder, uids->pdata[i], "completed-on", now);

- }

- camel_folder_thaw (folder);

-

- g_free (now);

-

- em_utils_uids_free (uids);

-}

-

-#include "camel/camel-stream-mem.h"

-#include "camel/camel-stream-filter.h"

-#include "camel/camel-mime-filter-from.h"

-

-/* This kind of sucks, because for various reasons most callers need to run synchronously

- in the gui thread, however this could take a long, blocking time, to run */

-static int

-em_utils_write_messages_to_stream(CamelFolder *folder, GPtrArray *uids, CamelStream *stream)

-{

- CamelStreamFilter *filtered_stream;

- CamelMimeFilterFrom *from_filter;

- int i, res = 0;

-

- from_filter = camel_mime_filter_from_new();

- filtered_stream = camel_stream_filter_new_with_stream(stream);

- camel_stream_filter_add(filtered_stream, (CamelMimeFilter *)from_filter);

- camel_object_unref(from_filter);

-

- for (i=0; i<uids->len; i++) {

- CamelMimeMessage *message;

- char *from;

-

- message = camel_folder_get_message(folder, uids->pdata[i], NULL);

- if (message == NULL) {

- res = -1;

- break;

- }

-

- /* we need to flush after each stream write since we are writing to the same stream */

- from = camel_mime_message_build_mbox_from(message);

-

- if (camel_stream_write_string(stream, from) == -1

- || camel_stream_flush(stream) == -1

- || camel_data_wrapper_write_to_stream((CamelDataWrapper *)message, (CamelStream *)filtered_stream) == -1

- || camel_stream_flush((CamelStream *)filtered_stream) == -1)

- res = -1;

-

- g_free(from);

- camel_object_unref(message);

-

- if (res == -1)

- break;

- }

-

- camel_object_unref(filtered_stream);

-

- return res;

-}

-

-/* This kind of sucks, because for various reasons most callers need to run synchronously

- in the gui thread, however this could take a long, blocking time, to run */

-static int

-em_utils_read_messages_from_stream(CamelFolder *folder, CamelStream *stream)

-{

- CamelException *ex = camel_exception_new();

- CamelMimeParser *mp = camel_mime_parser_new();

- int res = -1;

-

- camel_mime_parser_scan_from(mp, TRUE);

- camel_mime_parser_init_with_stream(mp, stream);

-

- while (camel_mime_parser_step(mp, 0, 0) == CAMEL_MIME_PARSER_STATE_FROM) {

- CamelMimeMessage *msg;

-

- /* NB: de-from filter, once written */

- msg = camel_mime_message_new();

- if (camel_mime_part_construct_from_parser((CamelMimePart *)msg, mp) == -1) {

- camel_object_unref(msg);

- break;

- }

-

- camel_folder_append_message(folder, msg, NULL, NULL, ex);

- camel_object_unref(msg);

-

- if (camel_exception_is_set (ex))

- break;

-

- camel_mime_parser_step(mp, 0, 0);

- }

-

- camel_object_unref(mp);

- if (!camel_exception_is_set(ex))

- res = 0;

- camel_exception_free(ex);

-

- return res;

-}

-

-/**

- * em_utils_selection_set_mailbox:

- * @data: selection data

- * @folder: folder containign messages to copy into the selection

- * @uids: uids of the messages to copy into the selection

- *

- * Creates a mailbox-format selection.

- * Warning: Could be BIG!

- * Warning: This could block the ui for an extended period.

- **/

-void

-em_utils_selection_set_mailbox(GtkSelectionData *data, CamelFolder *folder, GPtrArray *uids)

-{

- CamelStream *stream;

-

- stream = camel_stream_mem_new();

- if (em_utils_write_messages_to_stream(folder, uids, stream) == 0)

- gtk_selection_data_set(data, data->target, 8,

- ((CamelStreamMem *)stream)->buffer->data,

- ((CamelStreamMem *)stream)->buffer->len);

-

- camel_object_unref(stream);

-}

-

-/**

- * em_utils_selection_get_mailbox:

- * @data: selection data

- * @folder:

- *

- * Receive a mailbox selection/dnd

- * Warning: Could be BIG!

- * Warning: This could block the ui for an extended period.

- * FIXME: Exceptions?

- **/

-void

-em_utils_selection_get_mailbox(GtkSelectionData *data, CamelFolder *folder)

-{

- CamelStream *stream;

-

- if (data->data == NULL || data->length == -1)

- return;

-

- /* TODO: a stream mem with read-only access to existing data? */

- /* NB: Although copying would let us run this async ... which it should */

- stream = camel_stream_mem_new_with_buffer(data->data, data->length);

- em_utils_read_messages_from_stream(folder, stream);

- camel_object_unref(stream);

-}

-

-/**

- * em_utils_selection_get_message:

- * @data:

- * @folder:

- *

- * get a message/rfc822 data.

- **/

-void

-em_utils_selection_get_message(GtkSelectionData *data, CamelFolder *folder)

-{

- CamelStream *stream;

- CamelException *ex;

- CamelMimeMessage *msg;

-

- if (data->data == NULL || data->length == -1)

- return;

-

- ex = camel_exception_new();

- stream = camel_stream_mem_new_with_buffer(data->data, data->length);

- msg = camel_mime_message_new();

- if (camel_data_wrapper_construct_from_stream((CamelDataWrapper *)msg, stream) == 0)

- camel_folder_append_message(folder, msg, NULL, NULL, ex);

- camel_object_unref(msg);

- camel_object_unref(stream);

- camel_exception_free(ex);

-}

-

-/**

- * em_utils_selection_set_uidlist:

- * @data: selection data

- * @uri:

- * @uids:

- *

- * Sets a "x-uid-list" format selection data.

- *

- * FIXME: be nice if this could take a folder argument rather than uri

- **/

-void

-em_utils_selection_set_uidlist(GtkSelectionData *data, const char *uri, GPtrArray *uids)

-{

- GByteArray *array = g_byte_array_new();

- int i;

-

- /* format: "uri\0uid1\0uid2\0uid3\0...\0uidn\0" */

-

- g_byte_array_append(array, uri, strlen(uri)+1);

-

- for (i=0; i<uids->len; i++)

- g_byte_array_append(array, uids->pdata[i], strlen(uids->pdata[i])+1);

-

- gtk_selection_data_set(data, data->target, 8, array->data, array->len);

- g_byte_array_free(array, TRUE);

-}

-

-/**

- * em_utils_selection_get_uidlist:

- * @data: selection data

- * @move: do we delete the messages.

- *

- * Convert a uid list into a copy/move operation.

- *

- * Warning: Could take some time to run.

- **/

-void

-em_utils_selection_get_uidlist(GtkSelectionData *data, CamelFolder *dest, int move, CamelException *ex)

-{

- /* format: "uri\0uid1\0uid2\0uid3\0...\0uidn" */

- char *inptr, *inend;

- GPtrArray *uids;

- CamelFolder *folder;

-

- if (data == NULL || data->data == NULL || data->length == -1)

- return;

-

- uids = g_ptr_array_new();

-

- inptr = data->data;

- inend = data->data + data->length;

- while (inptr < inend) {

- char *start = inptr;

-

- while (inptr < inend && *inptr)

- inptr++;

-

- if (start > (char *)data->data)

- g_ptr_array_add(uids, g_strndup(start, inptr-start));

-

- inptr++;

- }

-

- if (uids->len == 0) {

- g_ptr_array_free(uids, TRUE);

- return;

- }

-

- folder = mail_tool_uri_to_folder(data->data, 0, ex);

- if (folder) {

- camel_folder_transfer_messages_to(folder, uids, dest, NULL, move, ex);

- camel_object_unref(folder);

- }

-

- em_utils_uids_free(uids);

-}

-

-/**

- * em_utils_selection_set_urilist:

- * @data:

- * @folder:

- * @uids:

- *

- * Set the selection data @data to a uri which points to a file, which is

- * a berkely mailbox format mailbox. The file is automatically cleaned

- * up when the application quits.

- **/

-void

-em_utils_selection_set_urilist(GtkSelectionData *data, CamelFolder *folder, GPtrArray *uids)

-{

- char *tmpdir;

- CamelStream *fstream;

- char *uri, *p, *file = NULL;

- int fd;

- CamelMessageInfo *info;

-

- tmpdir = e_mkdtemp("drag-n-drop-XXXXXX");

- if (tmpdir == NULL)

- return;

-

- /* Try to get the drop filename from the message or folder */

- if (uids->len == 1) {

- info = camel_folder_get_message_info(folder, uids->pdata[0]);

- if (info) {

- file = g_strdup(camel_message_info_subject(info));

- camel_folder_free_message_info(folder, info);

- }

- }

-

- /* TODO: Handle conflicts? */

- if (file == NULL) {

- /* Drop filename for messages from a mailbox */

- file = g_strdup_printf(_("Messages from %s"), folder->name);

- }

-

- e_filename_make_safe(file);

-

- p = uri = g_alloca (strlen (tmpdir) + strlen(file) + 16);

- p += sprintf (uri, "file:///%s/%s", tmpdir, file);

- g_free(tmpdir);

- g_free(file);

-

- fd = open(uri + 7, O_WRONLY | O_CREAT | O_EXCL, 0666);

- if (fd == -1)

- return;

-

- fstream = camel_stream_fs_new_with_fd(fd);

- if (fstream) {

- /* terminate with \r\n to be compliant with the spec */

- strcpy (p, "\r\n");

-

- if (em_utils_write_messages_to_stream(folder, uids, fstream) == 0)

- gtk_selection_data_set(data, data->target, 8, uri, strlen(uri));

-

- camel_object_unref(fstream);

- }

-}

-

-/**

- * em_utils_selection_set_urilist:

- * @data:

- * @folder:

- * @uids:

- *

- * Get the selection data @data from a uri list which points to a

- * file, which is a berkely mailbox format mailbox. The file is

- * automatically cleaned up when the application quits.

- **/

-void

-em_utils_selection_get_urilist(GtkSelectionData *data, CamelFolder *folder)

-{

- CamelStream *stream;

- CamelURL *url;

- int fd, i, res = 0;

- char *tmp, **uris;

-

- d(printf(" * drop uri list\n"));

-

- tmp = g_strndup(data->data, data->length);

- uris = g_strsplit(tmp, "\n", 0);

- g_free(tmp);

- for (i=0;res == 0 && uris[i];i++) {

- g_strstrip(uris[i]);

- if (uris[i][0] == '#')

- continue;

-

- url = camel_url_new(uris[i], NULL);

- if (url == NULL)

- continue;

-

- if (strcmp(url->protocol, "file") == 0

- && (fd = open(url->path, O_RDONLY)) != -1) {

- stream = camel_stream_fs_new_with_fd(fd);

- res = em_utils_read_messages_from_stream(folder, stream);

- camel_object_unref(stream);

- }

- camel_url_free(url);

- }

-

- g_strfreev(uris);

-}

-

-static void

-emu_save_part_done(CamelMimePart *part, char *name, int done, void *data)

-{

- ((int *)data)[0] = done;

-}

-

-/**

- * em_utils_temp_save_part:

- * @parent:

- * @part:

- *

- * Save a part's content to a temporary file, and return the

- * filename.

- *

- * Return value: NULL if anything failed.

- **/

-char *

-em_utils_temp_save_part(GtkWidget *parent, CamelMimePart *part)

-{

- const char *filename;

- char *tmpdir, *path, *mfilename = NULL;

- int done;

-

- tmpdir = e_mkdtemp("evolution-tmp-XXXXXX");

- if (tmpdir == NULL) {

- e_error_run((GtkWindow *)parent, "mail:no-create-tmp-path", g_strerror(errno), NULL);

- return NULL;

- }

-

- filename = camel_mime_part_get_filename (part);

- if (filename == NULL) {

- /* This is the default filename used for temporary file creation */

- filename = _("Unknown");

- } else {

- mfilename = g_strdup(filename);

- e_filename_make_safe(mfilename);

- filename = mfilename;

- }

-

- path = g_build_filename(tmpdir, filename, NULL);

- g_free(tmpdir);

- g_free(mfilename);

-

- /* FIXME: This doesn't handle default charsets */

- mail_msg_wait(mail_save_part(part, path, emu_save_part_done, &done));

-

- if (!done) {

- /* mail_save_part should popup an error box automagically */

- g_free(path);

- path = NULL;

- }

-

- return path;

-}

-

-

-/**

- * em_utils_folder_is_drafts:

- * @folder: folder

- * @uri: uri for this folder, if known

- *

- * Decides if @folder is a Drafts folder.

- *

- * Returns %TRUE if this is a Drafts folder or %FALSE otherwise.

- **/

-gboolean

-em_utils_folder_is_drafts(CamelFolder *folder, const char *uri)

-{

- EAccountList *accounts;

- EAccount *account;

- EIterator *iter;

- int is = FALSE;

- char *drafts_uri;

-

- if (folder == mail_component_get_folder(NULL, MAIL_COMPONENT_FOLDER_DRAFTS))

- return TRUE;

-

- if (uri == NULL)

- return FALSE;

-

- accounts = mail_config_get_accounts();

- iter = e_list_get_iterator((EList *)accounts);

- while (e_iterator_is_valid(iter)) {

- account = (EAccount *)e_iterator_get(iter);

-

- if (account->drafts_folder_uri) {

- drafts_uri = em_uri_to_camel (account->drafts_folder_uri);

- if (camel_store_folder_uri_equal (folder->parent_store, drafts_uri, uri)) {

- g_free (drafts_uri);

- is = TRUE;

- break;

- }

- g_free (drafts_uri);

- }

-

- e_iterator_next(iter);

- }

-

- g_object_unref(iter);

-

- return is;

-}

-

-/**

- * em_utils_folder_is_sent:

- * @folder: folder

- * @uri: uri for this folder, if known

- *

- * Decides if @folder is a Sent folder

- *

- * Returns %TRUE if this is a Sent folder or %FALSE otherwise.

- **/

-gboolean

-em_utils_folder_is_sent(CamelFolder *folder, const char *uri)

-{

- EAccountList *accounts;

- EAccount *account;

- EIterator *iter;

- int is = FALSE;

- char *sent_uri;

-

- if (folder == mail_component_get_folder(NULL, MAIL_COMPONENT_FOLDER_SENT))

- return TRUE;

-

- if (uri == NULL)

- return FALSE;

-

- accounts = mail_config_get_accounts();

- iter = e_list_get_iterator((EList *)accounts);

- while (e_iterator_is_valid(iter)) {

- account = (EAccount *)e_iterator_get(iter);

-

- if (account->sent_folder_uri) {

- sent_uri = em_uri_to_camel (account->sent_folder_uri);

- if (camel_store_folder_uri_equal (folder->parent_store, sent_uri, uri)) {

- g_free (sent_uri);

- is = TRUE;

- break;

- }

- g_free (sent_uri);

- }

-

- e_iterator_next(iter);

- }

-

- g_object_unref(iter);

-

- return is;

-}

-

-/**

- * em_utils_folder_is_outbox:

- * @folder: folder

- * @uri: uri for this folder, if known

- *

- * Decides if @folder is an Outbox folder

- *

- * Returns %TRUE if this is an Outbox folder or %FALSE otherwise.

- **/

-gboolean

-em_utils_folder_is_outbox(CamelFolder *folder, const char *uri)

-{

- /* <Highlander>There can be only one.</Highlander> */

- return folder == mail_component_get_folder(NULL, MAIL_COMPONENT_FOLDER_OUTBOX);

-}

-

-/**

- * em_utils_adjustment_page:

- * @adj:

- * @down:

- *

- * Move an adjustment up/down forward/back one page.

- **/

-void

-em_utils_adjustment_page(GtkAdjustment *adj, gboolean down)

-{

- float page_size = adj->page_size - adj->step_increment;

-

- if (down) {

- if (adj->value < adj->upper - adj->page_size - page_size)

- adj->value += page_size;

- else if (adj->upper >= adj->page_size)

- adj->value = adj->upper - adj->page_size;

- else

- adj->value = adj->lower;

- } else {

- if (adj->value > adj->lower + page_size)

- adj->value -= page_size;

- else

- adj->value = adj->lower;

- }

-

- gtk_adjustment_value_changed(adj);

-}

-

-/* ********************************************************************** */

-static char *emu_proxy_uri;

-static int emu_proxy_init = 0;

-static pthread_mutex_t emu_proxy_lock = PTHREAD_MUTEX_INITIALIZER;

-

-static void

-emu_set_proxy(GConfClient *client, int needlock)

-{

- char *server, *uri = NULL;

- int port;

-

- if (gconf_client_get_bool(client, "/system/http_proxy/use_http_proxy", NULL)) {

- server = gconf_client_get_string(client, "/system/http_proxy/host", NULL);

- port = gconf_client_get_int(client, "/system/http_proxy/port", NULL);

-

- if (server && server[0]) {

- if (gconf_client_get_bool(client, "/system/http_proxy/use_authentication", NULL)) {

- char *user = gconf_client_get_string(client, "/system/http_proxy/authentication_user", NULL);

- char *pass = gconf_client_get_string(client, "/system/http_proxy/authentication_password", NULL);

-

- uri = g_strdup_printf("http://%s:%s@%s:%d", user, pass, server, port);

- g_free(user);

- g_free(pass);

- } else {

- uri = g_strdup_printf("http://%s:%d", server, port);

- }

- }

-

- g_free(server);

- }

-

- if (needlock)

- pthread_mutex_lock(&emu_proxy_lock);

-

- g_free(emu_proxy_uri);

- emu_proxy_uri = uri;

-

- if (needlock)

- pthread_mutex_unlock(&emu_proxy_lock);

-

-}

-

-static void

-emu_proxy_changed(GConfClient *client, guint32 cnxn_id, GConfEntry *entry, gpointer user_data)

-{

- emu_set_proxy(client, TRUE);

-}

-

-static void *

-emu_proxy_setup(void *data)

-{

- GConfClient *client = gconf_client_get_default();

-

- gconf_client_add_dir(client, "/system/http_proxy", GCONF_CLIENT_PRELOAD_ONELEVEL, NULL);

- gconf_client_notify_add(client, "/system/http_proxy", emu_proxy_changed, NULL, NULL, NULL);

- emu_set_proxy(client, FALSE);

- g_object_unref(client);

-

- return NULL;

-}

-

-/**

- * em_utils_get_proxy_uri:

- *

- * Get the system proxy uri.

- *

- * Return value: Must be freed when finished with.

- **/

-char *

-em_utils_get_proxy_uri(void)

-{

- char *uri;

-

- pthread_mutex_lock(&emu_proxy_lock);

-

- if (!emu_proxy_init) {

- mail_call_main(MAIL_CALL_p_p, emu_proxy_setup, NULL);

- emu_proxy_init = TRUE;

- }

-

- uri = g_strdup(emu_proxy_uri);

-

- pthread_mutex_unlock(&emu_proxy_lock);

-

- return uri;

-}

-

-/**

- * em_utils_part_to_html:

- * @part:

- *

- * Converts a mime part's contents into html text. If @credits is given,

- * then it will be used as an attribution string, and the

- * content will be cited. Otherwise no citation or attribution

- * will be performed.

- *

- * Return Value: The part in displayable html format.

- **/

-char *

-em_utils_part_to_html(CamelMimePart *part, ssize_t *len, EMFormat *source)

-{

- EMFormatQuote *emfq;

- CamelStreamMem *mem;

- GByteArray *buf;

- char *text;

-

- buf = g_byte_array_new ();

- mem = (CamelStreamMem *) camel_stream_mem_new ();

- camel_stream_mem_set_byte_array (mem, buf);

-

- emfq = em_format_quote_new(NULL, (CamelStream *)mem, 0);

- em_format_set_session((EMFormat *)emfq, session);

- if (source) {

- /* copy over things we can, other things are internal, perhaps need different api than 'clone' */

- if (source->default_charset)

- em_format_set_default_charset((EMFormat *)emfq, source->default_charset);

- if (source->charset)

- em_format_set_default_charset((EMFormat *)emfq, source->charset);

- }

- em_format_part((EMFormat *) emfq, (CamelStream *)mem, part);

- g_object_unref(emfq);

-

- camel_stream_write((CamelStream *) mem, "", 1);

- camel_object_unref(mem);

-

- text = buf->data;

- if (len)

- *len = buf->len-1;

- g_byte_array_free (buf, FALSE);

-

- return text;

-}

-

-/**

- * em_utils_message_to_html:

- * @message:

- * @credits:

- * @flags: EMFormatQuote flags

- * @len:

- * @source:

- *

- * Convert a message to html, quoting if the @credits attribution

- * string is given.

- *

- * Return value: The html version.

- **/

-char *

-em_utils_message_to_html(CamelMimeMessage *message, const char *credits, guint32 flags, ssize_t *len, EMFormat *source)

-{

- EMFormatQuote *emfq;

- CamelStreamMem *mem;

- GByteArray *buf;

- char *text;

-

- buf = g_byte_array_new ();

- mem = (CamelStreamMem *) camel_stream_mem_new ();

- camel_stream_mem_set_byte_array (mem, buf);

-

- emfq = em_format_quote_new(credits, (CamelStream *)mem, flags);

- em_format_set_session((EMFormat *)emfq, session);

-

- if (!source) {

- GConfClient *gconf;

- char *charset;

-

- /* FIXME: we should be getting this from the current view, not the global setting. */

- gconf = gconf_client_get_default ();

- charset = gconf_client_get_string (gconf, "/apps/evolution/mail/display/charset", NULL);

- em_format_set_default_charset ((EMFormat *) emfq, charset);

- g_object_unref (gconf);

- g_free (charset);

- }

-

- em_format_format_clone((EMFormat *)emfq, NULL, NULL, message, source);

- g_object_unref (emfq);

-

- camel_stream_write((CamelStream *)mem, "", 1);

- camel_object_unref(mem);

-

- text = buf->data;

- if (len)

- *len = buf->len-1;

- g_byte_array_free(buf, FALSE);

-

- return text;

-}

-

-/* ********************************************************************** */

-

-/**

- * em_utils_expunge_folder:

- * @parent: parent window

- * @folder: folder to expunge

- *

- * Expunges @folder.

- **/

-void

-em_utils_expunge_folder (GtkWidget *parent, CamelFolder *folder)

-{

- char *name;

-

- camel_object_get(folder, NULL, CAMEL_OBJECT_DESCRIPTION, &name, 0);

-

- if (!em_utils_prompt_user ((GtkWindow *) parent, "/apps/evolution/mail/prompts/expunge", "mail:ask-expunge", name, NULL))

- return;

-

- mail_expunge_folder(folder, NULL, NULL);

-}

-

-/**

- * em_utils_empty_trash:

- * @parent: parent window

- *

- * Empties all Trash folders.

- **/

-void

-em_utils_empty_trash (GtkWidget *parent)

-{

- CamelProvider *provider;

- EAccountList *accounts;

- EAccount *account;

- EIterator *iter;

- CamelException ex;

-

- if (!em_utils_prompt_user((GtkWindow *) parent, "/apps/evolution/mail/prompts/empty_trash", "mail:ask-empty-trash", NULL))

- return;

-

- camel_exception_init (&ex);

-

- /* expunge all remote stores */

- accounts = mail_config_get_accounts ();

- iter = e_list_get_iterator ((EList *) accounts);

- while (e_iterator_is_valid (iter)) {

- account = (EAccount *) e_iterator_get (iter);

-

- /* make sure this is a valid source */

- if (account->enabled && account->source->url) {

- provider = camel_provider_get(account->source->url, &ex);

- if (provider) {

- /* make sure this store is a remote store */

- if (provider->flags & CAMEL_PROVIDER_IS_STORAGE &&

- provider->flags & CAMEL_PROVIDER_IS_REMOTE) {

- mail_empty_trash (account, NULL, NULL);

- }

- }

-

- /* clear the exception for the next round */

- camel_exception_clear (&ex);

- }

-

- e_iterator_next (iter);

- }

-

- g_object_unref (iter);

-

- /* Now empty the local trash folder */

- mail_empty_trash (NULL, NULL, NULL);

-}

-

-char *

-em_utils_folder_name_from_uri (const char *uri)

-{

- CamelURL *url;

- char *folder_name = NULL;

-

- if (uri == NULL || (url = camel_url_new (uri, NULL)) == NULL)

- return NULL;

-

- if (url->fragment)

- folder_name = url->fragment;

- else if (url->path)

- folder_name = url->path + 1;

-

- if (folder_name == NULL) {

- camel_url_free (url);

- return NULL;

- }

-

- folder_name = g_strdup (folder_name);

- camel_url_free (url);

-

- return folder_name;

-}

-

-/* email: uri's are based on the account, with special cases for local

- * stores, vfolder and local mail.

- * e.g.

- * imap account imap://user@host/ -> email://accountid@accountid.host/

- * vfolder vfolder:/storage/path#folder -> email://vfolder@local/folder

- * local local:/storage/path#folder -> email://local@local/folder

- */

-

-char *em_uri_from_camel(const char *curi)

-{

- CamelURL *curl;

- EAccount *account;

- const char *uid, *path;

- char *euri, *tmp;

- CamelProvider *provider;

- CamelException ex;

-

- /* Easiest solution to code that shouldnt be calling us */

- if (!strncmp(curi, "email:", 6))

- return g_strdup(curi);

-

- camel_exception_init(&ex);

- provider = camel_provider_get(curi, &ex);

- if (provider == NULL) {

- camel_exception_clear(&ex);

- d(printf("em uri from camel failed '%s'\n", curi));

- return g_strdup(curi);

- }

-

- curl = camel_url_new(curi, &ex);

- camel_exception_clear(&ex);

- if (curl == NULL)

- return g_strdup(curi);

-

- if (strcmp(curl->protocol, "vfolder") == 0)

- uid = "vfolder@local";

- else if ((account = mail_config_get_account_by_source_url(curi)) == NULL)

- uid = "local@local";

- else

- uid = account->uid;

- path = (provider->url_flags & CAMEL_URL_FRAGMENT_IS_PATH)?curl->fragment:curl->path;

- if (path) {

- if (path[0] == '/')

- path++;

-

- tmp = camel_url_encode(path, ";?");

- euri = g_strdup_printf("email://%s/%s", uid, tmp);

- g_free(tmp);

- } else {

- euri = g_strdup_printf("email://%s/", uid);

- }

-

- d(printf("em uri from camel '%s' -> '%s'\n", curi, euri));

-

- camel_url_free(curl);

-

- return euri;

-}

-

-char *em_uri_to_camel(const char *euri)

-{

- EAccountList *accounts;

- const EAccount *account;

- EAccountService *service;

- CamelProvider *provider;

- CamelURL *eurl, *curl;

- char *uid, *curi;

-

- if (strncmp(euri, "email:", 6) != 0) {

- d(printf("em uri to camel not euri '%s'\n", euri));

- return g_strdup(euri);

- }

-

- eurl = camel_url_new(euri, NULL);

- if (eurl == NULL)

- return g_strdup(euri);

-

- g_assert(eurl->host != NULL);

-

- if (eurl->user != NULL) {

- /* Sigh, shoul'dve used mbox@local for mailboxes, not local@local */

- if (strcmp(eurl->host, "local") == 0

- && (strcmp(eurl->user, "local") == 0 || strcmp(eurl->user, "vfolder") == 0)) {

- char *base;

-

- if (strcmp(eurl->user, "vfolder") == 0)

- curl = camel_url_new("vfolder:", NULL);

- else

- curl = camel_url_new("mbox:", NULL);

-

- base = g_strdup_printf("%s/.evolution/mail/%s", g_get_home_dir(), eurl->user);

- camel_url_set_path(curl, base);

- g_free(base);

- camel_url_set_fragment(curl, eurl->path[0]=='/'?eurl->path+1:eurl->path);

- curi = camel_url_to_string(curl, 0);

- camel_url_free(curl);

- camel_url_free(eurl);

-

- d(printf("em uri to camel local '%s' -> '%s'\n", euri, curi));

- return curi;

- }

-

- uid = g_strdup_printf("%s@%s", eurl->user, eurl->host);

- } else {

- uid = g_strdup(eurl->host);

- }

-

- accounts = mail_config_get_accounts();

- account = e_account_list_find(accounts, E_ACCOUNT_FIND_UID, uid);

- g_free(uid);

-

- if (account == NULL) {

- camel_url_free(eurl);

- d(printf("em uri to camel no account '%s' -> '%s'\n", euri, euri));

- return g_strdup(euri);

- }

-

- service = account->source;

- if (!(provider = camel_provider_get (service->url, NULL)))

- return g_strdup (euri);

-

- curl = camel_url_new(service->url, NULL);

- if (provider->url_flags & CAMEL_URL_FRAGMENT_IS_PATH)

- camel_url_set_fragment(curl, eurl->path[0]=='/'?eurl->path+1:eurl->path);

- else

- camel_url_set_path(curl, eurl->path);

-

- curi = camel_url_to_string(curl, 0);

-

- camel_url_free(eurl);

- camel_url_free(curl);

-

- d(printf("em uri to camel '%s' -> '%s'\n", euri, curi));

-

- return curi;

-}

-

-/* ********************************************************************** */

-#include <libebook/e-book.h>

-

-struct _addr_node {

- char *addr;

- time_t stamp;

- int found;

-};

-

-#define EMU_ADDR_CACHE_TIME (60*30) /* in seconds */

-

-static pthread_mutex_t emu_addr_lock = PTHREAD_MUTEX_INITIALIZER;

-static ESourceList *emu_addr_list;

-static GHashTable *emu_addr_cache;

-

-/* runs sync, in main thread */

-static void *

-emu_addr_setup(void *dummy)

-{

- GError *err = NULL;

-

- emu_addr_cache = g_hash_table_new(g_str_hash, g_str_equal);

-

- if (!e_book_get_addressbooks(&emu_addr_list, &err))

- g_error_free(err);

-

- return NULL;

-}

-

-static void

-emu_addr_cancel_book(void *data)

-{

- EBook *book = data;

- GError *err = NULL;

-

- /* we dunna care if this fails, its just the best we can try */

- e_book_cancel(book, &err);

- g_clear_error(&err);

-}

-

-gboolean

-em_utils_in_addressbook(CamelInternetAddress *iaddr)

-{

- GError *err = NULL;

- GSList *s, *g, *addr_sources = NULL;

- int stop = FALSE, found = FALSE;

- EBookQuery *query;

- const char *addr;

- struct _addr_node *node;

- time_t now;

-

- /* TODO: check all addresses? */

- if (!camel_internet_address_get(iaddr, 0, NULL, &addr))

- return FALSE;

-

- pthread_mutex_lock(&emu_addr_lock);

-

- if (emu_addr_cache == NULL) {

- mail_call_main(MAIL_CALL_p_p, emu_addr_setup, NULL);

- }

-

- if (emu_addr_list == NULL) {

- pthread_mutex_unlock(&emu_addr_lock);

- return FALSE;

- }

-

- now = time(0);

-

- d(printf("Checking '%s' is in addressbook", addr));

-

- node = g_hash_table_lookup(emu_addr_cache, addr);

- if (node) {

- d(printf(" -> cached, found %s\n", node->found?"yes":"no"));

- if (node->stamp + EMU_ADDR_CACHE_TIME > now) {

- found = node->found;

- pthread_mutex_unlock(&emu_addr_lock);

- return found;

- }

- d(printf(" but expired!\n"));

- } else {

- d(printf(" -> not found in cache\n"));

- node = g_malloc0(sizeof(*node));

- node->addr = g_strdup(addr);

- g_hash_table_insert(emu_addr_cache, node->addr, node);

- }

-

- query = e_book_query_field_test(E_CONTACT_EMAIL, E_BOOK_QUERY_IS, addr);

-

- /* FIXME: this aint threadsafe by any measure, but what can you do eh??? */

-

- for (g = e_source_list_peek_groups(emu_addr_list);g;g=g_slist_next(g)) {

- for (s = e_source_group_peek_sources((ESourceGroup *)g->data);s;s=g_slist_next(s)) {

- ESource *src = s->data;

- const char *completion = e_source_get_property (src, "completion");

-

- if (completion && !g_ascii_strcasecmp (completion, "true")) {

- addr_sources = g_slist_prepend(addr_sources, src);

- g_object_ref(src);

- }

- }

- }

-

- for (s = addr_sources;!stop && !found && s;s=g_slist_next(s)) {

- ESource *source = s->data;

- GList *contacts;

- EBook *book;

- void *hook;

-

- d(printf(" checking '%s'\n", e_source_get_uri(source)));

-

- /* could this take a while? no way to cancel it? */

- book = e_book_new(source, &err);

-

- if (book == NULL) {

- g_warning("Unable to create addressbook: %s", err->message);

- g_clear_error(&err);

- continue;

- }

-

- hook = mail_cancel_hook_add(emu_addr_cancel_book, book);

-

- /* ignore errors, but cancellation errors we don't try to go further either */

- if (!e_book_open(book, TRUE, &err)

- || !e_book_get_contacts(book, query, &contacts, &err)) {

- stop = err->domain == E_BOOK_ERROR && err->code == E_BOOK_ERROR_CANCELLED;

- mail_cancel_hook_remove(hook);

- g_object_unref(book);

- g_warning("Can't get contacts: %s", err->message);

- g_clear_error(&err);

- continue;

- }

-

- mail_cancel_hook_remove(hook);

-

- if (contacts != NULL) {

- found = TRUE;

- g_list_foreach(contacts, (GFunc)g_object_unref, NULL);

- g_list_free(contacts);

- }

-

- d(printf(" %s\n", stop?"found":"not found"));

-

- g_object_unref(book);

- }

-

- g_slist_free(addr_sources);

-

- if (!stop) {

- node->found = found;

- node->stamp = now;

- }

-

- e_book_query_unref(query);

-

- pthread_mutex_unlock(&emu_addr_lock);

-

- return found;

-}

-

-/**

- * em_utils_snoop_type:

- * @part:

- *

- * Tries to snoop the mime type of a part.

- *

- * Return value: NULL if unknown (more likely application/octet-stream).

- **/

-const char *

-em_utils_snoop_type(CamelMimePart *part)

-{

- const char *filename, *name_type = NULL, *magic_type = NULL;

- CamelDataWrapper *dw;

-

- filename = camel_mime_part_get_filename (part);

- if (filename) {

- /* GNOME-VFS will misidentify TNEF attachments as MPEG */

- if (!strcmp (filename, "winmail.dat"))

- return "application/vnd.ms-tnef";

-

- name_type = gnome_vfs_mime_type_from_name(filename);

- }

-

- dw = camel_medium_get_content_object((CamelMedium *)part);

- if (!camel_data_wrapper_is_offline(dw)) {

- CamelStreamMem *mem = (CamelStreamMem *)camel_stream_mem_new();

-

- if (camel_data_wrapper_decode_to_stream(dw, (CamelStream *)mem) > 0)

- magic_type = gnome_vfs_get_mime_type_for_data(mem->buffer->data, mem->buffer->len);

- camel_object_unref(mem);

- }

-

- d(printf("snooped part, magic_type '%s' name_type '%s'\n", magic_type, name_type));

-

- /* If GNOME-VFS doesn't recognize the data by magic, but it

- * contains English words, it will call it text/plain. If the

- * filename-based check came up with something different, use

- * that instead and if it returns "application/octet-stream"

- * try to do better with the filename check.

- */

-

- if (magic_type) {

- if (name_type

- && (!strcmp(magic_type, "text/plain")

- || !strcmp(magic_type, "application/octet-stream")))

- return name_type;

- else

- return magic_type;

- } else

- return name_type;

-

- /* We used to load parts to check their type, we dont anymore,

- see bug #11778 for some discussion */

-}