1日20秒でできるnet/imap入門

*1
メーリングリストを複数のメールアドレス*2で購読しちゃうことあるじゃん？そうすると同じメールを複数受け取っちゃうんだよね。最終的にはApple MailでひとつのIMAPのフォルダに放り込むんだけど、同じメールがまぎれちゃう。

で、ですね。net/imapを使ってあるフォルダに入ってる重複したメールを削除してみました。net/imapもはじめてだけど、IMAP プロトコル自体はじめてだったので手こずった...。

メッセージの一意性はMessage-Idでいいはずなんだけど、開発中の都合でSubjectも使いました。定数KEYからSubjectを抜けばMessage-Idだけで判断するはず。

重複を探す作戦は最初は辞書を使ったんだけど、並び替えてから同じ行を見つけるコントロールブレイクというかuniq風というか古典的な手順に書き換えました。

require 'net/imap'
require 'enumerator'

KEY = 'BODY[HEADER.FIELDS (Message-Id Subject)]'

imap = Net::IMAP.new('サーバ')  # この辺は適当に変える
imap.login('アカウント', 'パスワード') #
imap.select('フォルダ') #
ary = imap.search('ALL')
data = imap.fetch(Range.new(ary[0], ary[-1]), "(UID #{KEY})")

data.sort_by {|rec| rec.attr[KEY]}.each_cons(2) do |prev, curr|
  if prev.attr[KEY] == curr.attr[KEY]
    p imap.uid_store(curr.attr['UID'], "+FLAGS", [:Deleted])
  end
end

imap.expunge
imap.disconnect