From 527813ef22172454d5a35dfe46d1a1ace1b624d4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sun, 6 Jan 2002 17:54:21 +0000 Subject: [PATCH] (eudc-ldap-get-field-list): Do not try to call non-existent function. --- lisp/net/eudcb-ldap.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el index c2d2156fc68..c7327f7558a 100644 --- 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" -- 2.39.2