| Date: | Sun, 27 Oct 2002 21:44:24 -0500 (EST) |
| From: | Matthew Darwin <matthew [...] davin.ottawa.on.ca> |
| To: | simon [...] simon-cozens.org |
| Subject: | Urgent patch for Mail::Audit |
Mail::Audit doesn't excape "From " lines correctly when delivering to
mailbox type format.
*** /usr/local/share/perl/5.6.1/Mail/Audit.pm Sun Oct 27 21:42:34 2002
--- /usr/local/share/perl/5.6.1/Mail/Audit.pm.orig Sun Oct 27 21:34:45 2002
***************
*** 450,462 ****
}
_log(4, "printing self as mbox string.");
! if ($write_opts->{'need_from'}) {
! my $content = $self->as_string;
! $content =~ s/\nFrom /\n>From /g;
! print FH $content;
! } else {
! print FH $self->as_string;
! }
print FH "\n" if $write_opts->{'extra_newline'}; # extra \n added because mutt seems to like a "\n\nFrom " in mbox files
flock(FH, LOCK_UN) or return "Couldn't unlock $file";
--- 450,456 ----
}
_log(4, "printing self as mbox string.");
! print FH $self->as_string;
print FH "\n" if $write_opts->{'extra_newline'}; # extra \n added because mutt seems to like a "\n\nFrom " in mbox files
flock(FH, LOCK_UN) or return "Couldn't unlock $file";
--
Matthew Darwin
matthew@davin.ottawa.on.ca
http://www.davin.ottawa.on.ca/~matthew/