Trying to open a mail (in gnus) from [EMAIL PROTECTED] produces a lisp error. Backtrace
pasted below. Please contact me directly if you need to see my .bbdb file.
Thanks,
Mike Slass
WRQ, Inc.
Seattle, WA
-------- cut here ------------
Debugger entered--Lisp error: (wrong-type-argument listp ["Brent" "LaMotte" ("Brent")
nil nil nil ("[EMAIL PROTECTED]") ((creation-date . "2001-09-14") (timestamp .
"2001-09-14")) ["Brent LaMotte" nil #<marker at 1502 in .bbdb> nil]])
car(["Brent" "LaMotte" ("Brent") nil nil nil ("[EMAIL PROTECTED]") ((creation-date .
"2001-09-14") (timestamp . "2001-09-14")) ["Brent LaMotte" nil #<marker at 1502 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("Brent LaMotte" "[EMAIL PROTECTED]")
(let ((change-p nil) (record ...) (created-p nil) (fname name) (lname nil) old-name
bogon-mode) (and record (setq old-name ...)) (let (down-name old-net) (if ... ...))
(if (or record bbdb-readonly-p ... ... bogon-mode) nil (if ... ...) (setq record ...
created-p ...) (if record ...) (if created-p ...)) (if (or bogon-mode ...) nil
(bbdb-debug ...) (if ... ...) (if bbdb-canonicalize-redundant-nets-p ...) (if ... ...)
(bbdb-debug ...) (if ... ...) (if change-p ...) (bbdb-invoke-hook ... record) record))
(let* ((data ...) (name ...) (net ...)) (if (equal name net) (setq name nil))
(bbdb-debug (if ... ...) (if ... ...)) (if (and net bbdb-canonicalize-net-hook) (setq
net ...)) (let (... ... ... ... ... old-name bogon-mode) (and record ...) (let ...
...) (if ... nil ... ... ... ...) (if ... nil ... ... ... ... ... ... ... ... record)))
bbdb-annotate-message-sender("Brent LaMotte <[EMAIL PROTECTED]>" t nil nil)
(if from (bbdb-annotate-message-sender from t (or ... offer-to-create) (or ...
offer-to-create)))
(let ((from ...) name net) (if (or ... ...) (setq from ...)) (if from
(bbdb-annotate-message-sender from t ... ...)))
(save-restriction (widen) (narrow-to-region (point-min) (progn ... ...)) (let (...
name net) (if ... ...) (if from ...)))
bbdb/gnus-update-record(nil)
(let ((bbdb-gag-messages t) (record ...) (bbdb-electric-p nil)) (when
bbdb-use-pop-up (let ... ... ...)) (if record (bbdb-display-records ...)) record)
bbdb/gnus-pop-up-bbdb-buffer()
run-hooks(gnus-article-prepare-hook)
apply(run-hooks gnus-article-prepare-hook)
gnus-run-hooks(gnus-article-prepare-hook)
gnus-article-prepare-display()
gnus-article-prepare(1069 nil)
gnus-summary-display-article(1069 nil)
gnus-summary-select-article(nil nil pseudo)
gnus-summary-scroll-up(1)
call-interactively(gnus-summary-scroll-up)
-------- cut here ------------
Emacs : GNU Emacs 21.0.104.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2001-07-23 on thneed.na.wrq.com
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-address-editing-function 'bbdb-address-edit-default
bbdb-address-formatting-alist '((bbdb-address-is-continental .
bbdb-format-address-continental) (nil . bbdb-format-address-default))
bbdb-after-change-hook '(bbdb/gnus-score-invalidate-alist)
bbdb-after-read-db-hook nil
bbdb-always-add-addresses nil
bbdb-auto-notes-alist nil
bbdb-auto-notes-ignore nil
bbdb-auto-notes-ignore-all nil
bbdb-auto-revert-p nil
bbdb-canonical-hosts
"cs\\.cmu\\.edu\\|ri\\.cmu\\.edu\\|edrc\\.cmu\\.edu\\|andrew\\.cmu\\.edu\\|mcom\\.com\\|netscape\\.com\\|cenatls\\.cena\\.dgac\\.fr\\|cenaath\\.cena\\.dgac\\.fr\\|irit\\.fr\\|enseeiht\\.fr\\|inria\\.fr\\|cs\\.uiuc\\.edu\\|xemacs\\.org"
bbdb-canonicalize-net-hook nil
bbdb-canonicalize-redundant-nets-p t
bbdb-case-fold-search t
bbdb-change-hook 'bbdb-timestamp-hook
bbdb-check-zip-codes-p t
bbdb-complete-name-allow-cycling nil
bbdb-completion-display-record t
bbdb-completion-type nil
bbdb-continental-zip-regexp "^\\s *[A-Z][A-Z]?\\s *-\\s *[0-9][0-9][0-9]"
bbdb-create-hook 'bbdb-creation-date-hook
bbdb-default-area-code nil
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 nil
bbdb-electric-p nil
bbdb-elided-display nil
bbdb-expand-mail-aliases t
bbdb-file "~/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
bbdb-finger-buffer-name "*finger*"
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-legal-zip-codes '("^$" "^[ \n]*[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]?[
\n]*$"
"^[ \n]*\\([0-9][0-9][0-9][0-9][0-9]\\)[ \n]*-?[
\n]*\\([0-9][0-9][0-9][0-9]?\\)[ \n]*$"
"^[ \n]*\\([A-Za-z0-9]+\\)[
\n]+\\([A-Za-z0-9]+\\)[ \n]*$" "^[ \n]*\\([A-Z]+\\)[ \n]*-?[
\n]*\\([0-9]+ ?[A-Z]*\\)[ \n]*$"
"^[ \n]*\\([A-Z]+\\)[ \n]*-?[
\n]*\\([0-9]+\\)[ \n]+\\([0-9]+\\)[ \n]*$")
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-modem-device "/dev/modem"
bbdb-modem-dial 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 t
bbdb-pop-up-elided-display-fields nil
bbdb-pop-up-elided-display-name-end 48
bbdb-pop-up-target-lines 5
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-sound-files ["/usr/demo/SOUND/sounds/touchtone.0.au"
"/usr/demo/SOUND/sounds/touchtone.1.au" "/usr/demo/SOUND/sounds/touchtone.2.au"
"/usr/demo/SOUND/sounds/touchtone.3.au" "/usr/demo/SOUND/sounds/touchtone.4.au"
"/usr/demo/SOUND/sounds/touchtone.5.au" "/usr/demo/SOUND/sounds/touchtone.6.au"
"/usr/demo/SOUND/sounds/touchtone.7.au" "/usr/demo/SOUND/sounds/touchtone.8.au"
"/usr/demo/SOUND/sounds/touchtone.9.au" "/usr/demo/SOUND/sounds/touchtone.pound.au"
"/usr/demo/SOUND/sounds/touchtone.star.au"]
bbdb-sound-player "/usr/demo/SOUND/play"
bbdb-time-display-format "%d %b %Y"
bbdb-use-alternate-names t
bbdb-use-pop-up t
bbdb-user-mail-names "\\bmikesl\\b"
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/gnus-lines-and-from-length 18
bbdb/gnus-score-default nil
bbdb/gnus-score-field 'gnus-score
bbdb/gnus-split-crosspost-default nil
bbdb/gnus-split-default-group "mail.misc"
bbdb/gnus-split-myaddr-regexp "^mikesl$\\|^mikesl@\\([-a-z0-9]+\\.\\)*wrq.com$"
bbdb/gnus-split-nomatch-function nil
bbdb/gnus-split-private-field 'gnus-private
bbdb/gnus-split-public-field 'gnus-public
bbdb/gnus-summary-in-bbdb-format-letter "b"
bbdb/gnus-summary-known-poster-mark "+"
bbdb/gnus-summary-mark-known-posters t
bbdb/gnus-summary-prefer-bbdb-data t
bbdb/gnus-summary-prefer-real-names t
bbdb/gnus-summary-show-bbdb-names t
bbdb/gnus-summary-user-format-letter "B"
bbdb/mail-auto-create-p t
bbdb/news-auto-create-p nil
bbdb/prompt-for-create-p nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(reporter view apropos bbdb-hooks bbdb-gui bbdb-com debug mail-extr sort
smiley gnus-cite gnus-async gnus-art mm-uu binhex uudecode wid-edit mm-view
gnus-score score-mode gnus-topic gnus-sum nndraft nnmh gnus-cache nnfolder
pop3 nnml gnus-group gnus-undo nnmail mail-source format-spec bbdb-gnus
nntp nnoo boxquote rect bbdb-autoloads bbdb timezone smtpmail time-stamp
sendmail gnus-start gnus-range gnus-spec gnus-int gnus-win gnus gnus-ems
message mml mm-decode mm-bodies mm-encode mailcap mail-parse rfc2045
rfc2047 qp rfc2231 ietf-drums mailheader gnus-util time-date parse-time nnheader
mail-utils mm-util mail-prsvr eldoc etags p4 vc ring tabify edmacro
completion cl cl-19 advice advice-preload uniquify paren mic-paren speedbar
easymenu assoc generic-x mule-util jit-lock font-lock regexp-opt generic
tooltip image tool-bar disp-table fontset ediff-hook vc-hooks lisp-float-type
lisp-mode page menu-bar timer select scroll-bar mldrag mouse facemenu
faces cus-face frame misc-lang vietnamese tibetan thai lao korean japanese
hebrew greek romanian slovak czech european ethiopic devanagari indian
cyrillic chinese case-table help overlay md5 base64 format mule env backquote
custom widget x-toolkit)
)
Debugger entered--Lisp error: (wrong-type-argument listp ["Brent" "LaMotte" ("Brent")
nil nil nil ("[EMAIL PROTECTED]") ((creation-date . "2001-09-14") (timestamp .
"2001-09-14")) ["Brent LaMotte" nil #<marker at 1502 in .bbdb> nil]])
car(["Brent" "LaMotte" ("Brent") nil nil nil ("[EMAIL PROTECTED]") ((creation-date .
"2001-09-14") (timestamp . "2001-09-14")) ["Brent LaMotte" nil #<marker at 1502 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("Brent LaMotte" "[EMAIL PROTECTED]")
(let ((change-p nil) (record ...) (created-p nil) (fname name) (lname nil) old-name
bogon-mode) (and record (setq old-name ...)) (let (down-name old-net) (if ... ...))
(if (or record bbdb-readonly-p ... ... bogon-mode) nil (if ... ...) (setq record ...
created-p ...) (if record ...) (if created-p ...)) (if (or bogon-mode ...) nil
(bbdb-debug ...) (if ... ...) (if bbdb-canonicalize-redundant-nets-p ...) (if ... ...)
(bbdb-debug ...) (if ... ...) (if change-p ...) (bbdb-invoke-hook ... record) record))
(let* ((data ...) (name ...) (net ...)) (if (equal name net) (setq name nil))
(bbdb-debug (if ... ...) (if ... ...)) (if (and net bbdb-canonicalize-net-hook) (setq
net ...)) (let (... ... ... ... ... old-name bogon-mode) (and record ...) (let ...
...) (if ... nil ... ... ... ...) (if ... nil ... ... ... ... ... ... ... ... record)))
bbdb-annotate-message-sender("Brent LaMotte <[EMAIL PROTECTED]>" t nil nil)
(if from (bbdb-annotate-message-sender from t (or ... offer-to-create) (or ...
offer-to-create)))
(let ((from ...) name net) (if (or ... ...) (setq from ...)) (if from
(bbdb-annotate-message-sender from t ... ...)))
(save-restriction (widen) (narrow-to-region (point-min) (progn ... ...)) (let (...
name net) (if ... ...) (if from ...)))
bbdb/gnus-update-record(nil)
(let ((bbdb-gag-messages t) (record ...) (bbdb-electric-p nil)) (when
bbdb-use-pop-up (let ... ... ...)) (if record (bbdb-display-records ...)) record)
bbdb/gnus-pop-up-bbdb-buffer()
run-hooks(gnus-article-prepare-hook)
apply(run-hooks gnus-article-prepare-hook)
gnus-run-hooks(gnus-article-prepare-hook)
gnus-article-prepare-display()
gnus-article-prepare(1069 nil)
gnus-summary-display-article(1069 nil)
gnus-summary-select-article(nil nil pseudo)
gnus-summary-scroll-up(1)
call-interactively(gnus-summary-scroll-up)
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
