[siesta-commit] siesta/lib/Siesta Message.pm,1.27,1.28

[prev] [thread] [next] [lurker] [Date index for 2002/09/18]

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

Modified Files:
	Message.pm 
Log Message:
when replying be a little more canny about the Message-Id


Index: Message.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- Message.pm	17 Sep 2002 11:31:54 -0000	1.27
+++ Message.pm	18 Sep 2002 09:26:58 -0000	1.28
@@ -47,6 +47,12 @@
 
     $clone->to( $args{to}     || $self->from );
     $clone->from( $args{from} || $self->to );
+    $clone->subject( $args{subject}
+                     || "Re: " . ( $self->subject || "Your mail" ) );
+
+    my $msg_id = $clone->head->get('Message-Id');
+    $clone->head->delete('Message-Id');
+    $clone->head->replace( 'In-Reply-To', $msg_id ) if $msg_id;
 
     $clone->send;
 }

• [siesta-commit] siesta/lib/Siesta Message.pm,1.27,1.28 clampr 10:27 on 18 Sep 2002

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