mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Revert "Fix parsing of dn line if WITHDN is non-nil"

Browse Source 
This reverts commits 71b27779a9 and d2246b2627, because they change
the return value of "ldap-search" in an incompatible way.  The fix
(a different one) will be done on master instead (bug#64089).
This commit is contained in:
Filipp Gunbin 2023-06-20 18:25:24 +03:00
parent 7637e361d3
commit 2bad5829ff
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/net/ldap.el
View File

@ -703,17 +703,7 @@ an alist of attribute/value pairs."
(while (progn
(skip-chars-forward " \t\n")
(not (eobp)))
;; Ignore first (dn) line if WITHDN equals nil. If WITHDN
;; is non-nil, check syntax of the line and split it into a
;; pair as expected by `ldap-decode-attribute' (Bug#64089).
;; If the syntax is wrong, better throw an error here, since
;; otherwise `ldap-decode-attribute' would throw a much less
;; comprehensible error later.
(cond ((not withdn))
((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)))))
(setq dn (buffer-substring (point) (line-end-position)))
(forward-line 1)
(while (looking-at "^\\([A-Za-z][-A-Za-z0-9]*\
\\|[0-9]+\\(?:\\.[0-9]+\\)*\\)\\(;[-A-Za-z0-9]+\\)*[=:\t ]+\