#!/bin/sh

mark -zero -sequence p
pick +inbox -sequence p\
	--Content-Type 'charset="DEFAULT_CHARSET"' -or \
	--Content-Type 'charset="GB2312_CHARSET"' -or \
	--Content-Type 'charset="ks_c_5601-1987"' -or \
	--Content-Type 'charset=euc-kr' -or \
	--Content-Type 'text/html;.*charset="iso-8859-1"' -or \
	--received 'GTXCash.com' -or \
	--received 'mail.sakurajpn.com' -or \
	--received yumeko.to -or \
	--X-Mailer 'Achi-Kochi Mail' -or \
	--X-Mailer CSMTPConnection -or \
	-from '@21cn.com' -or \
	-from '@chan.jp' -or \
	-from '@derodero.ath.cx' -or \
	-from '@dmn-web.com' -or \
	-from '@durian-jp.com' -or \
	-from '@eagle-mail.com' -or \
	-from '@fcalpha.com' -or \
	-from '@fivedoors.net' -or \
	-from '@friendly-love.com' -or \
	-from '@glasscatfish.com' -or \
	-from '@grapefruit-jp.com' -or \
	-from '@hawk-mail.com' -or \
	-from '@i-need-you.jp' -or \
	-from '@internet-club.co.jp'  -or \
	-from '@kite-mail.com' -or \
	-from '@lime-jp.com' -or \
	-from '@lovecouple.jp' -or \
	-from '@nozokick.jp' -or \
	-from '@petfull.com' -or \
	-from '@rhyme-jp.com' -or \
	-from '@sparrow-mail.com' -or \
	-from '@tangerine-jp.com' -or \
	-from '@timelessero.com' -or \
	-from 'barsoulrevolution@hotmail.com' -or \
	-from 'localdomail' -or \
	-subj 'お宝' -or \
	-subj 'アイコラ' -or \
	-subj 'アイドル' -or \
	-subj 'サイドビジネス' -or \
	-subj 'メル友' -or \
	-subj '出会' -or \
	-subj ' Loan ' -or \
	-subj ' retail ' -or \
	-subj ' sex ' -or \
	-subj ' stock ' -or \
	-subj ' teens ' -or \
	-subj '.BIZ .INFO' -or \
	-subj 'about your' -or \
	-subj 'adult' -or \
	-subj 'asset ' -or \
	-subj 'ADV:' -or \
	-subj 'Animal Love' -or \
	-subj 'AUTO:' -or \
	-subj 'ATTENTION' -or \
	-subj 'ATTN:' -or \
	-subj 'Are you in debt' -or \
	-subj 'Asset Search' -or \
	-subj 'boost ' -or \
	-subj 'BRAND ' -or \
	-subj 'business' -or \
	-subj 'buy ' -or \
	-subj 'Calling Plan' -or \
	-subj 'Casino' -or \
	-subj 'CHECK PEOPLE' -or \
	-subj 'Check this out' -or \
	-subj 'COMMISSION ' -or \
	-subj 'Congratulations' -or \
	-subj 'Credit Card' -or \
	-subj 'dollar' -or \
	-subj 'DVD Movie' -or \
	-subj 'Enhance Your' -or \
	-subj 'erections' -or \
	-subj 'euc-kr' -or \
	-subj 'for Sale' -or \
	-subj 'foreign citizens' -or \
	-subj 'foreign residents' -or \
	-subj 'free ' -or \
	-subj 'FREE Specials' -or \
	-subj 'free!' -or \
	-subj 'free,' -or \
	-subj 'free cash' -or \
	-subj 'Get Ready' -or \
	-subj 'Get your' -or \
	-subj 'Gift For' -or \
	-subj 'Gifting' -or \
	-subj 'Give Aways' -or \
	-subj 'Give me a break' -or \
	-subj 'Gov Grants' -or \
	-subj 'Goverment Grants' -or \
	-subj 'Great Saving' -or \
	-subj 'Green card' -or \
	-subj 'Growth Potential' -or \
	-subj 'GUARANTEED' -or \
	-subj 'happy' -or \
	-subj 'Increase Your' -or \
	-subj 'important' -or \
	-subj 'invest' -or \
	-subj 'ks_c_5601' -or \
	-subj 'late limit' -or \
	-subj 'Life Insurance' -or \
	-subj 'lose weight' -or \
	-subj 'Low Interest' -or \
	-subj 'make' -or \
	-subj 'million email' -or \
	-subj 'money' -or \
	-subj 'penis' -or \
	-subj 'product give' -or \
	-subj 'porn' -or \
	-subj 'rates dropped' -or \
	-subj 'special offer' -or \
	-subj 'tax collector' -or \
	-subj 'this is for you' -or \
	-subj 'to win ' -or \
	-subj 'USA Homeowners' -or \
	-subj 'Vacation' -or \
	-subj 'Viagra' -or \
	-subj 'win your' -or \
	-subj 'winner confirmation' -or \
	-subj '(WebSite)' -or \
	-subj 'you can' -or \
	-subj 'your dream' -or \
	-subj 'your site' -or \
	-subj 'your web' -or \
	-subj 'your.*market' -or \
	-subj 'yourself' -or \
	-subj '\$' -or \
	-to '@jinzai-web.co.jp' -or \
	-to '@mands-cop.co.jp' -or \
	-to '@pacificgirls.com' -or \
	-to '@sagashiya-tenplus.com' -or \
	-to 'Undisclosed-Recipients' -or \
	-to 'Undisclosed.Recipients'
#
#	 Subjectの最後に謎の数字列があるメールを追加
#
pushd ~/Mail/inbox
mark -sequence p -add `grep -li  '^Subject:.* [0-9][0-9][0-9]\+$' *|grep -v '200[0-9]$'`
popd
scan p

#
#	SPAM以外のメールの誤認を減らす
#
pick -not -from ryukyu.ad.jp -and -not -from microsoft  p
#
#	[...]なメールは省くといいかも、と思ったけど効果がない
#	if pick +inbox -not -subject '[.*:.*]' p
#	then
#	fi