Fix encoding problems

diff --git a/lib/XML/Feed/Atom.pm b/lib/XML/Feed/Atom.pm
index 9285e63..973a287 100644 (file)
--- a/lib/XML/Feed/Atom.pm
+++ b/lib/XML/Feed/Atom.pm
@@ -133,7 +133,7 @@ sub content {
     if (@_) {
         my %param;
         if (ref($_[0]) eq 'XML::Feed::Content') {
-            %param = (Body => $_[0]->body);
+            %param = (Body => $_[0]->body, Type => ($_[0]->type eq 'text/html')? 'html' : 'text');
         } else {
             %param = (Body => $_[0]);
         }