I have to add a disclaimer on server level to emails.

In order to do that I want to add the disclaimer to the first 
"`Body <obj>" of a message.  At the moment I have success with
messages with the following stuctures:

Netmime.complex_mime_message = (<obj>, `Body <obj>)
and
(<obj>, `Parts [(<obj>, `Body <obj>); (<obj>, `Body <obj>);...])

but I am struggling with the following one:

- : Netmime.complex_mime_message =
(<obj>,
 `Parts
   [(<obj>, `Parts [(<obj>, `Body <obj>); (<obj>, `Body <obj>)]);
    (<obj>, `Body <obj>); (<obj>, `Body <obj>); (<obj>, `Body <obj>)])

I cannot predict how deep the nesting would be and so far was
unsuccessful in my effort to parse the tree recursively to get the
first `Body <obj>)

I would appreciate some help please.

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

     "I beseech you therefore, brethren, by the mercies of 
      God, that ye present your bodies a living sacrifice, 
      holy, acceptable unto God, which is your reasonable 
      service."       Romans 12:1 


VRYWARING: Hierdie vrywaring is bloot 'n toets...  

DISCLAIMER:  This disclaimer was just added as a test...