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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59922f2e2dc17f0f9a582a29a393e222c113d523..3e0308bcd9c9c3261ac2773eb2b3be0eb51612f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-05-12  Pavel Jan\e,Bm\e(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 03923eb4114289685e4c9b44025760a1cb04c8be..d539164e9f9ad7c14e91fa4801022ca6f321737d 100644 (file)
--- 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... ")