Fix the regexp for "filter" timeline spec.

* twittering-mode.el (twittering-extract-timeline-spec): fix the
regexp for "filter" timeline spec.
* test/test-twittering-mode.el (timeline-spec): add a test for
trailing backslashes.

ChangeLog

@@ -3,6 +3,11 @@
 	* test/test-twittering-mode.el (test-format-status): replace the
 	format specifier "%t" with "%T".
 
+	* twittering-mode.el (twittering-extract-timeline-spec): fix the
+	regexp for "filter" timeline spec.
+	* test/test-twittering-mode.el (timeline-spec): add a test for
+	trailing backslashes.
+
 2010-02-07  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-http-get): Add an optional

test/test-twittering-mode.el

@@ -200,6 +200,20 @@
     '(filter "ABC/user" (user "mylist")))
    '(t t))
 
+  (test-assert-equal
+   (test-restore-timeline-spec
+    ":filter/ABC\\\\/user/mylist"
+    '(filter "ABC\\\\" (list "user" "mylist"))
+    '(filter "ABC\\\\" (list "user" "mylist")))
+   '(t t))
+
+  (test-assert-equal
+   (test-restore-timeline-spec
+    ":filter/\\\\/user/mylist"
+    '(filter "\\\\" (list "user" "mylist"))
+    '(filter "\\\\" (list "user" "mylist")))
+   '(t t))
+
   (test-assert-equal
    (test-restore-timeline-spec
     ":retweeted_by_me" '(retweeted_by_me)  '(retweeted_by_me))

twittering-mode.el

@@ -688,7 +688,8 @@ Return cons of the spec and the rest string."
 	(let ((first-spec (list (cdr (assoc type alist)))))
 	  (cons first-spec following)))
        ((string= type "filter")
-	(if (string-match "^:filter/\\(.*?[^\\]\\)??/" str)
+	(if (string-match "^:filter/\\(\\(.*?[^\\]\\)??\\(\\\\\\\\\\)*\\)??/"
+			  str)
 	    (let* ((escaped-regexp (or (match-string 1 str) ""))
 		   (regexp
 		    (replace-regexp-in-string "\\\\/" "/"