diff -ur dkfilter-0.11-org/lib/Mail/DomainKeys/Signature.pm dkfilter-0.11/lib/Mail/DomainKeys/Signature.pm --- dkfilter-0.11-org/lib/Mail/DomainKeys/Signature.pm 2007-11-14 11:38:24.000000000 -0500 +++ dkfilter-0.11/lib/Mail/DomainKeys/Signature.pm 2007-11-14 11:39:40.000000000 -0500 @@ -5,6 +5,7 @@ package Mail::DomainKeys::Signature; use strict; +use Text::Wrap; our $VERSION = "0.18"; @@ -81,12 +82,13 @@ $self->headerlist and $text .= "h=" . $self->headerlist . "; "; - $text .= "b=" . $self->signature . "; "; + $text .= "q=" . $self->protocol . "; "; $text .= "c=" . $self->method . "; "; + $text .= "s=" . $self->selector . "; "; $text .= "d=" . $self->domain . "; "; - $text .= "q=" . $self->protocol . "; "; - $text .= "s=" . $self->selector; + $text .= "b=" . $self->signature; + $text = wrap("", "\t", $text); length $text and return $text;