[Mimedefang] How can I access a messages' MIME::Parser->result?

[Ian McDonald]

Hi,

Nearly all my header lines are missing from my MIME::Entity. (Most
importantly, the 'Precedence' header I wanted to filter on.)

I am pretty confident that the problem is not with the sending email,
because it is MimeDefang, via Mail::Sendmail, which is sending the email:

# start code fragment
     unless ( sendmail (
      To => $Sender,
      From => $toPool->getCharacterEmail(),
      Subject => $Subject,
      Message => $body,
      # I give the message 'list' precedence, not because it is a list
      # , but because that seems about right. This setting 1. prevents
      # correctly configured automatic replies, and 2. signals to our
      # system that it doesn't need archiving.
      Precedence => 'list',
    ) ) {

       debugWarn( "...... Reply failed with ", $Mail::Sendmail::error );
    }
# end code fragment

WRT privacy issues, this is part of a customer service system, so messages
from use to customers need to be archived.

The advice from the MIME::Tools documentation is to call the 'result' method
on the MIME::Parser object. Which, of course, is not exposed by MimeDefang.
So, my questions are:

* I'm not doing anything stupid, am I? The headers seem to turn up in the
email okay.
* How can I get at the MIME::Parser results?
* What is happening to my Precedence header?

Thanks,

Ian