diff -urN tmail-0.10.8-orig/lib/tmail/mail.rb tmail-0.10.8/lib/tmail/mail.rb

--- tmail-0.10.8-orig/lib/tmail/mail.rb	2004-02-20 03:35:01 +0300

+++ tmail-0.10.8/lib/tmail/mail.rb	2004-04-28 13:38:13 +0400

@@ -34,6 +34,7 @@

       @config = Config.to_config(conf)

       @header      = {}

+      @header_orig = {}

       @body_port   = nil

       @body_parsed = false

       @epilogue    = ''

@@ -589,6 +590,10 @@

       @header.dup

     end

+    def header_orig

+      @header_orig.dup

+    end

+

     def [](key)

       @header[key.downcase]

     end

@@ -707,8 +712,10 @@

     def parse_header(f)

       name = field = nil

       unixfrom = nil

+      orig = ''

       while line = f.gets

+        orig += line

         case line

         when /\A[ \t]/             # continue from prev line

           raise SyntaxError, 'mail is began by space' unless field

@@ -732,6 +739,7 @@

       if unixfrom

         add_hf 'Return-Path', "<#{unixfrom}>" unless @header['return-path']

       end

+      add_oh orig

     end

     def add_hf(name, field)

@@ -749,6 +757,10 @@

       HeaderField.new(name, field, @config)

     end

+    def add_oh( str )

+      @header_orig = str

+    end

+

     ###

     ### Message Body

     ###