From: Pavel Janík <Pavel@Janik.cz>
Date: Sun, 6 Jan 2002 17:54:21 +0000 (+0000)
Subject: (eudc-ldap-get-field-list): Do not try to call non-existent function.
X-Git-Tag: ttn-vms-21-2-B4~17280
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=527813ef22172454d5a35dfe46d1a1ace1b624d4;p=emacs.git

(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 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"