--- .cpan/build/Mail-Box-1.323/Box/Message.pm	Tue Oct 23 22:14:01 2001
+++ lib/perl5/site_perl/5.6.0/Mail/Box/Message.pm	Thu Nov 22 16:00:13 2001
@@ -571,6 +571,13 @@
     $class->Mail::Box::Message::new(@_);
 }
 
+sub dup
+{   my ($self) = @_;
+    my $dup = bless $self->SUPER::dup(), ref($self);
+    $dup->folder($self->folder()) if $self->folder();
+    $dup;
+}
+
 sub init($)
 {   my ($self, $args) = @_;
     $self->delayedInit($args) || return $self;