From 5dca2d4b40b6637adf20b5cee461d12a22241331 Mon Sep 17 00:00:00 2001
From: IKEDA Soji <ikeda@conversion.co.jp>
Date: Sat, 6 Apr 2019 18:12:58 +0900
Subject: [PATCH] [-bug] arc_seal() crashes if seal is skipped.

---
 src/lib/Sympa/Message.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/lib/Sympa/Message.pm b/src/lib/Sympa/Message.pm
index 2576037e4..8fc6f9e40 100644
--- a/src/lib/Sympa/Message.pm
+++ b/src/lib/Sympa/Message.pm
@@ -612,9 +612,11 @@ sub arc_seal {
 
     # Seal is done. Add new headers for the seal
     my @seal = $arc->as_strings();
-    foreach my $ahdr (@seal) {
-        my ($ah, $av) = split /:\s*/, $ahdr, 2;
-        $self->add_header($ah, $av, 0);
+    if (grep { $_ and /\AARC-Seal:/i } @seal) {
+        foreach my $ahdr (reverse @seal) {
+            my ($ah, $av) = split /:\s*/, $ahdr, 2;
+            $self->add_header($ah, $av, 0);
+        }
     }
     #$self->{_body} = $new_body;
     delete $self->{_entity_cache};    # Clear entity cache.