include underscore as a valid character in plist keys

diff --git a/squeeze.el b/squeeze.el
index 33be4516a73d1df7e791a7a4578a1a0a2318947e..dbab10e9df862cbaa72e2e96d3785c7df157d7b8 100644 (file)
--- 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))