1	require "fileinto";
2
3	if header :is "X-Mailinglist" "suse-linux" {
4		fileinto "INBOX.Listen.suse-linux";}
5	elsif header :contains "Mailing-List" "reiserfs" {
6		fileinto "INBOX.Listen.reiserfs";}
7	elsif address :contains :all ["to", "cc", "bcc"] "free-clim" {
8		fileinto "INBOX.Listen.free-clim";}
9	elsif header :contains "List-Id" "gnupg-users.gnupg.org" {
10		fileinto "INBOX.Listen.gnupg";}
11	elsif header :is "X-loop" "isdn4linux" {
12		fileinto "INBOX.Listen.isdn4linux";}
13	elsif header :contains  "Mailing-list" "qmail-help@list.cr.yp.to"{
14		fileinto "INBOX.Listen.qmail";}
15	elsif allof (header :contains "Sender" "owner-info-cyrus@list",
16			address :contains :localpart ["to", "cc", "bcc"] "info-cyrus"){
17		fileinto "INBOX.Listen.info-cyrus";}
18	elsif header :contains "Sender" "ntbugtraq@listserv"{
19		fileinto "INBOX.Listen.ntbugtraq";}
20	elsif header :is "list-id" "<ietf-mta-filters.imc.org>"{
21		fileinto "INBOX.Listen.sieve";}
22	elsif header :contains "From" "securityportal-l@listserv.securityportal.com"{
23		fileinto "INBOX.Newsletter.securityportal";}
24	elsif address :contains :all ["from"] "newsletter@ebay"{
25		fileinto "INBOX.Newsletter.ebay";}
26	elsif address :contains :all ["to", "cc", "bcc"] "allegro-cl@cs.berkeley.edu"{
27		fileinto "INBOX.Listen.allegro-cl";}
28	elsif address :contains :all ["to", "cc", "bcc"] "plob@lisp.de"{
29		fileinto "INBOX.Listen.plob";}
30	else {
31		fileinto "INBOX";}
32
33