I needed the following patch to handle the case where there were two
matching records in the database and one has a string for the company but
no name string:
*** bbdb.el 2001/06/25 06:16:11 1.1
--- bbdb.el 2001/06/25 06:20:19
***************
*** 1634,1642 ****
(let ((recs (bbdb-gethash (downcase name)))
answer)
(while recs
! (let ((n-rec (car recs)))
! (if (string= (downcase name)
! (downcase (bbdb-record-name n-rec)))
(setq answer (append recs n-rec)))
(setq recs (cdr recs))))
answer)))
--- 1634,1644 ----
(let ((recs (bbdb-gethash (downcase name)))
answer)
(while recs
! (let* ((n-rec (car recs))
! (dc-n-rec (bbdb-record-name n-rec)))
! (if (and dc-n-rec
! (string= (downcase name)
! (downcase dc-n-rec)))
(setq answer (append recs n-rec)))
(setq recs (cdr recs))))
answer)))
Emacs : XEmacs 21.1 (patch 9) "Canyonlands" [Lucid] (sparc-sun-solaris2.6, Mule) of
Wed Mar 15 2000 on master
Package: BBDB 2.32
_______________________________________________
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
