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

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7b5430304ab..e5f85d0afe9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-12-28  Richard M. Stallman  <rms@gnu.org>
 
+        * net/ldap.el (ldap-search-internal): Handle <file://...> in results.
+
         * simple.el (line-move-invisible): New subroutine.
         (line-move-to-column): New subroutine--smarter about advancing over
         invisible parts of a line, or lines, but only as long as hpos grows.
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index ddbdfa0b1ef..ee8b3ba4577 100644
--- 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)