I got the following error. vm 5.57 FSF Emacs 19.22.
I have the following in my .emacs
;;; BBDB
(autoload 'bbdb "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-name "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-net "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-notes "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-insinuate-vm "bbdb-vm" "Hook BBDB into VM")
(autoload 'bbdb-insinuate-gnus "bbdb-gnus" "Hook BBDB into GNUS")
(eval-after-load "vm" '(bbdb-insinuate-vm))
Signalling: (invalid-function (macro . #[(message) "�� �E�E�" [aref message 0] 4]))
vm-start-of([[#<marker at 49488 in Inbox> #<marker at 49533 in Inbox> #<marker at
50435 in Inbox> #<marker at 50554 in Inbox> #<marker at 95488 in Inbox> #<marker at
95489 in Inbox>] [nil nil nil nil nil <<>> <-- From_ "5" #<buffer Inbox> nil nil nil
nil nil nil] [nil nil nil t nil nil nil nil nil] [nil "Fri" "18" "February" "1994"
"15:11:18" "PST" "Jamie Zawinski" "[EMAIL PROTECTED]" nil "730" "bbdb 1.50" "^From:" nil
nil "2" nil nil (mark " " number " F Jamie Zawinski Feb 18 730 "
thread-indent "bbdb 1.50\n") nil] [nil <v> nil]])
bbdb-header-start()
bbdb-ignore-most-messages-hook(t)
bbdb-ignore-some-messages-hook()
bbdb/mail-auto-create-if-Inbox()
apply(bbdb/mail-auto-create-if-Inbox nil)
bbdb-invoke-hook-for-value(bbdb/mail-auto-create-if-Inbox)
(or (bbdb-invoke-hook-for-value bbdb/mail-auto-create-p) offer-to-create))
(bbdb-annotate-message-sender from t (or (bbdb-invoke-hook-for-value
bbdb/mail-auto-create-p) offer-to-create) offer-to-create))
(let ((--rec-- ...)) (if bbdb-message-caching-enabled (and --rec-- ...) --rec--)))
(bbdb-encache-message msg (bbdb-annotate-message-sender from t (or ...
offer-to-create) offer-to-create)))
(if from (bbdb-encache-message msg (bbdb-annotate-message-sender from t ...
offer-to-create))))
(let ((from ...)) (if (or ... ...) (setq from ...)) (if from (bbdb-encache-message
msg ...))))
(save-restriction (set-buffer (marker-buffer ...)) (widen) (narrow-to-region
(vm-start-of msg) (vm-end-of msg)) (let (...) (if ... ...) (if from ...))))
(save-excursion (save-restriction (set-buffer ...) (widen) (narrow-to-region ...
...) (let ... ... ...))))
(and msg (save-excursion (save-restriction ... ... ... ...))))
(or (bbdb-message-cache-lookup msg nil) (and msg (save-excursion ...))))
(let ((msg ...) (inhibit-local-variables nil) (enable-local-variables t)
(inhibit-quit nil)) (or (bbdb-message-cache-lookup msg nil) (and msg ...))))
(if bbdb-use-pop-up (bbdb/vm-pop-up-bbdb-buffer offer-to-create) (let (... ... ...
...) (or ... ...))))
(save-excursion (and vm-mail-buffer (set-buffer vm-mail-buffer)) (if bbdb-use-pop-up
(bbdb/vm-pop-up-bbdb-buffer offer-to-create) (let ... ...))))
bbdb/vm-update-record(nil)
(let ((record ...) (bbdb-elided-display ...) (b ...)) (bbdb-display-records (if
record ... nil)) (set-buffer b) record))
(let ((bbdb-gag-messages t) (bbdb-use-pop-up nil) (bbdb-electric-p nil)) (let (...
... ...) (bbdb-display-records ...) (set-buffer b) record)))
bbdb/vm-pop-up-bbdb-buffer(nil)
(if bbdb-use-pop-up (bbdb/vm-pop-up-bbdb-buffer offer-to-create) (let (... ... ...
...) (or ... ...))))
(save-excursion (and vm-mail-buffer (set-buffer vm-mail-buffer)) (if bbdb-use-pop-up
(bbdb/vm-pop-up-bbdb-buffer offer-to-create) (let ... ...))))
bbdb/vm-update-record()
funcall(bbdb/vm-update-record)
mapcar(funcall (bbdb/vm-update-record))
run-hooks(vm-select-message-hook)
vm-run-message-hook([[#<marker at 49488 in Inbox> #<marker at 49533 in Inbox>
#<marker at 50435 in Inbox> #<marker at 50554 in Inbox> #<marker at 95488 in Inbox>
#<marker at 95489 in Inbox>] [nil nil nil nil nil <<>> <-- From_ "5" #<buffer Inbox>
nil nil nil nil nil nil] [nil nil nil t nil nil nil nil nil] [nil "Fri" "18"
"February" "1994" "15:11:18" "PST" "Jamie Zawinski" "[EMAIL PROTECTED]" nil "730" "bbdb
1.50" "^From:" nil nil "2" nil nil (mark " " number " F Jamie Zawinski Feb 18
730 " thread-indent "bbdb 1.50\n") nil] [nil <v> nil]] vm-select-message-hook)
vm-preview-current-message()
ad-real-byte-code("� !?�� � !�
byte-code("� !?�� � !�
ad-Orig-vm(nil nil)
(setq ad-return-value (ad-Orig-vm folder read-only)))
(if (car fdata) (setq ad-return-value (ad-Orig-vm folder read-only))
(vm-get-new-mail)))
(let* ((fdata ...) (frame ...)) (if (car fdata) (setq ad-return-value ...)
(vm-get-new-mail)) (and frame (setcar frame ...))))
(let (ad-return-value) (let* (... ...) (if ... ... ...) (and frame ...))
ad-return-value))
vm(nil nil)
call-interactively(vm)
Cengiz
======================================================================
| Systems Design and Analysis Group
Cengiz Alaettinoglu | Department of Computer Science
[EMAIL PROTECTED] | University of Maryland
| College Park, MD 20742
======================================================================
