#!/usr/local/bin/ruby

ARGV.each{|rfn|
  wfn = sprintf("%s.tmp.%d", rfn, $$)
  File::open(rfn, "r"){|rfp|
    File::open(wfn, "w"){|wfp|
      wfp.chmod(0600)
      while rfp.gets
	case $_
	when /^(References|In-Reply-To):/i
	  while rfp.gets
	  case $_
	    when /^(References:|In-Reply-To:|\s)/i
	      nil
	    else
	      wfp.puts $_
	      break
	    end
	  end
	  break if $_ == nil || /^$/ =~ $_
	when /^$/
	  wfp.puts ""
	  break
	else
	  wfp.puts $_
	end
      end

      while rfp.gets
	wfp.puts $_
      end
    }
  }
  if File::size(rfn) == File::size(wfn)
    File::unlink(wfn)
  else
    File::unlink(rfn)
    File::rename(wfn, rfn)
  end
}