New file to hold auto filter/vfolder stuff.

2000-08-09  Not Zed  <NotZed@HelixCode.com>

        * mail-autofilter.c: New file to hold auto filter/vfolder stuff.

svn path=/trunk/; revision=4635

3 files changed, 321 insertions, 0 deletions

diff --git a/mail/ChangeLog b/mail/ChangeLog
index 22f641e13d..66b63e3c35 100644
--- a/mail/ChangeLog
+++ b/mail/ChangeLog
@@ -1,3 +1,11 @@
+<<<<<<< ChangeLog
+<<<<<<< ChangeLog
+2000-08-09  Not Zed  <NotZed@HelixCode.com>
+
+	* mail-autofilter.c: New file to hold auto filter/vfolder stuff.
+
+=======
+=======
 2000-08-09  Christopher James Lahey  <clahey@helixcode.com>
 
 	* mail-display.c, mail-format.c, mail-ops.c: Fixed some warnings.
@@ -10,6 +18,7 @@
 	* folder-browser-factory.c (control_activate): Create a "print
 	message" menu item.
 
+>>>>>>> 1.381
 2000-08-09  Jeffrey Stedfast  <fejj@helixcode.com>
 
 	* message-list.c (message_list_init): Attached a double_click
@@ -53,6 +62,7 @@
 	(message_list_init): Added a right_click event to trigger a pop-up
 	menu to be displayed
 
+>>>>>>> 1.379
 2000-08-08  Dan Winship  <danw@helixcode.com>
 
 	* mail-config-gui.c: Add "Don't delete messages from server"
diff --git a/mail/Makefile.am b/mail/Makefile.am
index a114570803..076340c6cd 100644
--- a/mail/Makefile.am
+++ b/mail/Makefile.am
@@ -42,6 +42,7 @@ evolution_mail_SOURCES =		\
 	folder-browser.c		\
 	folder-browser.h		\
 	folder-browser-factory.c	\
+	mail-autofilter.c		\
 	mail-config.c			\
 	mail-config.h			\
 	mail-config-gui.c		\
