set en-passent status

1 files changed, 4 insertions, 0 deletions

diff --git a/chess-ics.el b/chess-ics.el
index 60bcf2b..d961a58 100644
--- a/chess-ics.el
+++ b/chess-ics.el
@@ -66,6 +66,9 @@ who is black."
 
     ;; -1 if the previous move was NOT a double pawn push, otherwise the chess 
     ;; board file  (numbered 0--7 for a--h) in which the double push was made
+    (let ((index (string-to-number (car parts))))
+      (when (> index 0)
+	(chess-pos-set-en-passant position index)))
     (setq parts (cdr parts))
 
     ;; can White still castle short? (0=no, 1=yes)
@@ -144,6 +147,7 @@ who is black."
     ;; flip field for board orientation: 1 = Black at bottom, 0 = White at
     ;; bottom.
     (setq parts (cdr parts))
+
     (setq parts (cdr parts))
     (setq parts (cdr parts))