My .bbdb contained the following two lines:
["Christopher" "Faylor" nil nil nil nil ("[EMAIL PROTECTED]") ((creation-date . "2001-10-02") (timestamp . "2001-10-02") (notes . "cygwin")) nil] ["Corinna" "Vinschen" nil nil nil nil ("[EMAIL PROTECTED]" "[EMAIL PROTECTED]") ((creation-date . "2001-09-24") (timestamp . "2001-09-27") (notes . "cygwin")) nil] When looking at a message that was sent by christopher faylor with email address [EMAIL PROTECTED], I get a wrong-type-argument listp error from bbdb/vm-update-records. The stack trace is below (with bbdb/vm-update-records interpreted). The problem is that the email address [EMAIL PROTECTED] has already been assigned to Corinna Vinschen. This apparently confuses the update. I was able to work around the bug by hand editing the .bbdb record. -jeff Signaling: (wrong-type-argument listp ["Christopher" "Faylor" nil nil nil nil ("[EMAIL PROTECTED]") ((creation-date . "2001-10-02") (timestamp . "2001-10-02") (notes . "cygwin")) ["Christopher Faylor" nil #<marker at 4155 in .bbdb 0x1b0e9fc> nil]]) bbdb-annotate-message-sender(("Christopher Faylor" "[EMAIL PROTECTED]") t nil bbdb/vm-prompt-for-create) (cond ((eq bbdb/vm-update-records-mode ...) (bbdb-annotate-message-sender bbdb/vm-address t ... ...)) ((eq bbdb/vm-update-records-mode ...) (let ... ... ...))) (setq rec (cond (... ...) (... ...)) processed-addresses (+ processed-addresses 1)) (progn (setq rec (cond ... ...) processed-addresses (+ processed-addresses 1)) (when (and ... ... ...) (message "Hit C-g to stop BBDB from %s. %d of %d addresses processed." bbdb/vm-update-records-mode processed-addresses ...) (sit-for 0))) (condition-case nil (progn (setq rec ... processed-addresses ...) (when ... ... ...)) (quit (cond ... ... ... ...) nil)) (lambda (bbdb/vm-address) (condition-case nil (progn ... ...) (quit ... nil)) (if rec (add-to-list ... rec)))(("Christopher Faylor" "[EMAIL PROTECTED]")) mapc-internal((lambda (bbdb/vm-address) (condition-case nil (progn ... ...) (quit ... nil)) (if rec (add-to-list ... rec))) (("Christopher Faylor" "[EMAIL PROTECTED]"))) mapc((lambda (bbdb/vm-address) (condition-case nil (progn ... ...) (quit ... nil)) (if rec (add-to-list ... rec))) (("Christopher Faylor" "[EMAIL PROTECTED]"))) (let ((addrs ...) (bbdb-records ...) (processed-addresses 0) (bbdb/vm-update-records-mode ...) rec) (mapc (lambda ... ... ...) addrs) (setq records (nreverse records)) (bbdb/vm-encache-message msg records)) (and msg (let (... ... ... ... rec) (mapc ... addrs) (setq records ...) (bbdb/vm-encache-message msg records))) (if cache (setq records (if bbdb/vm-get-only-first-from-p ... ...)) (and msg (let ... ... ... ...))) (let ((msg ...) (inhibit-local-variables nil) (enable-local-variables t) (inhibit-quit nil) (bbdb/vm-offer-to-create offer-to-create) cache records) (if (not bbdb/vm-offer-to-create) (setq cache ...)) (if cache (setq records ...) (and msg ...)) (and (not bbdb-silent-running) records (> ... 1) (message "Updating of BBDB records finished")) records) bbdb/vm-update-records(nil) bbdb/vm-pop-up-bbdb-buffer() run-hooks(bbdb/vm-pop-up-bbdb-buffer) vm-run-message-hook([[#<marker at 26649 in digest from INBOX/8 0x200ee64> #<marker at 26682 in digest from INBOX/8 0x200ee4c> nil #<marker at 27058 in digest from INBOX/8 0x20b1cb4> #<marker at 27541 in digest from INBOX/8 0x200ee34> #<marker at 27542 in digest from INBOX/8 0x200ee1c>] ["14" " 14" nil #<marker at 1173 in digest from INBOX/8 Summary 0x200f184> #<marker at 1239 in digest from INBOX/8 Summary 0x200f19c> <<>> <-- From_ "170" #<buffer "digest from INBOX/8"> nil nil nil nil nil nil nil nil #<extent (1173, 1239) H 0x217b50c in buffer digest from INBOX/8 Summary>] [t nil nil nil nil nil nil nil nil] [nil "Tuesday" "2" "October" "2001" "13:22:38" "-0400" "Christopher Faylor" "[EMAIL PROTECTED]" nil nil "Re: cygwin port to Win CE" nil nil nil "10" nil nil (number " " mark "N ++Corinna Vinsche Oct/ 2 " thread-indent "\"Re: cygwin port to Win CE\"\n") nil nil] [nil <v> nil nil nil]] vm-select-message-hook) vm-preview-current-message() vm-follow-summary-cursor() vm-scroll-forward(nil) call-interactively(vm-scroll-forward) ================================================================ Emacs : XEmacs 21.4 (patch 3) "Academic Rigor" [Lucid] (i586-pc-win32) of Thu May 17 2001 on SHALOM Package: BBDB 2.32 current state: ============== (setq bbdb-version-date "$Date: 2001/08/26 06:54:56 $" 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 '(("X-Face" ("[ \n]*\\([^ \n]*\\)\\([ \n]+\\([^ \n]+\\)\\)?\\([ \n]+\\([^ \n]+\\)\\)?\\([ \n]+\\([^ \n]+\\)\\)?" face "\\1\\3\\5\\7") ) ("Organization" (".*" company 0 t))) bbdb-auto-revert-p t 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 nil bbdb-completion-type nil bbdb-create-hook 'bbdb-creation-date-hook bbdb-default-area-code 781 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-extract-address-component-handler 'message bbdb-extract-address-component-ignore-regexp "\\(\\(undisclosed\\|unlisted\\)[^,]*recipients\\)\\|no To-header on input" bbdb-extract-address-component-regexps '(("\"'\\([^\"]*\\)'\"\\s-*<\\([^>]+\\)>" (bbdb-snarf-nice-real-name (match-string 1 adstring)) 2) ("\"\\([^\"]*\\)\"\\s-*<\\([^>]+\\)>" (bbdb-snarf-nice-real-name (match-string 1 adstring)) 2) ("\\(\\b[^<\",]*\\b\\)\\s-*<\\([^>]+\\)>" 1 2) ("<\\([^>]+\\)>" nil 2) ("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))" 2 1) ("\\b\\(\\([^@]+\\.[^@]+\\)@[0-9a-z._-]+\\)\\b" (bbdb-snarf-nice-real-name (match-string 2 adstring)) 1) ("\\b\\(\\([0-9a-z._-]+\\)@[0-9a-z._-]+\\)\\b" nil 1) ("\\b\\([0-9a-z._-]+\\)\\b" nil 1)) 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 'never 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 t bbdb-notice-hook '(bbdb-auto-notes-hook) bbdb-offer-save 'savenoprompt 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 t 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 t bbdb-snarf-nice-real-name-regexp "[._, \n ]+" bbdb-use-alternate-names t bbdb-user-mail-names "\\bjmincy\\b" 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 "^jmincy$\\|^jmincy@\\([-a-z0-9]+\\.\\)*delphioutpost.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 t bbdb/gnus-summary-show-bbdb-names t bbdb/mail-auto-create-p nil bbdb/news-auto-create-p nil bbdb/prompt-for-create-p nil bbdb/vm-auto-add-label-field 'mail-alias bbdb/vm-auto-add-label-list nil bbdb/vm-get-from-headers '("From:" "Sender:" "Resent-From:" "Reply-To:" "Resent-To:" "Resent-CC:" "To:" "CC:") bbdb/vm-get-only-first-from-p t bbdb/vm-set-auto-folder-alist-field 'vm-folder bbdb/vm-snarf-all-headers '("From:" "Sender:" "Resent-From:" "Reply-To:" "Resent-To:" "Resent-CC:" "To:" "CC:") ) _______________________________________________ [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/