Changeset 4161 for trunk/lisp/net/ldap.el

Timestamp:

09/09/06 16:30:10 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/net/ldap.el (modified) (3 diffs)

trunk/lisp/net/ldap.el

@@ -491 +491 @@
-  `attrsonly', if non-nil, indicates that only attributes are retrieved,
-not their associated values.
+  `auth' is one of the symbols `simple', `krbv41' or `krbv42'.
-  `base' is the base for the search as described in RFC 1779.
-  `scope' is one of the three symbols `sub', `base' or `one'.
@@ -513 +514 @@
-        (scope (plist-get search-plist 'scope))
-        (binddn (plist-get search-plist 'binddn))
+        (auth (plist-get search-plist 'auth))
-        (passwd (plist-get search-plist 'passwd))
-        (deref (plist-get search-plist 'deref))
@@ -542 +544 @@
-               (not (equal "" binddn)))
-          (setq arglist (nconc arglist (list (format "-D%s" binddn)))))
+      (if (and auth
+               (equal 'simple auth))
+          (setq arglist (nconc arglist (list "-x"))))
-      (if (and passwd
-               (not (equal "" passwd)))