# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009520961 0
# Node ID fc1e8b9795d0cf6d1bffde6af07290135541cd38
# Parent  e79ed5ab7b08b4c54c35f546866fbefe7f3ac704
(ldap-search-internal): Handle <file://...> in results.

diff -r e79ed5ab7b08 -r fc1e8b9795d0 lisp/net/ldap.el
--- a/lisp/net/ldap.el	Fri Dec 28 05:19:24 2001 +0000
+++ b/lisp/net/ldap.el	Fri Dec 28 06:29:21 2001 +0000
@@ -584,9 +584,9 @@
 					       (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)