From 284b561249f0f9507264cb92e49b4b67cadb4ac2 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 14 Feb 2017 22:01:49 +0000
Subject: fix non-address List-* headers

RFC 2369 states that the URIs must be enclosed in <>
---
 lib/Sietima/Role/Headers.pm    | 2 +-
 t/tests/sietima/role/headers.t | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Sietima/Role/Headers.pm b/lib/Sietima/Role/Headers.pm
index 92a24f7..a1aa566 100644
--- a/lib/Sietima/Role/Headers.pm
+++ b/lib/Sietima/Role/Headers.pm
@@ -80,7 +80,7 @@ sub _add_headers_to($self,$message) {
         $mail->header_str_set(
             $header_name => try {
                 sprintf '<mailto:%s>',$address->address
-            } catch { "$address" },
+            } catch { "<$address>" },
         );
     }
     return;
diff --git a/t/tests/sietima/role/headers.t b/t/tests/sietima/role/headers.t
index 3052781..9f3e664 100644
--- a/t/tests/sietima/role/headers.t
+++ b/t/tests/sietima/role/headers.t
@@ -36,7 +36,7 @@ subtest 'list headers should be added' => sub {
                     field 'List-Owner' => '<mailto:owner@example.com>';
                     field 'List-Post' => '<mailto:sietima-test@list.example.com>';
                     field 'List-Test1' => '<mailto:someone@example.com>';
-                    field 'List-Test-2' => 'http://test.example.com';
+                    field 'List-Test-2' => '<http://test.example.com>';
 
                     field 'Date' => D();
                     field 'MIME-Version' => D();
-- 
cgit v1.2.3