--- a/lib/Message/2822.pm	Fri Nov 11 11:22:50 2011 +0100
+++ b/lib/Message/2822.pm	Fri Nov 25 15:44:37 2011 +0100
@@ -48,18 +48,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;
@@ -128,19 +128,19 @@
 The construcor. The file is opened r/o and read. The file will not be
 closed until the object disappears.
 
-=item @list = B<header_fields>([I<pattern>])
+=item 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 @list = B<header_lines>([I<pattern>])
+=item B<header_lines>([I<pattern>])
 
 Returns the header line matching the I<pattern>. See B<header_contents()>
 about the returned format. (default pattern: /.*/)
 
-=item @list = B<header_contents>([I<pattern>])
+=item B<header_contents>([I<pattern>])
 
 Returns the contents of the header lines matching the pattern. (default
 pattern: /.*/)
@@ -153,13 +153,13 @@
 since it is considered a part of the field name. I<field> is case
 insensitive!
 
-=item $scalar = $B<orig_header>()
+=item B<orig_header>()
 
-Returns the original header as it is.
+Returns the original header as it is in a single scalar.
 
-=item $body = B<orig_body>()
+=item B<orig_body>()
 
-Returns the original body as it is.
+Returns the original body as it is in a single scalar.
 
 =back