Accept list names including non-ASCII characters.

* twittering-mode.el: Accept list names including non-ASCII
characters.
(twittering-extract-timeline-spec): accept list names including
non-ASCII characters.
* test/test-twittering-mode.el (timeline-spec): add a test for a
list name including non-ASCII characters.

ChangeLog

@@ -17,6 +17,13 @@
 	(twittering-show-replied-statuses): use
 	`twittering-render-a-field'.
 
+	* twittering-mode.el: Accept list names including non-ASCII
+	characters.
+	(twittering-extract-timeline-spec): accept list names including
+	non-ASCII characters.
+	* test/test-twittering-mode.el (timeline-spec): add a test for a
+	list name including non-ASCII characters.
+
 2011-10-23  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el: Keep the private information unless the

NEWS

@@ -119,6 +119,7 @@
   You can define an edit skeleton that is performed only for organic
   retweets. Note that edit skeletons cannot refer to the tweet being
   retweeted in the current implementation.
+* Support for list names including non-ASCII characters.
 
 ### Bug fixes
 * Fix of displaying a message of authorization.

NEWS.ja

@@ -116,6 +116,7 @@
   `organic-retweet'が追加されました。非公式ReTweetにのみ適用されるedit
   skeletonを定義できます。但し、現在の実装ではedit skeleton側から非公
   式ReTweetされようとしているtweetの内容を参照することはできません。
+* 非ASCII文字を含むリスト名に対応
 
 ### バグ修正
 * 認証成功・失敗についてのメッセージが表示されるよう修正

test/test-twittering-mode.el

@@ -1,3 +1,4 @@
+;;; -*- coding: utf-8 -*-
 
 (when (and (> 22 emacs-major-version)
 	   (require 'url-methods nil t))
@@ -279,6 +280,15 @@
    (test-restore-timeline-spec
     "#tag" '(search "#tag") '(search "#tag"))
    '(t t))
+
+  (test-assert-equal
+   (test-restore-timeline-spec
+    ;; "リスト" consists of U+256A, U+2539 and U+2548.
+    ;; They should be supported by raw Emacs21.
+    "USER/non-ASCIIリスト"
+    '(list "USER" "non-ASCIIリスト")
+    '(list "USER" "non-ASCIIリスト"))
+   '(t t))
   )
 
 (defun format-status (status format-str)

twittering-mode.el

@@ -3526,7 +3526,7 @@ Return cons of the spec and the rest string."
    ((null str)
     (error "STR is nil")
     nil)
-   ((string-match "^\\([a-zA-Z0-9_-]+\\)/\\([a-zA-Z0-9_-]+\\)" str)
+   ((string-match "^\\([a-zA-Z0-9_-]+\\)/\\([[:word:]_-]+\\)" str)
     (let ((user (match-string 1 str))
 	  (listname (match-string 2 str))
 	  (rest (substring str (match-end 0))))