#!/usr/bin/ruby -s
=begin
= メールの内容を一括表示
(要：((<RAA:TMail>)))

メールの内容を表示して euc コードで表示。
ファイルが存在しない場合 INBOX "#{ENV['HOME']}/Mail/inbox" にあるディレクトリから探される。
== オプション
* -s オプションで1ファイルごとにセパレータを表示。
* -d オプションで日付も表示。
* -ns オプションで題名を表示しない。
=end

require 'tmail/tmail'
require 'nkf'
require 'tmail-util'

ARGV.each do |file|
  file = File::join(TMail::INBOX, file) unless File::exist? file
  m = TMail::Mail::loadfrom file
  puts "Subject: " + m.subject unless $ns
  puts "Date: " + m.date.to_s if $d
  print NKF::nkf('-e',m.body)
  puts "-" * 80 + "\n" if $s
  
end