Re: BBDB and EUDC/LDAP

["Sébastien Kirche" <sebastien.kirche.no@spam.free.fr.invalid>]

At 16:03 on mar 29 2005, David S. Goldberg said :

[about searching recipient with eudc into both a ldap server *and* bbdb]

> eudc knows about bbdb as well and it to looks in both places, I'm
> pretty sure, by default.  The only thing you lose with
> eudc-expand-inline is completion cycling.  For when I need that
> (rarely for me, may be important for you) I have mapped C-c TAB to
> bbdb-complete-name.

Some  weeks ago  i  completed my  configuration  to look  into the  ldap
directory of my company and my bbdb.

I forget to  post the result. FWIW  i publish it, maybe one  can find it
useful ?

Just to give some details :

- i use  gnus/bbdb both at home and  at work, but i  have ldap directory
  only at work  (server named work-server) and I  have only one .emacs
  and one .gnus. So I enable ldap settings after testing the system-name

-  my  system  at  work  is  a  Macintosh with  OSX  so  I  also  enable
  Address Book searching

- 'SAGE' is a given organisational unit that is set in the ldap tree

(setq message-expand-name-databases '(eudc)) ; was bbdb

;; réglages Emacs Unified Directory Client
(require 'eudc nil t)
(require 'eudcb-bbdb nil t)
(require 'eudcb-mab nil t)      ;; support Macintosh Address Book - needs 'contacts'
                                ;; http://www.newartisans.com/johnw/Emacs/eudcb-mab.el
                                ;; http://gnufoo.org/contacts/contacts.html

(eudc-set-server "localhost" 'bbdb t);;main server
(setq eudc-inline-expansion-servers 'hotlist);;search in hotlist order
(add-to-list 'eudc-server-hotlist '("localhost" . bbdb) t)
(eudc-protocol-set 'eudc-inline-query-format
				   '((firstname)
					 (lastname)
					 (firstname lastname)
					 (net))
				   'bbdb)
(eudc-protocol-set 'eudc-inline-expansion-format
				   '("%s %s <%s>" firstname lastname net)
				   'bbdb)
(when (string-match "\\`goudurix" system-name)
  (add-to-list 'eudc-server-hotlist '("localhost" . mab) t)
  (add-to-list 'eudc-server-hotlist '("work-server" . ldap) t)
  (setq ldap-host-parameters-alist '(("work-server" base "o=SAGE" auth nil scope subtree))
 		eudc-query-form-attributes '(uid name firstname email))
  (eudc-protocol-set 'eudc-inline-query-format
					 '((name)
					   (email))
					 'mab)
  (eudc-protocol-set 'eudc-inline-expansion-format
					 '("%s <%s>" name email)
					 'mab)
  (eudc-protocol-set 'eudc-inline-query-format
					 '(;(cn)
					   ;(cn cn)
					   ;(cn cn cn)
					   ;(sn)
					   ;(givenname)
					   ;(surname)
					   ;(givenname surname)
					   ;(fullname)
					   (uid)
					   (name)
					   ;(surname)
					   (mail))
					 'ldap)
  (eudc-protocol-set 'eudc-inline-expansion-format
					 '("%s <%s>"  cn mail)
					 'ldap)
  )

HTH.
-- 
Sébastien Kirche