mailcrypt

When I try to use the mailcrypt-snarf (mailcrypt 2.07) function I get the following error. Signaling: (invalid-function (macro . #<compiled-function nil "...(2)" [(cond (vm-mail-buffer (or (buffer-name vm-mail-buffer) (error "Folder buffer has been killed.")) (set-buffer vm-mail-buffer)) ((not (memq major-mode (quote (vm-mode vm-virtual-mode)))) (error "No VM folder buffer associated with this buffer")))] 1>)) vm-select-folder-buffer() mc-vm-snarf-keys() #<compiled-function nil "...(17)" [major-mode mc-modes-alist mode-alist snarf mc-snarf-keys func] 3 ("/opt/sfw/lib/xemacs/xemacs-packages/lisp/mailcrypt/mc-toplev.elc" . -6809) nil>() call-interactively(mc-snarf) It looks like the autoloads in mc-toplev.el are broken (autoload 'vm-select-folder-buffer "vm-macro") (autoload 'vm-error-if-folder-read-only "vm-macro") should be: (autoload 'vm-select-folder-buffer "vm-macro" nil nil 'macro) (autoload 'vm-error-if-folder-read-only "vm-macro" nil nil 'macro) ? -jeff