English version
Accueil     À propos     Téléchargement     Ressources     Contactez-nous    

Ce site est rarement mis à jour. Pour les informations les plus récentes, rendez-vous sur le nouveau site OCaml à l'adresse ocaml.org.

Browse thread
Netmime.readmessage and Netmime.writemessage - unexpected results
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: 2005-06-17 (13:35)
From: Johann Spies <jspies@s...>
Subject: Netmime.readmessage and Netmime.writemessage - unexpected results

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?

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