diff --git a/lsp-mode.el b/lsp-mode.el
index 05cac9b3c2..d1a395e9fd 100644
--- a/lsp-mode.el
+++ b/lsp-mode.el
@@ -7041,8 +7041,8 @@ server. WORKSPACE is the active workspace."
         leftovers body-length body chunk)
     (lambda (_proc input)
       (setf chunk (if (s-blank? leftovers)
-                      input
-                    (concat leftovers input)))
+                      (encode-coding-string input 'utf-8-unix)
+                    (concat leftovers (encode-coding-string input 'utf-8-unix))))
 
       (let (messages)
         (while (not (s-blank? chunk))
diff --git a/test/lsp-io-test.el b/test/lsp-io-test.el
index edf9daeb4a..46038a0e8f 100644
--- a/test/lsp-io-test.el
+++ b/test/lsp-io-test.el
@@ -66,6 +66,19 @@
          (messages (funcall fn message-in)))
     (should (equal messages '("’")))))
 
+(ert-deftest lsp--parser-read--multiple-multibyte-messages ()
+  (let* ((fn (lsp--create-process-message))
+         (messages-in '("Content-Length: 3\r\n\r\n←"
+                        "Content-Length: 3\r\n\r\n←"
+                        "Content-Length:3\r\n\r\n←"
+                        "Content-Length: 3\r\n\r\n←"
+                        "Content-Length:3\r\n\r\n←"
+                        "Content-Length: 3\r\n\r\n←"
+                        "Content-Length: 3\r\n\r\n←"
+                        ))
+         (messages (funcall fn (string-join messages-in))))
+    (should (equal messages '("←" "←" "←" "←" "←" "←" "←")))))
+
 (ert-deftest lsp--parser-read--multibyte-nospace ()
   (let* ((fn (lsp--create-process-message))
          (message-in "Content-Length:3\r\n\r\n\xe2\x80\x99")