From 3a9b7015b3b7fd102c10c22293bf91d181590f93 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 6 May 2023 22:17:59 +0300
Subject: [PATCH] Fix edge case in error code detection

---
 dict.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dict.el b/dict.el
index 7f87434..16f20d5 100644
--- a/dict.el
+++ b/dict.el
@@ -117,7 +117,9 @@ beginning of a buffer with the server's response."
                 (save-excursion
                   (goto-char (point-min))
                   (cond
-                   ((search-forward "\r\n5" nil t) ; error code
+                   ((or (looking-at "^5")
+                        (search-forward "\r\n5" nil t))
+                    ;; server replied with an error code
                     (setq done t))
                    ((search-forward "\r\n.\r\n" nil t)
                     (goto-char (point-min))
-- 
2.39.2