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/
