(eudc-ldap-get-field-list): Do not try to call non-existent function.

diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el
index c2d2156fc68f4debdcc2d72832580e63e04aafb1..c7327f7558afe5a6f8f74e61aa8042e81181fbdf 100644 (file)
--- a/lisp/net/eudcb-ldap.el
+++ b/lisp/net/eudcb-ldap.el
@@ -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 @@ attribute names are returned. Default to `person'"
   (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"