Fix the regexp for judging whether a list name is required or not.

* twittering-mode.el
(twittering-read-timeline-spec-with-completion): fix the regexp
for judging whether a list name is required or not.

ChangeLog

@@ -11,6 +11,10 @@
 	* twittering-mode.el (twittering-extract-timeline-spec): add error
 	messages for some conditions.
 
+	* twittering-mode.el
+	(twittering-read-timeline-spec-with-completion): fix the regexp
+	for judging whether a list name is required or not.
+
 2010-02-07  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-http-get): Add an optional

twittering-mode.el

@@ -2839,17 +2839,19 @@ variable `twittering-status-format'."
 	 (spec-string (twittering-completing-read prompt dummy-hist
 						  nil nil initial 'dummy-hist))
 	 (spec-string
-	  (if (string-match "^\\([^/]+\\)/$" spec-string)
-	      (let* ((username (match-string 1 spec-string))
-		     (list-index (twittering-get-list-index-sync username))
-		     (listname
-		      (if list-index
-			  (twittering-read-list-name username list-index)
-			nil)))
-		(if listname
-		    (concat username "/" listname)
-		  nil))
-	    spec-string))
+	  (cond
+	   ((string-match "^\\([a-zA-Z0-9_-]+\\)/$" spec-string)
+	    (let* ((username (match-string 1 spec-string))
+		   (list-index (twittering-get-list-index-sync username))
+		   (listname
+		    (if list-index
+			(twittering-read-list-name username list-index)
+		      nil)))
+	      (if listname
+		  (concat username "/" listname)
+		nil)))
+	   (t
+	    spec-string)))
 	 (spec (twittering-string-to-timeline-spec spec-string)))
     (cond
      (spec (if as-string