(ldap-search-internal): Handle <file://...> in results.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 986190c9a2b0113e230db55e7efe893b8941b31a..6a9879cd275e24b20b5fd8508593108ed7be36ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-28  Richard M. Stallman  <rms@gnu.org>
+
+       * net/ldap.el (ldap-search-internal): Handle <file://...> in results.
+
 2001-12-26  Markus Rost  <rost@math.ohio-state.edu>
 
        * find-dired.el (find-dired-sentinel): Precede exit message by

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index ddbdfa0b1ef181fa2a6883a6c847a0654ae8acc1..ee8b3ba457785b9139bd03572686ed4c299b93aa 100644 (file)
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -584,9 +584,9 @@ an alist of attribute/value pairs."
                                               (end-of-line)
                                               (point))))
          (forward-line 1)
-         (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(.*\\)$")
+         (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
            (setq name (match-string 1)
-                 value (match-string 2))
+                 value (match-string 3))
            (save-excursion
              (set-buffer bufval)
              (erase-buffer)