From 2ab68ce2ad79bb222c28cceeeef7dfead4750b27 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Tue, 21 Oct 2014 22:04:26 +0100
Subject: [PATCH] include underscore as a valid character in plist keys

---
 squeeze.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/squeeze.el b/squeeze.el
index 33be451..dbab10e 100644
--- a/squeeze.el
+++ b/squeeze.el
@@ -339,7 +339,7 @@
   (save-match-data
     (let (result)
       (loop
-       (if (string-match "\\([a-z]+\\)%3A\\([^ \n]+\\)" string start)
+       (if (string-match "\\([a-z_]+\\)%3A\\([^ \n]+\\)" string start)
            (let ((mend (match-end 0)))
              (when (> mend end)
                (return))
-- 
2.39.5