--- a/redit-client-sm.el	Thu Dec 28 21:11:09 2006 +0900
+++ b/redit-client-sm.el	Tue Jan 09 14:29:12 2007 +0900
@@ -271,9 +271,7 @@
 		   (buffer-substring beginp endp)
 		   (if (eq isnewline t) "\n")
 		   "\n"))
-
-	  (message (concat "msg = " (buffer-substring beginp endp)
-			   ", line = " (number-to-string linenum)))
+	  (sleep-for 0.3)
 	  ))
     (error "redit-client is not running.")))
 
@@ -292,6 +290,7 @@
 	(process-send-string
 	 redit-client-process
 	 (concat (format "%10d%10d%10d%10d%10d%10d" (string-to-number redit-delete-line-command) redit-client-session-id redit-client-editor-id (gen-seqno) linenum 0) "\n"))
+	(slee-for 0.3)
 	)
     (error "redit-client is not running.")))
 
@@ -328,7 +327,6 @@
 
   (let ((command (rep-get-command-from-pkt string)))
     ;; command がどの命令かを判断し、対応した処理をする。case みたい
-    (message string)
     (cond 
      ;; FIXME
      ((if (= command (string-to-number redit-open-ack))

Binary file redit-client-sm.elc has changed