diff --git a/mail/mail-autofilter.c b/mail/mail-autofilter.c
new file mode 100644
index 0000000000..eec67758cd
--- /dev/null
+++ b/mail/mail-autofilter.c
@@ -0,0 +1,310 @@
+/*
+  code for autogenerating rules or filters from a message
+*/
+
+#include <ctype.h>
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include <bonobo.h>
+
+#include <libgnomeui/gnome-app-helper.h>
+#include <libgnomeui/gnome-popup-menu.h>
+
+#include "Evolution.h"
+#include "evolution-storage.h"
+
+#include "evolution-shell-component.h"
+#include "folder-browser.h"
+#include "mail-vfolder.h"
+
+#include "camel/camel.h"
+
+#include "filter/vfolder-context.h"
+#include "filter/vfolder-rule.h"
+#include "filter/vfolder-editor.h"
+
+#include "filter/filter-context.h"
+#include "filter/filter-filter.h"
+#include "filter/filter-editor.h"
+#include "filter/filter-option.h"
+
+enum {
+	AUTO_SUBJECT = 0x01,
+	AUTO_FROM = 0x02,
+	AUTO_TO = 0x04,
+};
+
+static void
+rule_match_recipients(RuleContext *context, FilterRule *rule, CamelInternetAddress *iaddr)
+{
+	FilterPart *part;
+	FilterElement *element;
+	int i;
+	const char *real, *addr;
+
+	/* address types etc should handle multiple values */
+	for (i=0;camel_internet_address_get(iaddr, i, &real, &addr);i++) {
+		part = rule_context_create_part(context, "to");
+		filter_rule_add_part((FilterRule *)rule, part);
+		element = filter_part_find_element(part, "recipient-type");
+		filter_option_set_current((FilterOption *)element, "contains");
+		element = filter_part_find_element(part, "recipient");
+		filter_input_set_value((FilterInput *)element, addr);
+	}
+}
+
+
+/* remove 're' part of a subject */
+static const char *
+strip_re(const char *s)
+{
+	const char *p;
+
+	while (*s) {
+		while (isspace(*s))
+			s++;
+		if (s[0] == 0)
+			break;
+		if ((s[0] == 'r' || s[0]=='R')
+		    && (s[1] == 'e' || s[1]=='E')) {
+			p = s+2;
+			while (isdigit(*p) || (ispunct(*p) && (*p != ':')))
+				p++;
+			if (*p==':') {
+				s = p+1;
+			} else
+				break;
+		} else
+			break;
+	}
+	return s;
+}
+
+#if 0
+int
+reg_match(char *str, char *regstr)
+{
+	regex_t reg;
+	int error;
+	int ret;
+
+	error = regcomp(&reg, regstr, REG_EXTENDED|REG_ICASE|REG_NOSUB);
+	if (error != 0) {
+		return 0;
+	}
+	error = regexec(&reg, str, 0, NULL, 0);
+	regfree(&reg);
+	return (error == 0);
+}
+#endif
+
+static void
+rule_add_subject(RuleContext *context, FilterRule *rule, const char *text)
+{
+	FilterPart *part;
+	FilterElement *element;
+
+	/* dont match on empty strings ever */
+	if (*text == 0)
+		return;
+	part = rule_context_create_part(context, "subject");
+	filter_rule_add_part((FilterRule *)rule, part);
+	element = filter_part_find_element(part, "subject-type");
+	filter_option_set_current((FilterOption *)element, "contains");
+	element = filter_part_find_element(part, "subject");
+	filter_input_set_value((FilterInput *)element, text);
+}
+
+static void
+rule_add_sender(RuleContext *context, FilterRule *rule, const char *text)
+{
+	FilterPart *part;
+	FilterElement *element;
+
+	/* dont match on empty strings ever */
+	if (*text == 0)
+		return;
+	part = rule_context_create_part(context, "sender");
+	filter_rule_add_part((FilterRule *)rule, part);
+	element = filter_part_find_element(part, "sender-type");
+	filter_option_set_current((FilterOption *)element, "contains");
+	element = filter_part_find_element(part, "sender");
+	filter_input_set_value((FilterInput *)element, text);
+}
+
+/* do a bunch of things on the subject to try and detect mailing lists, remove
+   unneeded stuff, etc */
+static void
+rule_match_subject(RuleContext *context, FilterRule *rule, const char *subject)
+{
+	const char *s;
+	const char *s1, *s2;
+	char *tmp;
+
+	s = strip_re(subject);
+	/* dont match on empty subject */
+	if (*s == 0)
+		return;
+
+	/* [blahblah] is probably a mailing list, match on it separately */
+	s1 = strchr(s, '[');
+	s2 = strchr(s, ']');
+	if (s1 && s2 && s1<s2) {
+		/* probably a mailing list, match on the mailing list name */
+		tmp = alloca(s2-s1+1);
+		memcpy(tmp, s1, s2-s1);
+		tmp[s2-s1] = 0;
+		g_strstrip(tmp);
+		rule_add_subject(context, rule, tmp);
+		s = s2+1;
+	}
+	/* Froblah: at the start is probably something important (e.g. bug number) */
+	s1 = strchr(s, ':');
+	if (s1) {
+		tmp = alloca(s1-s+1);
+		memcpy(tmp, s, s1-s);
+		tmp[s1-s] = 0;
+		g_strstrip(tmp);
+		rule_add_subject(context, rule, tmp);
+		s = s1+1;
+	}
+
+	/* just lump the rest together */
+	tmp = alloca(strlen(s)+1);
+	strcpy(tmp, s);
+	g_strstrip(tmp);
+	rule_add_subject(context, rule, tmp);
+}
+
+static void
+rule_from_message(FilterRule *rule, RuleContext *context, CamelMimeMessage *msg, int flags)
+{
+	CamelInternetAddress *addr;
+
+	rule->grouping = FILTER_GROUP_ANY;
+
+	if (flags & AUTO_SUBJECT) {
+		rule_match_subject(context, rule, msg->subject);
+	}
+	/* should parse the from address into an internet address? */
+	if (flags & AUTO_FROM) {
+		struct _header_address *haddr, *scan;
+
+		haddr = header_address_decode(msg->from);
+		scan = haddr;
+		while (scan) {
+			if (scan->type == HEADER_ADDRESS_NAME) {
+				rule_add_sender(context, rule, scan->v.addr);
+			}
+		}
+		header_address_unref(haddr);
+	}
+	if (flags & AUTO_TO) {
+		addr = (CamelInternetAddress *)camel_mime_message_get_recipients(msg, CAMEL_RECIPIENT_TYPE_TO);
+		rule_match_recipients(context, rule, addr);
+		addr = (CamelInternetAddress *)camel_mime_message_get_recipients(msg, CAMEL_RECIPIENT_TYPE_CC);
+		rule_match_recipients(context, rule, addr);
+	}
+}
+
+FilterRule *
+vfolder_rule_from_message(RuleContext *context, FolderBrowser *fb, CamelMimeMessage *msg, int flags)
+{
+	VfolderRule *rule;
+
+	rule = vfolder_rule_new();
+	vfolder_rule_add_source(rule, fb->uri);
+	rule_from_message((FilterRule *)rule, context, msg, flags);
+
+	return (FilterRule *)rule;
+}
+
+FilterRule *
+filter_rule_from_message(RuleContext *context, FolderBrowser *fb, CamelMimeMessage *msg, int flags)
+{
+	FilterFilter *rule;
+
+	rule = filter_filter_new();
+	rule_from_message((FilterRule *)rule, context, msg, flags);
+
+	/* should we define the default action? */
+
+	return (FilterRule *)rule;
+}
+
+#if 0
+
+#error "Ok, this is all useless because we're not using gnome-libs afteralll ..."
+
+static void create_filter(GtkWidget *w, void *data);
+static void create_vfolder(GtkWidget *w, void *data);
+
+static GnomeUIInfo auto_filter_popup[] = {
+	GNOMEUIINFO_ITEM_NONE("Subject", "", create_filter),
+	GNOMEUIINFO_ITEM_NONE("From", "", create_filter),
+	GNOMEUIINFO_ITEM_NONE("To", "", create_filter),
+	GNOMEUIINFO_ITEM_NONE("Subject & To", "", create_filter),
+	GNOMEUIINFO_ITEM_NONE("Subject & From", "", create_filter),
+        GNOMEUIINFO_END
+};
+
+static GnomeUIInfo auto_vfolder_popup[] = {
+	GNOMEUIINFO_ITEM_NONE("Subject", "", create_vfolder),
+	GNOMEUIINFO_ITEM_NONE("From", "", create_vfolder),
+	GNOMEUIINFO_ITEM_NONE("To", "", create_vfolder),
+	GNOMEUIINFO_ITEM_NONE("Subject & To", "", create_vfolder),
+	GNOMEUIINFO_ITEM_NONE("Subject & From", "", create_vfolder),
+        GNOMEUIINFO_END
+};
+
+static GnomeUIInfo auto_popup[] = {
+	GNOMEUIINFO_SUBTREE("New Filter", auto_filter_popup),
+	GNOMEUIINFO_SUBTREE("New vFolder", auto_vfolder_popup),
+        GNOMEUIINFO_END
+};
+
+static int flags[] = {
+	AUTO_SUBJECT, AUTO_FROM, AUTO_TO,
+	AUTO_SUBJECT|AUTO_TO, AUTO_SUBJECT|AUTO_FROM
+};
+
+static int widget_index(GnomeUIInfo *info, GtkWidget *w)
+{
+	int i;
+
+	for (i=0;info[i].widget;i++)
+		if (info[i].widget == w)
+			return i;
+	return -1;
+}
+
+static void
+create_filter(GtkWidget *w, void *data)
+{
+	int index;
+
+	index = widget_index(auto_filter_popup, w);
+	printf("filter index = %d\n", index);
+}
+
+static void
+create_vfolder(GtkWidget *w, void *data)
+{
+	int index;
+
+	index = widget_index(auto_vfolder_popup, w);
+	printf("filter index = %d\n", index);
+}
+
+void
+message_popup(GdkEventButton *event, FolderBrowser *fb)
+{
+        GtkWidget *popup_menu;
+	int i;
+
+	popup_menu = gnome_popup_menu_new(auto_popup);
+        gnome_popup_menu_do_popup(popup_menu, NULL, NULL, event, fb);
+}
+#endif