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