--- a/redit-client-sm.el	Fri Sep 19 17:44:41 2008 +0900
+++ b/redit-client-sm.el	Fri Sep 19 18:57:40 2008 +0900
@@ -321,7 +321,7 @@
 	  ;; JOIN if buffer-name is "*scratch*"
 	  (process-send-string redit-client-process
 			       (redit-make-packet
-				redit-join-command 0 0 0 0 7 "bufname"))
+				redit-join-command 0 0 0 0 0 ""))
 	  (redit-debug-message
 	   (format "join-command: %d 0 0 0 0 0" redit-join-command))
 	  )
@@ -417,7 +417,7 @@
 		(enqueue redit-client-send-command-queue packet)
 		
 		(redit-debug-message
-		 (format "insert-command: %d %d %d %d %d %d %s"
+		 (format "[send] insert-command: %d %d %d %d %d %d %s"
 			 redit-insert-command sid eid (gen-seqno)
 			 linenum text-size text))
 		)
@@ -463,7 +463,7 @@
 		(enqueue redit-client-send-command-queue packet)
 
 		(redit-debug-message
-		 (format "delete-command: %d %d %d %d %d %d %s"
+		 (format "[send] delete-command: %d %d %d %d %d %d %s"
 			 redit-delete-line-command sid eid (gen-seqno)
 			 linenum text-size text))
 		)
@@ -681,6 +681,11 @@
 2: redit-client
 3: void
 4: elisp"
+
+  (redit-debug-message
+   (format "[recv] insert-line: Session[%d] linenum = %d text = %s"
+	   sid linenum text))
+
   (let (curlineno bufname sinfo)
     (setq bufname (redit-sinfo-get-sid2buf sid))
 
@@ -693,7 +698,6 @@
       (if (> linenum curlineno)
 	  ;; buffer の 最後の行番号が、linenum に足りない場合、
 	  ;; その行数だけ改行し、その行へ移動する。
-	  ;; newline なので、下のようにテキストを削除する必要は無い
 	  (progn (end-of-line)
 		 (newline (- linenum curlineno))
 		 (goto-line linenum)))
@@ -721,6 +725,9 @@
 1: hoge
 2: elisp
 "
+  (redit-debug-message
+   (format "[recv] delete-line: Session[%d] linenum = %d" sid linenum))
+
   (let ((diff) (bufname (redit-sinfo-get-sid2buf sid)))
     (save-excursion
       (set-buffer bufname)
@@ -770,7 +777,7 @@
 ;; editor id を返すことになったので、sid と共に eid もセーブする
 (defun redit-client-exec-put (sid eid)
   (let (sinfo bufname)
-    ;; SessionInfo の生成
+    ;; create SessionInfo
     (setq sinfo (redit-create-session-info sid eid))
 
     ;; put (ファイル名付きjoin) を行ったバッファで