change a regexp pattern for HTTP response status line; same as 'twitt…

…ering-http-get-default-sentinel'.

ChangeLog

@@ -8,6 +8,11 @@
 	* twittering-mode.el (twittering-http-post-default-sentinel): Add 
 	`debug-printf' same as `twittering-http-get-default-sentinel'.
 
+	* twittering-mode.el (twittering-http-post-default-sentinel):
+	Change a regexp pattern for HTTP response status line; same as
+	`twittering-http-get-default-sentinel'.
+	(twittering-http-get-list-index-sentinel): Likewise.
+
 2009-12-29  Yuto Hayamizu  <y.hayamizu@gmail.com>
 
 	* twittering-mode.el: load mule-ucs if needed (emacs21)

twittering-mode.el

@@ -846,7 +846,7 @@ Available keywords:
   (temp-buffer noninteractive proc stat &optional suc-msg)
   (unwind-protect
       (let ((header (twittering-get-response-header temp-buffer)))
-	(if (not (string-match "HTTP/1\.[01] \\([a-z0-9 ]+\\)\r?\n" header))
+	(if (not (string-match "HTTP/1\.[01] \\([a-zA-Z0-9 ]+\\)\r?\n" header))
 	    (setq twittering-list-index-retrieved "Failure: Bad http response.")
 	  (let ((status (match-string-no-properties 1 header))
 		(indexes nil))
@@ -1093,7 +1093,7 @@ PARAMETERS is alist of URI parameters.
       (let ((header (twittering-get-response-header temp-buffer))
 	    ;; (body (twittering-get-response-body temp-buffer)) not used now.
 	    (status nil))
-	(if (string-match "HTTP/1\.1 \\([a-z0-9 ]+\\)\r?\n" header)
+	(if (string-match "HTTP/1\.[01] \\([a-zA-Z0-9 ]+\\)\r?\n" header)
 	    (setq status (match-string-no-properties 1 header))
 	  (setq status
 		(progn (string-match "^\\([^\r\n]+\\)\r?\n" header)