;;; -*- scheme -*-
(add-filter-rule! 
   (lambda (mail)
     (copy mail "backup"))
   '(from
     ("foo@example.jp" (redirect "mobile@example.org"))
     (("foo@example.org"
       "foo@example.jp") "from.foo")
     ("nenchaku@example.jp" (remove))
     )
   '(delivered-to
     ("former-address@example.jp" "to.former"))
   '(to/cc
     ("test-mailing-list@example.org" (forward "ml@example.org")))
   '(list-id
     (#/<([^>]+)>/  "ml.\\1"))
   '(subject
     (#/̤¾µÂú¹­¹ð¢¨/ "spam"))
   '(for-test
     ("This is an intentionally invalid rule"))
   (lambda (mail)
     (and (mail 'subject "Viagra")
          (mail 'body "Nigeria")
          (refile mail "spam")))
   )
(set-match-data-replace-rule! '(#/[^a-zA-Z0-9_-]/ "-"))