#!/usr/bin/m4
# made from a preprocessor file
divert(-1)
#                                                                      #
#                M4 CODE                                               #
#                                                                      #

# define(`forloop',
#        `pushdef(`$1', `$2')_forloop(`$1', `$2', `$3', `$4')popdef(`$1')')dnl
# define(`_forloop',
#        `$4`'ifelse($1, `$3', ,
# 		   `define(`$1', incr($1))_forloop(`$1', `$2', `$3', `$4')')')dnl

# define(macro1,Now I got `$#' names: $1 `substr($2,0,1)' $3)dnl
# define(mymacro, `ifelse(eval($# > 1), 1, Now I got `$#' names : `forloop(`i', 2,`$#', `shift($2)' )',``# pas assez d"arguments dans la fonction $0($*)''dnl
# )')dnl

# mymacro
# mymacro(Name)
# mymacro(The,Name)
# mymacro(First,Middle,Last)
# mymacro(John,Fitzgerald,Kennedy) 

# foreach(x, (item_1, item_2, ..., item_n), stmt)
# define(`foreach', `pushdef(`$1', `')_foreach(`$1', `$2', `$3',$4)popdef(`$1')')

# define(`_foreach', 
#         `ifelse(`$2', `()',,
#                 `define(`$1', _arg1$2)$3`'_foreach(`$1', (shift$2), `$3')')')

#define(`_list', 
#        `ifelse(`$1', `()',,
#                `pushdef(`i', _arg1$1)i`'_list( (shift$1))')')
#               `define(`$1', _arg1$2)$3`'_list(`$1', (shift$2), `$3')')')

# code real ! :

define(`_arg1', `$1\\|')
define(`_argf', `$1')

define(`_list',
`ifelse(`$1', `()',,
`ifelse((shift$1),`()',
`pushdef(`i', _argf$1)i`'_list((shift$1))',
`pushdef(`i', _arg1$1)i`'_list((shift$1))')')')

define(`list', `color index $1 black "~f.*(_list(`$2')).*"
color index bright$1 black "~N|~O ~f.*(_list(`$2')).*"
')
define(`tsil', `color index black $1 "~h.*(_list(`$2')).*"
')
define(`chaine',[' \-\.+_a-zA-Z0-9])

#                                                                      #
#               / M4 CODE                                              #
#                                                                      #
# m4 functions syntaxes:
# list(yellow,`(a,b,c,d)')
divert dnl


# colors

color hdrdefault cyan 			black
color quoted	brightgreen 	black
color quoted1	green		 	black
color quoted2	yellow 			black
color bold		brightyellow 	black
color signature brightblue		black
color attachment brightyellow 	black
color markers	brightred 		black
color error		brightred 		black
color tilde		white 			black 
color tree		cyan	 		black
# color status	brightgreen 	blue
color status	black 			magenta
color indicator black 			cyan
color normal	white			black
color header	brightyellow	black	^(Sebz|From):
color header	brightyellow	black	^(To|Gb):
color header	brightcyan	 	black 	^(Reply-To|Ercyl-Gb):
color header	brightcyan	 	black 	^(Date|Qngr):
color header	brightcyan	 	black 	^(Cc|Pp):
color header	brightyellow 	black 	^(Subject|Fhowrpg):
color header	brightred		black 	\\[(test|tip|astuce)\\]
color body		brightyellow 	black 	"_[' \-\.+_a-zA-Z0-9]+_"
color body		brightyellow 	black 	"[\-\.+_a-zA-Z0-9]*_[' \-\.+_a-zA-Z0-9]+_[\-\.+_a-zA-Z0-9]*"
color body		brightyellow 	black 	"[\"]chaine+[\"]"
color body		brightyellow 	black 	"\\*chaine+\\*"
color body		brightyellow 	black 	"\\$chaine+\\$"
color body		brightblue		black	"\\(chaine+\\)"
color body		brightred 		black 	"[\-\.+_a-zA-Z0-9=]+@[\-\.a-zA-Z0-9]+"
# color body		cyan	 	black 	([hH][tT][tT][Pp][sS]|[hH][tT][tT][Pp]|[fF][tT][Pp])://[\[\]\-\.\,/%~_:?\#a-zA-Z0-9=\;&+]+
# color body		cyan	 	black 	[wW][wW][wW]\.[\-\.\,/%~_:?\#a-zA-Z0-9=\;&+]+
color body		yellow			black 	"[ ]?[;!]+[-^o]?[]Pp)>}D]+"
color body		brightyellow 	black 	"[ ]?[-=:]+[-o]?[])>}D]+"
color body		brightred		black 	"[ ]?[=:;-]+[-=^o]?[[(<{|/\\]+"
color body		brightcyan	 	black 	"(([wW][wW][wW].)|(([hH][tT][tT][Pp][sS]?)|([fF][tT][Pp][Ss]?)://))([\-\.\,/%~_:XXXXX@\|]+)"
# set smileys="(>From )|(:[-^]?[][)(><}{|/DP])"

# Normal
color index     white		black  ".*"
color index     brightwhite black  "~N|~O"

# Spam ?
###################

# tsil(red,`(
#     Content-Type:\\ text\\/html\\;\\ charset=us-ascii,
#     helo)')

# les domaines de potes et domaine interessants.
###################

list(magenta,`(
    @nospam\.org,
    @nospam\.org,
    @nospam.org,
    @nospam\.org,
    @nospam,
    @nospam,
    @.*efrei\.fr,
    @.*proxad\.net,
    @nospam\.fr,
    @nospam\.org,
    @nospam.co,
    @nospam.org,
    @nospam.com)')

list(magenta,`(
    @nospam.com,
    @nospam\.org,
    @nospam\.org,
    @nospam.com)')

list(green,`(
    matthieu.barret@nospam.net,
    landry.bonnet@nospam.fr,
    (letters(-no-spamm\\|),[Rr]uben)@.*sw3k.net,
    solennmazuet@nospam.com,
    thomas@nospam.fr.eu.org,
    hermitte@nospam.fr,
    f1sxo@nospam.org,
    ploum@nospam.net,
    cedricduval@nospam.fr)')

list(green,`(
    jm.oltra@nospam.net,
    lionel.ulmer@nospam.fr,
    Master.Jim@nospam.fr,
    david@nospam.com)')

# petit nefreien mais pas a nefrei ;)
###################

list(cyan,`(
    airmax.*\@,
    benjamin.*scaillerez,
    seyman\@nospam\.com,
    gcoeugnet@nospam.auchan.com)')

list(cyan,`(
    d_rougier@nospam.fr,
    laurent.veron@nospam.com,
    abj\@nospam\.fr)')

# Famille
###################

list(yellow,`(
    stephane.bouchard2@nospam.fr,
    Sylvie.Phung@nospam.lindegas.com,
    raphael@nospam.org,
    @nospam.org,
    michelraph@nospam.fr,
    dmichel5@nospam.fr,
    dmichel@nospam.fr,
    dfmichel@nospam.fr,
    dmichel@nospam.fr,
    dfmichel@nospam.fr)')

# seconde liste car sinon la regex est trop longue

list(yellow,`(
    fr.celine@nospam.fr,
    celine.froidevaux@nospam.fr,
    Sylvie.Phung@nospam.linde-gas.com,
    david.michel@nospam.net)')

# Todo list
color index     black magenta "~s.*([tT][oO][dD][oO]).*"
color index     black brightmagenta "~O|~N ~s.*([tT][oO][dD][oO]).*"

# flagged messages
color index     black magenta "~hX-Status:\\ F"
color index     black brightmagenta "~O|~N ~hX-Status:\\ F"