Hi,
Just started using bbdb with gnus and ran accross a bug today. I was
entering a group (an IMAP INBOX) and got the following error:
Wrong type argument: listp, ["Joe" "Casadonte" nil nil nil nil
("[EMAIL PROTECTED]") ((classification . "me") (timestamp .
"2001-08-05") (creation-date . "2001-08-05")) ["Joe Casadonte" "casadontejoe" #<marker
at 1131 in .bbdb> nil]]
with the following backtrace:
car(["Joe" "Casadonte" nil nil nil nil ("[EMAIL PROTECTED]")
((classification . "me") (timestamp . "2001-08-05") (creation-date . "2001-08-05"))
["Joe Casadonte" "casadontejoe" #<marker at 1131 in .bbdb> nil]])
(let ((name-rec ...) (nets net-recs)) (while nets (if ... ... ...)) (if name-recs
(setq name-recs ...) name-rec))
(while name-recs (let (... ...) (while nets ...) (if name-recs ... name-rec)))
(if (not (and name-recs net-recs)) (or (and name-recs ...) (and net-recs ...))
(while name-recs (let ... ... ...)) ret)
(let ((name-recs ...) (net-recs ...) ret) (if (not ...) (or ... ...) (while
name-recs ...) ret))
bbdb-search-simple("Joe Casadonte" "[EMAIL PROTECTED]")
Changing the following line in bbdb-search-simple seemed to fix this,
but I'm not sure if I've changed things semantically or not.
Actually, I'm pretty sure I did, but I think it was for the better:
OLD: (setq answer (append recs n-rec)))
NEW: (setq answer (append answer (list n-rec))))
Not quite sure what the first was trying to accomplish w/r/t appending
recs rather then answer. The basic issue was that recs had two
records in it as potential matches; when it has one, it works fine. I
added a third record, and the patched version works still, so I think
I may be on to something (or just *on* something, you can decide).
Hope that helps some.
Emacs : GNU Emacs 20.7.1 (i386-*-nt4.0.1381)
of Tue Jun 13 2000 on buffy
Package: BBDB 2.32
current state:
==============
(setq
bbdb-version-date "$Date: 2001/03/04 20:27:21 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
bbdb-after-change-hook '(bbdb/gnus-score-invalidate-alist)
bbdb-after-read-db-hook nil
bbdb-always-add-addresses t
bbdb-auto-notes-alist nil
bbdb-auto-revert-p nil
bbdb-canonicalize-net-hook nil
bbdb-canonicalize-redundant-nets-p t
bbdb-case-fold-search t
bbdb-change-hook '(bbdb-timestamp-hook)
bbdb-completion-display-record t
bbdb-completion-type nil
bbdb-create-hook '(my-creation-hook bbdb-creation-date-hook)
bbdb-default-area-code 610
bbdb-define-all-aliases-field 'mail-alias
bbdb-dial-local-prefix nil
bbdb-dial-local-prefix-alist '(((if bbdb-default-area-code (format "(%03d)"
bbdb-default-area-code) "") ""))
bbdb-dial-long-distance-prefix nil
bbdb-dwim-net-address-allow-redundancy t
bbdb-electric-p nil
bbdb-elided-display t
bbdb-file "~/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
bbdb-finger-host-field 'finger-host
bbdb-gui t
bbdb-hashtable-size 1021
bbdb-ignore-most-messages-alist nil
bbdb-ignore-some-messages-alist nil
bbdb-info-file nil
bbdb-initialize-hook nil
bbdb-list-hook '(bbdb-fontify-buffer)
bbdb-load-hook nil
bbdb-message-caching-enabled t
bbdb-message-marker-field 'mark-char
bbdb-mode-hook nil
bbdb-new-nets-always-primary nil
bbdb-north-american-phone-numbers-p t
bbdb-notes-default-separator ", "
bbdb-notes-sort-order '((notes . 0) (www . 1) (ftp . 2) (gopher . 3) (telnet . 4)
(mail-alias . 5) (mail-folder . 6)
(lpr . 7) (creation-date . 1000)
(timestamp . 1001))
bbdb-notice-auto-save-file nil
bbdb-notice-hook nil
bbdb-offer-save 'auto
bbdb-pop-up-elided-display t
bbdb-pop-up-elided-display-fields nil
bbdb-pop-up-elided-display-name-end 48
bbdb-pop-up-target-lines 1
bbdb-quiet-about-name-mismatches nil
bbdb-readonly-p nil
bbdb-refile-notes-default-merge-function 'bbdb-refile-notes-default-merge-function
bbdb-refile-notes-generate-alist '((creation-date . bbdb-refile-notes-string-least)
(timestamp .
bbdb-refile-notes-string-most))
bbdb-save-db-timeout nil
bbdb-send-mail-style nil
bbdb-silent-running nil
bbdb-use-alternate-names t
bbdb-user-mail-names "@northbound-train.com"
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/gnus-lines-and-from-length 18
bbdb/gnus-split-crosspost-default nil
bbdb/gnus-split-default-group "mail.misc"
bbdb/gnus-split-myaddr-regexp
"^jcasadonte$\\|^jcasadonte@\\([-a-z0-9]+\\.\\)*terrapin.northbound-train.com$"
bbdb/gnus-split-nomatch-function nil
bbdb/gnus-split-private-field 'gnus-private
bbdb/gnus-split-public-field 'gnus-public
bbdb/gnus-summary-mark-known-posters nil
bbdb/gnus-summary-show-bbdb-names t
bbdb/mail-auto-create-p t
bbdb/news-auto-create-p t
bbdb/prompt-for-create-p nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(mailalias dired-single java-find cl-specs edebug eval-reg find-func
loadhist debug pager info view flyspell
ispell mailabbrev sendmail bbdb-gui bbdb-com bbdb-hooks sort
gnus-cite gnus-async gnus-score score-mode
mail-extr gnus-ml gnus-msg gnus-art mm-uu mm-view gnus-topic
gnus-sum nndraft nnmh gnus-cache utf7 nnimap imap
gnus-group gnus-undo nnmail mail-source bbdb-gnus nntp nnoo
gnus-start gnus-range gnus-spec gnus-int gnus-win
gnus gnus-ems message mml mm-decode mm-encode mailcap
mm-bodies uudecode mail-parse rfc2045 rfc2231 rfc2047 qp
ietf-drums mailheader gnus-util time-date parse-time nnheader
mail-utils mm-util mail-prsvr generic-x generic
whole-line-or-region cua-lite-bootstrap delsel bar-cursor
blinking-cursor cua-lite filladapt tramp shell
format-spec em-joc eshell-auto easy-dired clearcase reporter
dired-x dired-aux dired-sort-menu dired comint
ring toggle-buffer toggle-case iswitchb uniquify ws-trim
flash-paren recentf wid-edit swbuff-advice advice
advice-preload ibuffer edmacro backquote lmenu font-lock
regexp-opt derived swbuff autorevert template
backup-dir gnuserv cus-face initsplit env bbdb-autoloads bbdb
timezone tempo eol-conversion easymenu timer
hscroll mini-cl cl cl-19 fontset ediff-hook vc-hooks
lisp-float-type dos-w32 disp-table ls-lisp lisp-mode page
menu-bar select scroll-bar mouse facemenu faces frame romanian
slovak czech slovenian case-table base64 format
mule custom widget)
)
_______________________________________________
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
