From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 6 May 2023 19:17:59 +0000 (+0300)
Subject: Fix edge case in error code detection
X-Git-Tag: v0.1.4~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a9b7015b3b7fd102c10c22293bf91d181590f93;p=dict.git

Fix edge case in error code detection
---

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))