Netmime.readmessage and Netmime.writemessage - unexpected results

[Johann Spies <jspies@sun.ac.za>]

 
When I use the following code:

let readmessage () = Netmime.read_mime_message (new
    Netstream.input_stream (new Netchannels.input_channel stdin));;

let writemessage mesg = Netmime.write_mime_message  (new   
    Netchannels.output_channel stdout) mesg

let _ = (*handle ( readmessage () )*)
  let f = readmessage () in
    writemessage f


and pipe a short, multipart message through it using:

$ cat multipart | disclaimer > multipart2

a "diff -y multipart multipart2" shows that an extra
"
^I^I^I^I^I^I^I^I" (tabs) was added on to every line.

I have expected an unaltered message. 

There was also some wording removed from the preface part of the
message and from the epilogue.

I have attached the original and filtered messages (multipart and
multipart2) to illustrate the problem.

When piping a simple message (not multipart) through this code
"^M^I^I^I^I^I^I^I^I" was added to the headers only.

How can I avoid this behaviour?

Regards
Johann
-- 
Johann Spies          Telefoon: 021-808 4036
Informasietegnologie, Universiteit van Stellenbosch

     "Many are the afflictions of the righteous; but the
      LORD delivereth him out of them all."       
                                   Psalms 34:19