Index: /lang/elisp/wassr-mode/trunk/wassr-mode.el
===================================================================
--- /lang/elisp/wassr-mode/trunk/wassr-mode.el (revision 57)
+++ /lang/elisp/wassr-mode/trunk/wassr-mode.el (revision 59)
@@ -315,5 +315,5 @@
 ;;;
 
-(defun wassr-http-get (method-class method &optional sentinel)
+(defun wassr-http-get (method-class method type &optional sentinel)
   (if (null sentinel) (setq sentinel 'wassr-http-get-default-sentinel))
 
@@ -345,5 +345,6 @@
 		 request)
 	     (setq request
-		   (concat "GET http://" wassr-api-server "/" method-class "/" method ".xml HTTP/1.1" nl
+		   (concat "GET http://" wassr-api-server "/" method-class "/"
+			   method "." type " HTTP/1.1" nl
 			   "Host: " wassr-api-server  nl
 			   "User-Agent: " (wassr-user-agent) nl
@@ -497,5 +498,5 @@
       (let ((formatted-status (apply 'concat (nreverse result))))
 	(add-text-properties 0 (length formatted-status)
-			     `(username ,(attr 'user-screen-name))
+			     `(username ,(attr 'user-login-id))
 			     formatted-status)
 	formatted-status)
@@ -503,5 +504,5 @@
 
 (defun wassr-http-post
-  (method-class method &optional parameters contents sentinel)
+  (method-class method type &optional parameters contents sentinel)
   "Send HTTP POST request to `wassr-api-server'
 
@@ -537,5 +538,6 @@
 	     request)
 	 (setq  request
-		(concat "POST http://" wassr-api-server  "/" method-class "/" method ".xml?"
+		(concat "POST http://" wassr-api-server  "/" method-class "/"
+			method "." type "?"
 			(if parameters
 			    (mapconcat
@@ -683,5 +685,5 @@
        0 (length user-login-id)
        `(mouse-face highlight
-		    uri ,(concat "http://wassr.jp/user/" user-screen-name)
+		    uri ,(concat "http://wassr.jp/user/" user-login-id)
 		    face wassr-username-face)
        user-login-id)
@@ -692,5 +694,5 @@
        `(mouse-face highlight
 		    face wassr-username-face
-		    uri ,(concat "http://wassr.jp/user/" user-screen-name)
+		    uri ,(concat "http://wassr.jp/user/" user-login-id)
 		    face wassr-username-face)
        user-screen-name)
@@ -809,5 +811,5 @@
   (if (string-match "^\\s-*\\(?:@[-_a-z0-9]+\\)?\\s-*$" status)
       nil
-    (wassr-http-post "statuses" "update"
+    (wassr-http-post "statuses" "update" "json"
 			  `(("status" . ,status)
 			    ("source" . "ws-mode")))
@@ -825,5 +827,5 @@
   (interactive)
   (wassr-http-post
-   "statuses" "update"
+   "statuses" "update" "json"
    `(("status" . "\xd34b\xd22b\xd26f\xd224\xd224\xd268\xd34b")
      ("source" . "ws-mode"))))
@@ -833,5 +835,5 @@
 		    msg)
       (wassr-http-post
-       "statuses" "update"
+       "statuses" "update" "json"
        `(("status" . ,(concat
 		       "@" usr " "
@@ -865,5 +867,5 @@
     (if (not buf)
 	(wassr-stop)
-      (wassr-http-get "statuses" "friends_timeline")
+      (wassr-http-get "statuses" "friends_timeline" "xml")
       ))
 
@@ -895,5 +897,5 @@
   (interactive)
   (setq wassr-friends-timeline-data nil)
-  (wassr-http-get "statuses" "friends_timeline"))
+  (wassr-http-get "statuses" "friends_timeline" "xml"))
 
 (defun wassr-click ()
Index: /lang/elisp/wassr-mode/trunk/ChangeLog
===================================================================
--- /lang/elisp/wassr-mode/trunk/ChangeLog (revision 57)
+++ /lang/elisp/wassr-mode/trunk/ChangeLog (revision 59)
@@ -1,2 +1,10 @@
+2008-07-26  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>
+
+	* wassr-mode.el: ステータスのアップデートできるようになった
+	(wassr-http-get, wassr-http-post): typeを追加
+	(wassr-update-status-if-not-blank, wassr-update-lambda)
+	(wassr-update-jojo, wassr-friends-timeline)
+	(wassr-erase-old-statuses): 上記typeに対応
+
 2008-07-21  Tsuyoshi CHO  <Tsuyoshi.CHO+develop@Gmail.com>