# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1010339661 0
# Node ID 281571076b02ff6a3e3bcf30f1dbad8af8c7e66b
# Parent  5b7e0e31b555e7acce0292c742b843fc2ec154d4
(eudc-ldap-get-field-list): Do not try to call non-existent function.

diff -r 5b7e0e31b555 -r 281571076b02 lisp/net/eudcb-ldap.el
--- a/lisp/net/eudcb-ldap.el	Sun Jan 06 17:53:26 2002 +0000
+++ b/lisp/net/eudcb-ldap.el	Sun Jan 06 17:54:21 2002 +0000
@@ -89,7 +89,7 @@
   (mapconcat 'identity (split-string string "\\$") "\n"))
 
 ;; Cleanup a LDAP record to make it suitable for EUDC:
-;;   Make the record a cons-cell instead of a list if the it's single-valued
+;;   Make the record a cons-cell instead of a list if it is single-valued
 ;;   Filter the $ character in addresses into \n if not done by the LDAP lib
 (defun eudc-ldap-cleanup-record-filtering-addresses (record)
   (mapcar
@@ -146,7 +146,7 @@
   (let ((ldap-host-parameters-alist
 	 (list (cons eudc-server
 		     '(scope subtree sizelimit 1)))))
-    (mapcar 'eudc-ldap-cleanup-record
+    (mapcar 'eudc-ldap-cleanup-record-simple
 	    (ldap-search
 	     (eudc-ldap-format-query-as-rfc1558
 	      (list (cons "objectclass"