This one is somewhat hard to describe. Please let me know if you
can't make it out.
Whenever mh-e calls bbdb/mh-update-record for a message WITHOUT an
existing entry in the database TWICE, emacs will error as below. To
reproduce, you need to have bbdb/mail-auto-create-p nil, select a
message in mh-e, and then cause it to be immediately redisplayed
(i.e. hit `.'). It seems like the cache is getting confused because
there's no cache entry, but it's painful to debug because the relevant
code wants to rearrange the window config, and ends up in a
never-ending fight with the debugger. I'll try to look into it more
in the next few days, but I thought I'd submit the big report now in
case it trips somebody's memory...
chad
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
aref(nil 8)
(bbdb-record-cache record)
(aref (bbdb-record-cache record) 3)
(bbdb-cache-deleted-p (bbdb-record-cache record))
(bbdb-record-deleted-p record)
(if (bbdb-record-deleted-p record) (setq invalid t))
(lambda (record) (if (bbdb-record-deleted-p record) (setq invalid t)))(nil)
mapc((lambda (record) (if (bbdb-record-deleted-p record) (setq invalid t))) (nil))
(progn (setq records (cdr records)) (mapc (lambda ... ...) records))
(if records (progn (setq records ...) (mapc ... records)))
(when records (setq records (cdr records)) (mapc (lambda ... ...) records))
(let ((records ...) (invalid nil)) (when records (setq records ...) (mapc ...
records)) (if invalid nil records))
(if bbdb-message-caching-enabled (let (... ...) (when records ... ...) (if invalid
nil records)))
bbdb-message-cache-lookup(1193441)
(setq records (bbdb-message-cache-lookup msg))
(let ((msg ...) records record) (if (eq msg 0) (setq msg nil)) (setq records
(bbdb-message-cache-lookup msg)) (if records (car records) (let ... ... ... ...
record)))
(if bbdb-use-pop-up (bbdb/mh-pop-up-bbdb-buffer offer-to-create) (let (... records
record) (if ... ...) (setq records ...) (if records ... ...)))
(save-excursion (and mh-show-buffer (set-buffer mh-show-buffer)) (if
bbdb-use-pop-up (bbdb/mh-pop-up-bbdb-buffer offer-to-create) (let ... ... ... ...)))
bbdb/mh-update-record(nil)
(let ((record ...)) (bbdb-display-records (if record ... nil)
bbdb-pop-up-display-layout) record)
(let ((bbdb-gag-messages t) (bbdb-use-pop-up nil) (bbdb-electric-p nil)) (let (...)
(bbdb-display-records ... bbdb-pop-up-display-layout) record))
bbdb/mh-pop-up-bbdb-buffer(nil)
(if bbdb-use-pop-up (bbdb/mh-pop-up-bbdb-buffer offer-to-create) (let (... records
record) (if ... ...) (setq records ...) (if records ... ...)))
(save-excursion (and mh-show-buffer (set-buffer mh-show-buffer)) (if
bbdb-use-pop-up (bbdb/mh-pop-up-bbdb-buffer offer-to-create) (let ... ... ... ...)))
bbdb/mh-update-record()
run-hooks(mh-show-hook)
mh-show-msg(nil)
mh-show()
call-interactively(mh-show)
Emacs : GNU Emacs 21.0.106.2 (i686-pc-linux-gnu, X toolkit)
of 2001-09-26 on egon.jenwa.org
Package: BBDB 2.33
current state:
==============
(setq
emacs-version "21.0.106.2"
bbdb-version-date "$Date: 2001/10/14 19:47:20 $"
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-addresses-label-list '("Home" "Office" "Mobile" "Other" "home" "Address" "work")
bbdb-after-change-hook nil
bbdb-after-read-db-hook nil
bbdb-always-add-addresses t
bbdb-auto-notes-alist '(("To" (".*" list 0 t)) ("Cc" (".*" list 0 t)))
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-complete-name-full-completion 5
bbdb-complete-name-hooks '(ding)
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 "617"
bbdb-default-country "Emacs"
bbdb-default-domain nil
bbdb-default-label-list '("Home" "Office" "Mobile" "Other")
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-display-layout nil
bbdb-display-layout-alist '((one-line (order phones mail-alias net notes) (name-end .
24) (toggle . t))
(multi-line (indention . 14) (toggle . t))
(pop-up-multi-line (indention . 14)))
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-get-addresses-headers '((authors "From" "Resent-From" "Reply-To")
(recipients "Resent-To" "Resent-CC" "To" "CC" "BCC"))
bbdb-get-only-first-address-p t
bbdb-gui t
bbdb-hashtable-size 1021
bbdb-ignore-most-messages-alist nil
bbdb-ignore-selected-messages-confirmation 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-mode-hook nil
bbdb-modem-device "/dev/modem"
bbdb-modem-dial nil
bbdb-new-nets-always-primary t
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 'bbdb-auto-notes-hook
bbdb-offer-save 'no-dammit
bbdb-phones-label-list '("Home" "Office" "Mobile" "Other" "work" "mobile" "Work"
"cell" "Cell")
bbdb-pop-up-display-layout nil
bbdb-pop-up-elided-display nil
bbdb-pop-up-target-lines 3
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 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-update-records-mode 'annotating
bbdb-use-alternate-names nil
bbdb-use-pop-up t
bbdb-user-mail-names "\\by\\b"
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/mail-auto-create-p nil
bbdb/news-auto-create-p nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(flyspell ispell reporter pp dabbrev etags ring mh-funcs cus-edit cus-start
cus-load
find-func loadhist view debug bbdb-gui bbdb-hooks mail-extr goto-addr
thingatpt bbdb-mhe
advice advice-preload mh-comp mail-utils bbdb-com mailabbrev sendmail
hl-line mh-flists
server bbdb-autoloads windmove jit-lock font-lock mule-util regexp-opt
image-file rsz-mini
recentf wid-edit easymenu bbdb cl cl-19 timezone webjump browse-url
y-frame y-keybindings
mh-utils mh-e y-mh-hacks y-hacks tooltip image tool-bar 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)
)
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
