*** no comment ***

diff --git a/TODO b/TODO
index 1268d6704b3eafeddb48d1c14b7ac055ccb70b16..b9064a34e08cd913de36dc3935b7fd04c2df4f71 100644 (file)
--- a/TODO
+++ b/TODO
@@ -9,6 +9,8 @@
 
 - Rewrite ics.el
 
+- Add acknowledgement to the chess-network protocol
+
 - Make use of the my-color data in chess-game.el to ensure that I only
   do what I should be doing
 

diff --git a/chess-irc.el b/chess-irc.el
index 489624f7b81e000f8bd7903a83313cd2cac11c34..6459cc209dda22afccd7638d90267b70ad6a0cc7 100644 (file)
--- a/chess-irc.el
+++ b/chess-irc.el
@@ -71,7 +71,7 @@
 
    ((eq event 'shutdown)
     (ignore-errors
-      (chess-engine-send nil "game over"))
+      (chess-engine-send nil "quit"))
     (ignore-errors
       (process-send-string chess-irc-process "QUIT :Goodbye\n"))
     (ignore-errors
@@ -103,6 +103,8 @@ NOTE: This function is meant to be called from a display buffer!"
          (save-excursion
            ;; Insert the text, advancing the marker.
            (goto-char (process-mark proc))
+           (while (string-match "\r" string)
+             (setq string (replace-match "" t t string)))
            (insert string)
            (set-marker (process-mark proc) (point)))
          (if moving (goto-char (process-mark proc))))