Whenever I delete a record in the database, I get the appended message
when I view another MH message.

I display the database by `M-x bbdb RET RET' I navigate to the
appropriate record with successive `n' and then I type `d RET y RET'
followed by `s' to save the database.

I can fix the problem by executing `(bbdb-flush-all-caches).

I'm using MH-E 7.4 and BBDB 2.34.

--- Vladimir

------------------------------------------------------------------------
Vladimir G. Ivanovic                        http://leonora.org/~vladimir
2770 Cowper St.                                         [EMAIL PROTECTED]
Palo Alto, CA 94306-2447                                 +1 650 678 8014

Signaling: (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-internal((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(1270100)
  (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(bbdb/mh-update-record)
  (let ((folder mh-current-folder) (folders ...) (clean-message-header 
mh-clean-message-header-flag) (show-window ...)) (if (not ...) (delete-other-windows)) 
(mh-in-show-buffer (mh-show-buffer) (if ... ... ...)) (if (not ...) (shrink-window 
...)) (mh-recenter nil) (if (not ...) (setq mh-seen-list ...)) (when 
mh-update-sequences-after-mh-show-flag (mh-update-sequences) (when mh-index-data ...) 
(when ... ...)) (run-hooks (quote mh-show-hook)))
  mh-show-msg(nil)
  (lambda (&optional message) "Show message at cursor.\nIf optional argument MESSAGE 
is non-nil, display that message instead.\nForce a two-window display with the folder 
window on top (size given by the\nvariable `mh-summary-height') and the show buffer 
below it.\nIf the message is already visible, display the start of the 
message.\n\nDisplay of the message is controlled by setting the 
variables\n`mh-clean-message-header-flag' and `mhl-formfile'.  The default behavior 
is\nto scroll uninteresting headers off the top of the window.\nType 
\"\\[mh-header-display]\" to see the message with all its headers." (interactive) (and 
mh-showing-with-headers (or mhl-formfile mh-clean-message-header-flag) 
(mh-invalidate-show-buffer)) (mh-show-msg message))()
  call-interactively(mh-alt-show)


-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to