added mail-to-meeting plugin, to convert mails to meetings.

2004-10-29  Rodrigo Moya <rodrigo@novell.com>

	* added mail-to-meeting plugin, to convert mails to meetings.

svn path=/trunk/; revision=27766

plugins/mail-to-meeting/.cvsignore

@@ -0,0 +1,5 @@
+.deps
+.libs
+Makefile
+Makefile.in
+*.eplug

plugins/mail-to-meeting/ChangeLog

@@ -0,0 +1,3 @@
+2004-10-29  Rodrigo Moya <rodrigo@novell.com>
+
+	* added mail-to-meeting plugin, to convert mails to meetings.

plugins/mail-to-meeting/Makefile.am

@@ -0,0 +1,11 @@
+INCLUDES =						\
+	-I$(top_srcdir)					\
+	$(EVOLUTION_MAIL_CFLAGS)
+
+@EVO_PLUGIN_RULE@
+
+plugin_DATA = org-gnome-mail-to-meeting.eplug
+plugin_LTLIBRARIES = liborg-gnome-mail-to-meeting.la
+
+liborg_gnome_mail_to_meeting_la_SOURCES = mail-to-meeting.c
+liborg_gnome_mail_to_meeting_la_LDFLAGS = -module -avoid-version

plugins/mail-to-meeting/mail-to-meeting.c

@@ -0,0 +1,179 @@
+/* Evolution - Mail To Meeting plugin
+ *
+ * Copyright (C) 2004 Ximian, Inc.
+ *
+ * Authors: Rodrigo Moya <rodrigo@ximian.com>
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of version 2 of the GNU General Public
+ * License as published by the Free Software Foundation.
+ *
+ * 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.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <glib/gi18n-lib.h>
+#include <string.h>
+#include <stdio.h>
+
+#include <gconf/gconf-client.h>
+#include <libecal/e-cal.h>
+#include <libedataserverui/e-source-selector-dialog.h>
+#include "camel/camel-folder.h"
+#include "camel/camel-mime-message.h"
+#include "mail/em-popup.h"
+
+static void
+add_attendee_cb (gpointer key, gpointer value, gpointer user_data)
+{
+	ECalComponentAttendee *ca;
+	const char *str, *name;
+	GList **attendees = user_data;
+
+	if (!camel_internet_address_get (value, 0, &name, &str))
+		return;
+
+	ca = g_new0 (ECalComponentAttendee, 1);
+	ca->value = str;
+	ca->cn = name;
+	/* FIXME: missing many fields */
+
+	*attendees = g_slist_append (*attendees, ca);
+}
+
+static void
+set_attendees (ECalComponent *comp, CamelMimeMessage *message)
+{
+	GSList *attendees = NULL, *l;
+
+	g_hash_table_foreach (message->recipients, (GHFunc) add_attendee_cb, &attendees);
+	e_cal_component_set_attendee_list (comp, attendees);
+
+	for (l = attendees; l != NULL; l = l->next)
+		g_free (l->data);
+	g_slist_free (attendees);
+}
+
+static void
+set_organizer (ECalComponent *comp, CamelMimeMessage *message)
+{
+	const CamelInternetAddress *address;
+	const char *str, *name;
+	ECalComponentOrganizer organizer = {NULL, NULL, NULL, NULL};
+
+	if (message->reply_to)
+		address = message->reply_to;
+	else if (message->from)
+		address = message->from;
+	else
+		return;
+
+	if (!camel_internet_address_get (address, 0, &name, &str))
+		return;
+
+	organizer.value = str;
+	organizer.cn = name;
+	e_cal_component_set_organizer (comp, &organizer);
+}
+
+static void
+do_mail_to_meeting (EMPopupTargetSelect *t, ESource *meeting_source)
+{
+	ECal *client;
+
+	/* open the meeting client */
+	client = e_cal_new (meeting_source, E_CAL_SOURCE_TYPE_EVENT);
+	if (e_cal_open (client, FALSE, NULL)) {
+		int i;
+
+		for (i = 0; i < (t->uids ? t->uids->len : 0); i++) {
+			CamelMimeMessage *message;
+			ECalComponent *comp;
+			ECalComponentText text;
+			GSList sl;
+			char *str;
+
+			/* retrieve the message from the CamelFolder */
+			message = camel_folder_get_message (t->folder, g_ptr_array_index (t->uids, i), NULL);
+			if (!message)
+				continue;
+
+			comp = e_cal_component_new ();
+			e_cal_component_set_new_vtype (comp, E_CAL_COMPONENT_EVENT);
+			e_cal_component_set_uid (comp, camel_mime_message_get_message_id (message));
+
+			/* set the meeting's summary */
+			text.value = camel_mime_message_get_subject (message);
+			text.altrep = NULL;
+			e_cal_component_set_summary (comp, &text);
+
+			/* FIXME: a better way to get the full body */
+			str = camel_mime_message_build_mbox_from (message);
+			text.value = str;
+			sl.next = NULL;
+			sl.data = &text;
+			e_cal_component_set_description_list (comp, &sl);
+
+			g_free (str);
+
+			/* set the organizer, and the attendees */
+			set_organizer (comp, message);
+			set_attendees (comp, message);
+
+			/* save the meeting to the selected source */
+			e_cal_create_object (client, e_cal_component_get_icalcomponent (comp), NULL, NULL);
+
+			g_object_unref (comp);
+		}
+	}
+
+	/* free memory */
+	g_object_unref (client);
+}
+
+void org_gnome_mail_to_meeting (void *ep, EMPopupTargetSelect *t);
+
+void
+org_gnome_mail_to_meeting (void *ep, EMPopupTargetSelect *t)
+{
+	GtkWidget *dialog;
+	GConfClient *conf_client;
+	ESourceList *source_list;
+
+	/* ask the user which meeting list to save to */
+	conf_client = gconf_client_get_default ();
+	source_list = e_source_list_new_for_gconf (conf_client, "/apps/evolution/calendar/sources");
+
+	dialog = e_source_selector_dialog_new (NULL, source_list);
+
+	if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_OK) {
+		ESource *source;
+
+		/* if a source has been selected, perform the mail2meeting operation */
+		source = e_source_selector_dialog_peek_primary_selection (E_SOURCE_SELECTOR_DIALOG (dialog));
+		if (source)
+			do_mail_to_meeting (t, source);
+	}
+
+	g_object_unref (conf_client);
+	g_object_unref (source_list);
+	gtk_widget_destroy (dialog);
+}
+
+int e_plugin_lib_enable(EPluginLib *ep, int enable);
+
+int
+e_plugin_lib_enable(EPluginLib *ep, int enable)
+{
+	return 0;
+}

plugins/mail-to-meeting/org-gnome-mail-to-meeting.eplug.in

@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<e-plugin-list>
+  <e-plugin
+    type="shlib"
+    id="org.gnome.evolution.plugin.mailToMeeting"
+    location="@PLUGINDIR@/liborg-gnome-mail-to-meeting.so"
+    name="Convert a mail message into a meeting"
+    description="A plugin which allows the creation of meetings from the contents of a mail message">
+
+    <!-- hook into the uri popup menu -->
+    <hook class="org.gnome.evolution.mail.popup:1.0">
+      <menu id="org.gnome.evolution.mail.folderview.popup" target="select">
+	<item
+	  type="item"
+	  path="72.mail_to_meeting"
+	  icon="stock_appointment"
+	  label="Con_vert to Meeting"
+	  enable="one"
+	  visible="one"
+	  activate="org_gnome_mail_to_meeting"/>
+      </menu>
+    </hook>
+  </e-plugin>
+</e-plugin-list>