[siesta-commit] siesta/lib/Siesta Message.pm,1.31,1.32

[prev] [thread] [next] [lurker] [Date index for 2002/10/10]

Update of /cvsroot/siesta/siesta/lib/Siesta
In directory usw-pr-cvs1:/tmp/cvs-serv28879/lib/Siesta

Modified Files:
	Message.pm 
Log Message:
A little more paranoia.
...

o/~ A little less conversation, a little more action please
All this aggravation ain`t satisfactioning me
A little more bite and a little less bark
A little less fight and a little more spark o/~

(c) Elvis Presley



Index: Message.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- Message.pm	10 Oct 2002 09:55:34 -0000	1.31
+++ Message.pm	10 Oct 2002 10:47:39 -0000	1.32
@@ -45,8 +45,13 @@
         $clone->body( [ map { "$_\n" } split /\n/, $args{'body'} ] );
     }
 
-    $clone->to( $args{to}     || $self->from );
-    $clone->from( $args{from} || $self->to );
+    my $to   = $args{to} || ($self->from)[0] 
+	or return 0;
+    my $from = $args{from} || ($self->to)[0]
+	or return 0; 
+
+    $clone->to( $to );
+    $clone->from( $from );
     $clone->subject( $args{subject}
                      || "Re: " . ( $self->subject || "Your mail" ) );
 

• [siesta-commit] siesta/lib/Siesta Message.pm,1.31,1.32 muttley 11:47 on 10 Oct 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52