+sub new_from_letter {
+ my ($class, $letter) = @_;
+
+ my $self = $class->new;
+
+ if (!ref $letter) {
+ require SL::DB::Draft;
+ $letter = SL::DB::Draft->new(id => $letter)->load;
+ }
+
+ $self->assign_attributes(map { $_ => $letter->$_ } $letter->meta->columns);
+
+ $self->id(undef);
+
+ $self;
+}
+