Refactor code to create a MIME::Parser with our prefer settings

diff --git a/Emesinae/MIME.pm b/Emesinae/MIME.pm
index 6a7665946c86a41e4da57d767c42e61d9a7d3ea0..3be8a16da8490500949b77ab63aa4d3daf5667f2 100644 (file)
--- a/Emesinae/MIME.pm
+++ b/Emesinae/MIME.pm
@@ -1,8 +1,19 @@
 package Emesinae::MIME;
 
+use MIME::Parser;
+
 use warnings;
 use strict;
 
+sub getmimeparser ($)
+{
+    my ( $tmp ) = @_;
+    my $p = new MIME::Parser;
+    $p->tmp_to_core(1);
+    $p->output_under($tmp);
+    return $p;
+}
+
 sub getmailbody    # From Debbugs
 {
     my $entity = shift;

diff --git a/Emesinae/Message.pm b/Emesinae/Message.pm
index 1a5cc512fe495cab0389f42f58567e397d0e6228..19eb5b1d461b12215240305272269b9845d90bd0 100644 (file)
--- a/Emesinae/Message.pm
+++ b/Emesinae/Message.pm
@@ -4,10 +4,10 @@ use strict;
 use warnings;
 
 use Emesinae::Common;
+use Emesinae::MIME;
 use Mail::Field;
 use Mail::Field::AddrList;
 use Mail::Field::Date;
-use MIME::Parser;
 
 sub lookup_id {
     my $class = shift;
@@ -249,9 +249,7 @@ sub body {
 
 sub get_mime($$) {
     my ( $self, $tmp ) = @_;
-    my $p = new MIME::Parser;
-    $p->tmp_to_core(1);
-    $p->output_under($tmp);
+    my $p = Emesinae::MIME::getmimeparser($tmp);
     return $p->parse_two( $self->_rawpath("hdr"), $self->_rawpath("body") );
 }