From 899c6fbc3f522537fe05ae5bd360d8bb9a19e017 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>
Date: Mon, 5 Feb 2018 17:39:43 +0000
Subject: update for Claws Mail 3.16

---
 lib/Config/ClawsMail/PasswordStoreParser.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 lib/Config/ClawsMail/PasswordStoreParser.pm

(limited to 'lib/Config/ClawsMail/PasswordStoreParser.pm')

diff --git a/lib/Config/ClawsMail/PasswordStoreParser.pm b/lib/Config/ClawsMail/PasswordStoreParser.pm
new file mode 100644
index 0000000..227baa6
--- /dev/null
+++ b/lib/Config/ClawsMail/PasswordStoreParser.pm
@@ -0,0 +1,16 @@
+package Config::ClawsMail::PasswordStoreParser;
+use parent 'Config::INI::Reader';
+
+sub parse_section_header {
+    my ($head) = $_[1] =~ /^\s*\[\s*(.+?)\s*\]\s*$/
+        or return;
+    $head =~ s{account:}{Account: };
+    return $head;
+}
+
+sub parse_value_assignment {
+    return ($1, $2) if $_[1] =~ /^\s*([^\s\pC]+?)\s+(.*?)\s*$/;
+    return;
+}
+
+1;
-- 
cgit v1.2.3