ldap-search-internal ignores auth type setting

[Toby Allsopp]

The variable ldap-host-parameters-alist allows you to choose a value
for the authentication type to use, but this value is ignored by
ldap-search-internal.

The attached patch makes the 'simple' choice work, which is good
enough for me and better then nothing.

Regards,
Toby Allsopp.

In GNU Emacs 22.0.50.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2006-08-18 on pacem, modified by Debian
 (Debian emacs-snapshot package, version 1:20060901-1)
X server distributor `The X.Org Foundation', version 11.0.70000000
configured using `configure  '--build' 'i486-linux-gnu' '--host' 
'i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' 
'--libexecdir=/usr/lib' '--localstatedir=/var' '--infodir=/usr/share/info' 
'--mandir=/usr/share/man' '--with-pop=yes' 
'--enable-locallisppath=/etc/emacs-snapshot:/etc/emacs:/usr/local/share/emacs/22.0.50/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/22.0.50/site-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/22.0.50/leim'
 '--with-x=yes' '--with-x-toolkit=athena' '--with-toolkit-scroll-bars' 
'build_alias=i486-linux-gnu' 'host_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -g 
-O2''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_NZ.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

*** ldap.el     2006-09-04 11:04:22.000000000 +1200
--- ldap-patched.el     2006-09-04 11:12:23.000000000 +1200
***************
*** 493,498 ****
--- 493,499 ----
    `base' is the base for the search as described in RFC 1779.
    `scope' is one of the three symbols `sub', `base' or `one'.
    `binddn' is the distinguished name of the user to bind as (in RFC 1779 
syntax).
+   `auth' is one of the symbols `simple', `krbv41' or `krbv42'
    `passwd' is the password to use for simple authentication.
    `deref' is one of the symbols `never', `always', `search' or `find'.
    `timelimit' is the timeout limit for the connection in seconds.
***************
*** 512,517 ****
--- 513,519 ----
                  ldap-default-base))
        (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))
        (timelimit (plist-get search-plist 'timelimit))
***************
*** 541,546 ****
--- 543,551 ----
        (if (and binddn
               (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)))
          (setq arglist (nconc arglist (list (format "-w%s" passwd)))))