/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* mail-mlist-magic.c
 *
 * Copyright (C) 2000  Helix Code, Inc.
 *
 * 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.
 *
 * Author: Ettore Perazzoli
 */

/* Procmail-style magic mail rules for mailing lists: (from Joakim's own
   `.procmailrc'.)

   :0: 
   * ^Sender: owner-\/[^@]+
   lists/$MATCH
   
   :0:
   * ^X-BeenThere: \/[^@]+
   lists/$MATCH
   
   :0:
   * ^Delivered-To: mailing list \/[^@]+
   lists/$MATCH
   
   :0:
   * X-Mailing-List: <\/[^@]+
   lists/$MATCH
   
   :0:
   * X-Loop: \/[^@]+
   lists/$MATCH

*/

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <string.h>
#include <ctype.h>

#include "camel.h"

#include "mail-mlist-magic.h"


/* Utility functions.  */

static char *
extract_until_at_sign (const char *s)
{
	const char *at_sign;

	at_sign = strchr (s, '@');
	if (at_sign == NULL)
		return g_strdup (s);

	if (at_sign == s)
		return NULL;

	return g_strndup (s, at_sign - s);
}

static const char *
get_header (CamelMimeMessage *message,
	    const char *header_name)
{
	const char *value;

	value = camel_medium_get_header (CAMEL_MEDIUM (message), header_name);
	if (value == NULL)
		return NULL;

	/* FIXME: Correct?  */
	while (isspace ((int) *value))
		value++;

	return value;
}


/* The checks.  */

/* ^Sender: owner-\/[^@]+ */
static char *
check_sender (CamelMimeMessage *message,
	      const char **header_name_return,
	      char **header_value_return)
{
	const char *value;

	value = get_header (message, "Sender");
	if (value == NULL)
		return NULL;

	if (strncmp (value, "owner-", 6) != 0)
		return NULL;

	if (value[6] == '\0' || value[6] == '@')
		return NULL;

	if (header_name_return != NULL)
		*header_name_return = "Sender";
	if (header_value_return != NULL)
		*header_value_return = g_strdup (value);
	return extract_until_at_sign (value + 6);
}
   
/* ^X-BeenThere: \/[^@]+ */
static char *
check_x_been_there (CamelMimeMessage *message,
		    const char **header_name_return,
		    char **header_value_return)
{
	const char *value;

	value = get_header (message, "X-BeenThere");
	if (value == NULL || *value == '@')
		return NULL;

	if (header_name_return != NULL)
		*header_name_return = "X-BeenThere";
	if (header_value_return != NULL)
		*header_value_return = g_strdup (value);

	return extract_until_at_sign (value);
}
   
/* ^Delivered-To: mailing list \/[^@]+ */
static char *
check_delivered_to (CamelMimeMessage *message,
		    const char **header_name_return,
		    char **header_value_return)
{
	const char *value;

	value = get_header (message, "Delivered-To");
	if (value == NULL)
		return NULL;

	/* FIXME uh? */
	if (strncmp (value, "mailing list ", 13) != 0)
		return NULL;

	if (value[13] == '\0' || value[13] == '@')
		return NULL;

	if (header_name_return != NULL)
		*header_name_return = "Delivered-To";
	if (header_value_return != NULL)
		*header_value_return = g_strdup (value);
	return extract_until_at_sign (value + 13);
}
   
/* X-Mailing-List: <\/[^@]+ */
static char *
check_x_mailing_list (CamelMimeMessage *message,
		      const char **header_name_return,
		      char **header_value_return)
{
	const char *value;
	int value_length;

	value = get_header (message, "X-Mailing-List");
	if (value == NULL)
		return NULL;

	if (value[0] != '<' || value[1] == '\0' || value[1] == '@')
		return NULL;

	value_length = strlen (value);
	if (value[value_length - 1] != '>')
		return NULL;

	if (header_name_return != NULL)
		*header_name_return = "X-Mailing-List";
	if (header_value_return != NULL)
		*header_value_return = g_strdup (value);
	return extract_until_at_sign (value + 1);
}
   
/* X-Loop: \/[^@]+ */
static char *
check_x_loop (CamelMimeMessage *message,
	      const char **header_name_return,
	      char **header_value_return)
{
	const char *value;

	value = get_header (message, "X-Loop");
	if (value == NULL)
		return NULL;

	if (*value == '\0' || *value == '@')
		return NULL;

	if (header_name_return != NULL)
		*header_name_return = "X-Loop";
	if (header_value_return != NULL)
		*header_value_return = g_strdup (value);

	return extract_until_at_sign (value);
}


/**
 * mail_mlist_magic_detect_list:
 * @message:
 * @header_name_return:
 * @header_value_return:
 * 
 * Detect if message was delivered by a mailing list.
 * 
 * Return value: The name of the mailing list, if the message appears to be
 * sent from a mailing list.  NULL otherwise.
 **/
char *
mail_mlist_magic_detect_list (CamelMimeMessage *message,
			      const char **header_name_return,
			      char **header_value_return)
{
	char *list_name;

	g_return_val_if_fail (message != NULL, NULL);
	g_return_val_if_fail (CAMEL_IS_MIME_MESSAGE (message), NULL);

	list_name = check_sender (message, header_name_return, header_value_return);
	if (list_name != NULL)
		return list_name;

	list_name = check_x_been_there (message, header_name_return, header_value_return);
	if (list_name != NULL)
		return list_name;

	list_name = check_delivered_to (message, header_name_return, header_value_return);
	if (list_name != NULL)
		return list_name;

	list_name = check_x_mailing_list (message, header_name_return, header_value_return);
	if (list_name != NULL)
		return list_name;

	list_name = check_x_loop (message, header_name_return, header_value_return);
	if (list_name != NULL)
		return list_name;

	return NULL;
}