From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 17 Jun 2023 07:59:44 +0000 (+0300)
Subject: ; * lisp/net/ldap.el (ldap-search-internal): Fix last change.  (Bug#64089)
X-Git-Tag: emacs-29.0.92~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71b27779a9a014cc5ff594cb0b34fc763387e071;p=emacs.git

; * lisp/net/ldap.el (ldap-search-internal): Fix last change.  (Bug#64089)
---

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 4275b45e6f5..8897c3b6d54 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -710,7 +710,7 @@ an alist of attribute/value pairs."
           ;; otherwise `ldap-decode-attribute' would throw a much less
           ;; comprehensible error later.
           (cond ((not withdn))
-                ((looking-at "^dn[=:\t ]+\\(.*\\)$")
+                ((looking-at "dn[=:\t ]+\\(.*\\)$")
                  (setq dn (list "dn" (match-string 1))))
                 (t (error "Incorrect dn line \"%s\" in ldapsearch result"
                           (buffer-substring (point) (line-end-position)))))