Log annoying FLAP errors instead of interupting with #'error

[emchat] / emchat-v8.el

diff --git a/emchat-v8.el b/emchat-v8.el
index 8f9136c..078ee30 100644 (file)
--- a/emchat-v8.el
+++ b/emchat-v8.el
@@ -2371,17 +2371,15 @@ SPEC is one of
    (emchat-v8-ctx-proc data) 'emchat-v8-proc-filter-accumulator)
 
   (unwind-protect
-      (progn
-       (let ((bb (emchat-v8-fetch-byte data)))
-         (unless (= bb #x2A)
-           (error "Unexpected data while fetching FLAP")))
-
-       (let* ((cin (emchat-v8-fetch-byte data))
-              (seq (emchat-v8-fetch-word data))
-              (flen (emchat-v8-fetch-word data))
-              (fdata (emchat-v8-fetch-data data flen)))
-         (list cin seq fdata)))
-
+      (let ((bb (emchat-v8-fetch-byte data)))
+       (if (not (= bb #x2A))
+           (emchat-v8-debug "Unexpected data while fetching FLAP: %S" bb)
+         (let* ((cin (emchat-v8-fetch-byte data))
+                (seq (emchat-v8-fetch-word data))
+                (flen (emchat-v8-fetch-word data))
+                (fdata (emchat-v8-fetch-data data flen)))
+           (list cin seq fdata))))
+    ;; unwind form
     (set-process-filter
      (emchat-v8-ctx-proc data) 'emchat-v8-proc-filter-proccessing)))