diff options
| author | dakkar <dakkar@thenautilus.net> | 2017-02-14 22:01:49 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2017-02-14 22:02:05 +0000 |
| commit | 284b561249f0f9507264cb92e49b4b67cadb4ac2 (patch) | |
| tree | a9cdcbb3e66e46431eef5b3d0603c0c727231b3d | |
| parent | use public URLs for the repository (diff) | |
| download | Sietima-284b561249f0f9507264cb92e49b4b67cadb4ac2.tar.gz Sietima-284b561249f0f9507264cb92e49b4b67cadb4ac2.tar.bz2 Sietima-284b561249f0f9507264cb92e49b4b67cadb4ac2.zip | |
fix non-address List-* headers
RFC 2369 states that the URIs must be enclosed in <>
| -rw-r--r-- | lib/Sietima/Role/Headers.pm | 2 | ||||
| -rw-r--r-- | 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(); |