Mercurial > hg > xemacs-beta

diff lisp/ldap.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 6330739388db
children c42ec1d1cded
line wrap: on
line diff
--- a/lisp/ldap.el	Mon Aug 13 10:31:30 2007 +0200
+++ b/lisp/ldap.el	Mon Aug 13 10:32:22 2007 +0200
@@ -5,7 +5,7 @@
 ;; Author: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
 ;; Created: Jan 1998
-;; Version: $Revision: 1.3 $
+;; Version: $Revision: 1.4 $
 ;; Keywords: help comm
 
 ;; This file is part of XEmacs
@@ -84,7 +84,7 @@
     (setq host-alist
 	  (assoc host ldap-host-parameters-alist))
     (message "Opening LDAP connection to %s..." host)
-    (setq ldap (ldap-open host (alist-to-plist host-alist)))
+    (setq ldap (ldap-open host (alist-to-plist (cdr host-alist))))
     (message "Searching with LDAP on %s..." host)
     (setq res (ldap-search-internal ldap filter 
 				    (cdr (assq 'base host-alist))