Swap attachment and text position (suggested by Mike Tonks)

maros · Nov 15, 2012 · de66f3b · de66f3b
1 parent 6117f83
commit de66f3b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/Mail/Builder.pm b/lib/Mail/Builder.pm
@@ -492,10 +492,10 @@ sub build_message {
             Boundary    => $self->_get_boundary(),
             Encoding    => 'binary',
         );
+        $mime_entity->add_part($self->_build_text(Top => 0));
         foreach my $attachment ($self->attachment->list()) {
             $mime_entity->add_part($attachment->serialize());
         }
-        $mime_entity->add_part($self->_build_text(Top => 0));
         # ... without attachments
     } else {
         $mime_entity = $self->_build_text(%email_header);

diff --git a/t/07_builder_integration.t b/t/07_builder_integration.t
@@ -166,7 +166,7 @@ lives_ok {
     is($mime3->head->get('From'),'"me" <from2@test.com>'."\n",'From ok');
     is($mime3->head->get('Sender'),'"me2" <from3@test.com>'."\n",'From ok');
     is($mime3->parts,2,'No. of mime parts ok');
-    is($mime3->parts(0)->mime_type,'application/pdf','Mime type ok');
-    is($mime3->parts(1)->mime_type,'text/plain','Mime type ok');
+    is($mime3->parts(0)->mime_type,'text/plain','Mime type ok');
+    is($mime3->parts(1)->mime_type,'application/pdf','Mime type ok');
 
 } 'Object 2 ok';