include underscore as a valid character in plist keys

[squeeze-el.git] / squeeze.el

diff --git a/squeeze.el b/squeeze.el
index 267fe2d59ce2cda7eb9b3c140364f3c9fa5d515d..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))
@@ -419,7 +419,7 @@
             "serverstatus" "status" "displaystatus" "readdirectory"
 
             ;; Notifications
-            
+
             ;; Alarm commands and queries
             "alarm" "alarms"