--- a/lib/Message/2822.pm	Wed Jan 04 15:10:55 2012 +0100
+++ b/lib/Message/2822.pm	Wed Jan 04 16:49:38 2012 +0100
@@ -50,18 +50,18 @@
     return join "" => @r;
 }
 
-#sub remove_header_lines {
-#    my $self = shift;
-#    my $pattern = shift // die "Need a pattern!";
-#    $DATA{header}{$self} =~ s/^$pattern.*?(?=^\S|\Z)//imsg;
-#}
+sub remove_header_lines {
+    my $self = shift;
+    my $pattern = shift // die "Need a pattern!";
+    $DATA{header}{$self} =~ s/^$pattern.*?(?=^\S|\Z)//imsg;
+}
 
-#sub add_header_line {
-#my $self = shift;
-#my $_ = shift;
-#$_ .= "\n" unless /\n$/;
-#$DATA{header}{$self} .= $_;
-#}
+sub add_header_line {
+    my $self = shift;
+    my $_ = shift;
+    $_ .= "\n" unless /\n$/;
+    $DATA{header}{$self} .= $_;
+}
 
 sub header_contents {
     my $self = shift;
@@ -134,19 +134,19 @@
 The construcor. The file is opened r/o and read. The file will not be
 closed until the object disappears.
 
-=item B<header_fields>([I<pattern>])
+=item @list = B<header_fields>([I<pattern>])
 
 Return a list of existing header fields, matching the pattern. 
 See B<header_contents()> for information about the
 returned format. (default pattern: /.*/)
 
 
-=item B<header_lines>([I<pattern>])
+=item @list = B<header_lines>([I<pattern>])
 
 Returns the header line matching the I<pattern>. See B<header_contents()>
 about the returned format. (default pattern: /.*/)
 
-=item B<header_contents>([I<pattern>])
+=item @list = B<header_contents>([I<pattern>])
 
 Returns the contents of the header lines matching the pattern. (default
 pattern: /.*/)
@@ -159,13 +159,13 @@
 since it is considered a part of the field name. I<field> is case
 insensitive!
 
-=item B<orig_header>()
+=item $scalar = $B<orig_header>()
 
-Returns the original header as it is in a single scalar.
+Returns the original header as it is.
 
-=item B<orig_body>()
+=item $body = B<orig_body>()
 
-Returns the original body as it is in a single scalar.
+Returns the original body as it is.
 
 =back