127 lines
3.3 KiB
Plaintext
127 lines
3.3 KiB
Plaintext
|
dnl or(either, otherwise)
|
||
|
|
define(`or', `ifelse(`$1', `', `$2', `$1')')
|
||
|
|
|
||
|
|
dnl q(text)
|
||
|
|
define(`q', `patsubst(`$1', `[.]', `\\\&')')
|
||
|
|
|
||
|
|
dnl join(delim, elems*)
|
||
|
|
define(`join', `ifelse(
|
||
|
|
`$#', `0', `',
|
||
|
|
`$#', `1', `',
|
||
|
|
`$#', `2', `$2',
|
||
|
|
``$2$1'join(`$1', shift(shift($@)))')')
|
||
|
|
|
||
|
|
dnl md*(mbox, rule, addr)
|
||
|
|
define(`md', `indir(`md_'md_target, $@)')
|
||
|
|
|
||
|
|
dnl muttrc
|
||
|
|
define(`md_muttrc_mboxes', `mailboxes +$1')
|
||
|
|
define(`md_muttrc_subscr', `ifelse(`$3', `', `', `subscribe $3')')
|
||
|
|
|
||
|
|
dnl procmailrc
|
||
|
|
define(`md_procmailrc', `
|
||
|
|
:0
|
||
|
|
* ^$2
|
||
|
|
deliver(`$1')
|
||
|
|
|
||
|
|
')
|
||
|
|
|
||
|
|
dnl ml(addr, mbox, id, fix, rule)
|
||
|
|
define(`ml', `md(
|
||
|
|
or(`$2', `substr(`$1', 0, index(`$1', `@'))'),
|
||
|
|
ml_rule(or(`$3', `ifelse(
|
||
|
|
`$4', `ecartis', `substr(`$1', 0, index(`$1', `@'))',
|
||
|
|
`translit(`$1', `@', `.')')'), `$1', `$4', `$5'),
|
||
|
|
`$1')')
|
||
|
|
|
||
|
|
dnl ml_rule(id, addr, fix, rule)
|
||
|
|
define(`ml_rule', `ifelse(
|
||
|
|
`$3', `to', `TO_`'q($2)',
|
||
|
|
`$3', `ezmlm', `Mailing-List:.* q(substr(`$2', 0,
|
||
|
|
index(`$2', `@'))-help`'substr(`$2', index(`$2', `@')));',
|
||
|
|
`$3', `ecartis', `X-list: q($1)$',
|
||
|
|
`$4', `', `List-Id:.*[ <]q($1)',
|
||
|
|
`$4')')
|
||
|
|
|
||
|
|
dnl Mailing Lists
|
||
|
|
ml(`swpat@ffii.org', `ffii-swpat')
|
||
|
|
ml(`at-parl@ffii.org', `ffii-at-parl')
|
||
|
|
ml(`swpat@mond.at', `mond-swpat')
|
||
|
|
ml(`soekris-tech@lists.soekris.com')
|
||
|
|
ml(`www-math@w3.org')
|
||
|
|
ml(`geo-discuss@lists.okfn.org')
|
||
|
|
ml(`geowanking@lists.burri.to')
|
||
|
|
ml(`info-gplv3@gplv3.fsf.org', `gplv3',, `to')
|
||
|
|
ml(`(european-gi-policy|egip)@jrc.it', `egip',, `to')
|
||
|
|
ml(`cryopid-devel@lists.berlios.de')
|
||
|
|
ml(`lojban-beginners@lojban.org',,, `ecartis')
|
||
|
|
ml(`lojban-list@lojban.org',,, `ecartis')
|
||
|
|
ml(`talk-de@openstreetmap.org')
|
||
|
|
ml(`talk-fr@openstreetmap.org')
|
||
|
|
ml(`josm-dev@openstreetmap.org')
|
||
|
|
ml(`legal-talk@openstreetmap.org')
|
||
|
|
ml(`tahoe-dev@allmydata.org')
|
||
|
|
|
||
|
|
dnl Bugzillas
|
||
|
|
define(`bz', `md(`bugs-$1', `$2')')
|
||
|
|
bz(`debian', `From.*<owner@bugs.debian.org>')
|
||
|
|
bz(`gcc', `Reply-To: gcc-bugzilla@gcc.gnu.org')
|
||
|
|
bz(`gentoo', `From: bugzilla-daemon@gentoo.org')
|
||
|
|
bz(`kde', `X-Bugzilla-URL: http://bugs.kde.org/')
|
||
|
|
bz(`remotesensing', `From: bugzilla-daemon@bugzilla.remotesensing.org')
|
||
|
|
bz(`sablevm', `From: bugs-owner@sablevm.org')
|
||
|
|
bz(`berlios', `From: noreply@berlios.de')
|
||
|
|
bz(`gnome', `From: bugzilla-daemon@bugzilla.gnome.org')
|
||
|
|
|
||
|
|
dnl Misc
|
||
|
|
md(`osm', `Subject:.*\[OpenStreetMap\] GPX Import success')
|
||
|
|
md(`sourceforge', `From:.*noreply@sourceforge\.net')
|
||
|
|
|
||
|
|
dnl GMane
|
||
|
|
md(`gmane', `From:.*auth.gmane\.org')
|
||
|
|
|
||
|
|
dnl Service providers
|
||
|
|
md(`ums', `From:.*ums@a1\.net')
|
||
|
|
md(`nit', `From:.*kundensupport@nit\.at')
|
||
|
|
|
||
|
|
dnl Newsletters
|
||
|
|
md(`ffii', `From:.*ffii.org|TO_.*ffii.org')
|
||
|
|
md(`diepresse', `From:.*newsletter@diepresse.com')
|
||
|
|
|
||
|
|
md(`werbung', `From:.*('join(`|',
|
||
|
|
`newsletter',
|
||
|
|
`newslist',
|
||
|
|
`newsteam',
|
||
|
|
`mailing',
|
||
|
|
`palmsource',
|
||
|
|
`palmgear',
|
||
|
|
`palmone',
|
||
|
|
`ebook.nl',
|
||
|
|
`webmaster@sony\.at',
|
||
|
|
`return@mandriva\.com',
|
||
|
|
`mailelk@.*swr3\.de',
|
||
|
|
`shockwave\.com',
|
||
|
|
`RealNetworks',
|
||
|
|
`email@softwarewelt\.de',
|
||
|
|
`noreply@widget-service\.de',
|
||
|
|
`tomtomnews@tomtommailer\.com',
|
||
|
|
`promotion5@amazon\.de',
|
||
|
|
`mailings@gmx-gmbh\.de',
|
||
|
|
`linuxland\.de',
|
||
|
|
`macromedia',
|
||
|
|
`promotion',
|
||
|
|
`<info@cr-elektronik\.de>',
|
||
|
|
`office@wenigzell\.at',
|
||
|
|
`<annonce@amazon\.fr>',
|
||
|
|
`<flashnews@foxfilm\.at>',
|
||
|
|
`@news\.niedermeyer\.at>',
|
||
|
|
`softwarewelt')`)')
|
||
|
|
|
||
|
|
dnl Personal mailboxes
|
||
|
|
|
||
|
|
define(`mymbox', `md(`$1', `TO_'q(`$2'))')
|
||
|
|
|
||
|
|
mymbox(`INBOX', `ge@gabrielebner.at')
|
||
|
|
mymbox(`webmaster', `webmaster@gabrielebner.at')
|
||
|
|
mymbox(`a1net', `dieschnecke@a1.net')
|