Re: eudc fails with bbdb

[Kevin Rodgers]

Sébastien Kirche wrote:
> And if try a "Query with form" or either I call
> (eudc-query '((name . "kir")))
>
> It fails with that error :
> Debugger entered--Lisp error: (invalid-function (macro lambda 
(vector) (list (quote aref) vector 4)))
>   bbdb-record-phones(["Alain" "Kirche" nil nil nil nil 
("xxx@aol.com") ((creation-date . "2004-08-31") (timestamp . 
"2004-08-31")) ["Alain Kirche" nil #<marker at 4815 in .bbdb> nil]])
>   eudc-bbdb-extract-phones(["Alain" "Kirche" nil nil nil nil 
("xxx@aol.com") ((creation-date . "2004-08-31") (timestamp . 
"2004-08-31")) ["Alain Kirche" nil #<marker at 4815 in .bbdb> nil]])
>   eudc-bbdb-format-record-as-result(["Alain" "Kirche" nil nil nil nil 
("xxx@aol.com") ((creation-date . "2004-08-31") (timestamp . 
"2004-08-31")) ["Alain Kirche" nil #<marker at 4815 in .bbdb> nil]])
>   mapcar(eudc-bbdb-format-record-as-result (["Alain" "Kirche" nil nil 
nil nil ("xxx@aol.com") (... ...) ["Alain Kirche" nil #<marker at 4815 
in .bbdb> nil]] ["S\x8e9\ bastien" "Kirche" ("S\x8e9ki" "Sebastien 
Kirche" "Seki") nil nil nil ("xxx@yyy.fr" "xxx.yyy@free.fr" 
"xxx.yyy@zzz.com" "xxx@laposte.net" 
"sebastien.kirche.no@spam.free.fr.invalid") (... ...) ["S\x8e9\ bastien 
Kirche" nil #<marker at 4938 in .bbdb> nil]]))
>   eudc-bbdb-query-internal(((lastname . "kir")) nil)
>   eudc-query(((name . "kir")))
>   eval((eudc-query (quote (...))))
>   eval-last-sexp-1(t)
>   eval-last-sexp(t)
>   eval-print-last-sexp()
>   call-interactively(eval-print-last-sexp)
>
> As you can see, I have 2  records in bbdb containing "kir", but it seems
> to fail to format the output.

Irrelevant.

> Could someone give me some clue ?

The eudc-bbdb-extract-phones function was compiled without the
bbdb-record-phones macro defined, so it was assumed to be a function.

This problem would be prevented if the eudc-bbdb-extract-phones source
file had

        (eval-when-compile (require 'bbdb-foo))

assuming bbdb-record-phones is defined in bbdb-foo.el, which provides
the bbdb-foo feature.

--
Kevin Rodgers