From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 Dec 2001 06:28:41 +0000 (+0000)
Subject: (ldap-search-internal): Handle <file://...> in results.
X-Git-Tag: emacs-21.2~216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c398d9eda47e2d3a23d68d1854f562f0e922247c;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 986190c9a2b..6a9879cd275 100644
--- 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 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)