[Rt-commit] r2869 - in rt/branches/QUEBEC-EXPERIMENTAL: . lib/RT/Action

[jesse at bestpractical.com]

Author: jesse
Date: Wed May 11 20:09:08 2005
New Revision: 2869

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/SendEmail.pm
Log:
 r16467 at hualien:  jesse | 2005-05-11 15:31:47 +0100
  r16462 at hualien:  jesse | 2005-05-11 10:30:30 -0400
  * Try harder to set a proper In-reply-to: header
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/SendEmail.pm	Wed May 11 20:09:08 2005
@@ -751,10 +751,17 @@
 
     # Message A has an unspecified reply-to
     # Message B is in-reply-to A
-    # Message C is in-reply-to A and B
+    # Message C is in-reply-to A. (should be A and B
+    # XXX FIXME TODO Sadly, MUAs hate can't cope with multiple in-reply-to)
 
-    # XXX FIXME TODO Sadly, MUAs hate can't cope with multiple in-reply-to
-    $self->SetHeader( 'In-Reply-To', join( " ",  ( @in_reply_to ))); # , @msgid ) ) );
+    my @source_msg;
+    if ( @in_reply_to) {
+        @source_msg = @in_reply_to;
+    }
+    else {
+        @source_msg = @msgid;
+    }
+    $self->SetHeader( 'In-Reply-To', join( " ",  ( @source_msg ))); # , @msgid ) ) );
 
     #   RFC 2822 - Section 3.6.4
     #