メールを読むについて

http://www.t-doi.org/linux/autopic.html

メールのファイル名を変える

 #!/usr/local/bin/ruby
 require 'mailread'
 require 'nkf'
 require 'parsedate'
 #m = Mail.new('ympa-mail/BKBK_3FB1D8B4_EF2E.eml')
 Dir.glob("*"){|f|
   m = Mail.new(f)
   if m['Date'] != nil
     d = ParseDate::parsedate(NKF.nkf('-me',m['Date']))
   else
     d = %w(不明 不明 不明 不明 不明 不明 不明 不明)
   end
   n = NKF.nkf('-me',m['Subject']).map{|i| i.gsub(/\n/,'')}.join +
     &#39;-&#39; + NKF.nkf(&#39;-me&#39;,m[&#39;From&#39;]).map{|i| i.gsub(/\n/,&#39;&#39;)}.join.gsub(/</,&#39;[&#39;).gsub(/>/,&#39;]&#39;) +
     &#39;-&#39; +  "#{d[0]}年#{d[1]}月#{d[2]}日#{d[3]}時#{d[4]}分" +
     &#39;.eml&#39;
   begin
     File.rename(f,n)
   rescue
   end
 }