From: Pavel Janík <Pavel@Janik.cz>
Date: Sun, 12 May 2002 16:42:19 +0000 (+0000)
Subject: (ldap-search-internal): Unfold folded lines before parsing.
X-Git-Tag: ttn-vms-21-2-B4~15094
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74d40d47e8d7f8e20b7e90c617b360edd5d1b963;p=emacs.git

(ldap-search-internal): Unfold folded lines before parsing.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59922f2e2dc..3e0308bcd9c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-05-12  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* net/ldap.el (ldap-search-internal): Unfold folded lines before
+	parsing.
+
 	* cus-edit.el (customize-set-value): Rename `var' to `variable'
 	and `val' to `value'.
 	(customize-save-variable): Rename `var' to `'variable.
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 03923eb4114..d539164e9f9 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -562,6 +562,10 @@ an alist of attribute/value pairs."
       (insert "\n")
       (goto-char (point-min))
 
+      (while (re-search-forward "[\t\n\f]+ " nil t)
+	(replace-match "" nil nil))
+      (goto-char (point-min))
+
       (if (looking-at "usage")
 	  (error "Incorrect ldapsearch invocation")
 	(message "Parsing results... ")