don't snarf newline characters in messages

diff --git a/squeeze.el b/squeeze.el
index c4c8b4ebed6c2faaf4328a5eb3716c31e316786d..4d451462e529e8773755de27a6272a17d71c207c 100644 (file)
--- a/squeeze.el
+++ b/squeeze.el
@@ -75,7 +75,7 @@
     (let (result)
       (loop
        (message "start: %d" start)
     (let (result)
       (loop
        (message "start: %d" start)

-       (if (string-match "\\([a-z]+\\)%3A\\([^ ]+\\)" string start)
+       (if (string-match "\\([a-z]+\\)%3A\\([^ \n]+\\)" string start)

            (let ((mend (match-end 0)))
              (when (> mend end)
                (return))
            (let ((mend (match-end 0)))
              (when (> mend end)
                (return))