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

2 files changed, 7 insertions, 0 deletions

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