new file, for toolbar/menu callbacks (fetch_mail): fetch mail. Doesn't do

	* mail-ops.c: new file, for toolbar/menu callbacks
	(fetch_mail): fetch mail. Doesn't do mbox locking. Many kludges.

	* folder-browser-factory.c (control_activate): use new fetch_mail
	function as the callback for the "New mail" icon. Rename check_cb
	to random_cb.

	* Makefile.am: don't build test-sources since the version in
	CVS doesn't do much and once I've fixed it it won't be a separate
	program. Add mail-ops.[ch].

svn path=/trunk/; revision=2330

1 files changed, 185 insertions, 0 deletions

diff --git a/mail/mail-ops.c b/mail/mail-ops.c
new file mode 100644
index 0000000000..405eddec4b
--- /dev/null
+++ b/mail/mail-ops.c
@@ -0,0 +1,185 @@
+/* -*- 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>
+ *
+ * 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 <gnome.h>
+#include "camel/camel.h"
+#include "mail-ops.h"
+#include "folder-browser.h"
+#include "session.h"
+#include "e-util/e-setup.h"
+
+static void
+mail_exception_dialog (char *head, CamelException *ex, GtkWindow *window)
+{
+	char *msg;
+
+	msg = g_strdup_printf ("%s:\n%s", head,
+			       camel_exception_get_description (ex));
+	gnome_error_dialog_parented (msg, window);
+	g_free (msg);
+}
+
+void
+fetch_mail (GtkWidget *button, gpointer user_data)
+{
+	FolderBrowser *fb = FOLDER_BROWSER (user_data);
+	GtkWindow *window;
+	CamelException *ex;
+	CamelStore *store = NULL;
+	CamelFolder *folder = NULL, *outfolder = NULL;
+	int nmsgs, i;
+	CamelMimeMessage *msg = NULL;
+	char *path, *url = NULL, *provider;
+	gboolean get_remote;
+
+	window = GTK_WINDOW (gtk_widget_get_ancestor (GTK_WIDGET (fb),
+						      GTK_TYPE_WINDOW));
+
+	/* FIXME: We want a better config solution than this. */
+	path = g_strdup_printf ("=%s/config=/mail/get_remote", evolution_dir);
+	get_remote = gnome_config_get_bool_with_default (path, FALSE);
+	g_free (path);
+	path = g_strdup_printf ("=%s/config=/mail/remote_url", evolution_dir);
+	url = gnome_config_get_string_with_default (path, NULL);
+	g_free (path);
+	if (!get_remote || !url) {
+		if (url)
+			g_free (url);
+		gnome_error_dialog_parented ("You have no remote mail source "
+					     "configured", window);
+		return;
+	}
+
+	/* FIXME: this should go away when the provider situation is
+	 * improved.
+	 */
+	path = g_strdup_printf ("=%s/config=/mail/remote_provider",
+				evolution_dir);
+	provider = gnome_config_get_string_with_default (path, NULL);
+	g_free (path);
+	if (provider) {
+		camel_provider_register_as_module (provider);
+		g_free (provider);
+	}
+
+	ex = camel_exception_new ();
+	store = camel_session_get_store (default_session->session, url, ex);
+	if (!store) {
+		mail_exception_dialog ("Unable to get new mail", ex, window);
+		goto cleanup;
+	}
+	camel_service_connect_with_url (CAMEL_SERVICE (store), url, ex);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+		mail_exception_dialog ("Unable to get new mail", ex, window);
+		goto cleanup;
+	}
+
+	folder = camel_store_get_folder (store, "inbox", ex);
+	if (!folder) {
+		mail_exception_dialog ("Unable to get new mail", ex, window);
+		goto cleanup;
+	}
+	camel_folder_open (folder, FOLDER_OPEN_READ, ex);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+		mail_exception_dialog ("Unable to get new mail", ex, window);
+		goto cleanup;
+	}
+
+	nmsgs = camel_folder_get_message_count (folder, ex);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+		mail_exception_dialog ("Unable to get new mail", ex, window);
+		goto cleanup;
+	}
+
+	if (nmsgs == 0)
+		goto cleanup;
+
+	outfolder = camel_store_get_folder (default_session->store,
+					    "inbox", ex);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+		mail_exception_dialog ("Unable to open inbox to store mail",
+				       ex, window);
+		goto cleanup;
+	}
+	camel_folder_open (outfolder, FOLDER_OPEN_WRITE, ex);
+	if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+		mail_exception_dialog ("Unable to open inbox to store mail",
+				       ex, window);
+		goto cleanup;
+	}
+
+	for (i = 1; i <= nmsgs; i++) {
+		msg = camel_folder_get_message_by_number (folder, i, ex);
+		if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+			mail_exception_dialog ("Unable to read message",
+					       ex, window);
+			goto cleanup;
+		}
+
+		camel_folder_append_message (outfolder, msg, ex);
+		if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+			mail_exception_dialog ("Unable to write message",
+					       ex, window);
+			goto cleanup;
+		}
+
+		camel_folder_delete_message_by_number (folder, i, ex);
+		if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
+			mail_exception_dialog ("Unable to delete message",
+					       ex, window);
+			goto cleanup;
+		}
+	}
+	msg = NULL;
+
+	folder_browser_set_uri (fb, "inbox"); /* FIXME */
+
+ cleanup:
+	if (url)
+		g_free (url);
+	if (folder) {
+		if (camel_folder_is_open (folder))
+			camel_folder_close (folder, TRUE, ex);
+		gtk_object_unref (GTK_OBJECT (folder));
+	}
+	if (store) {
+		camel_service_disconnect (CAMEL_SERVICE (store), ex);
+		gtk_object_unref (GTK_OBJECT (store));
+	}
+#if 0
+	/* FIXME: we'll want to do this when the rest of the mail
+	 * stuff is refcounting things properly.
+	 */
+	if (outfolder) {
+		if (camel_folder_is_open (outfolder))
+			camel_folder_close (outfolder, FALSE, ex);
+		gtk_object_unref (GTK_OBJECT (outfolder));
+	}
+#endif
+	camel_exception_free (ex);
+	if (msg)
+		gtk_object_unref (GTK_OBJECT (msg));
+}