vm + emacs 20

[Kathryn Hargreaves]

Hi,

I know that VM isn't really recommended with Emacs 20+, but I know
people for whom it works.  ;-)  Anyways, when I try to save to a folder,
I get  error processing vm-auto-folder-alist: (wrong-type-argument listp n)

With debug-on-error set, I get:

Signaling: (error "error processing vm-auto-folder-alist:
    (wrong-type-argument listp n)")
  signal(error ("error processing vm-auto-folder-alist:
      (wrong-type-argument listp n)"))
  error("error processing vm-auto-folder-alist: %s"
      "(wrong-type-argument listp n)")
  byte-code("ÁÂÃ!\"‡" [error-data error "error processing
      vm-auto-folder-alist: %s" prin1-to-string] 4)
  vm-auto-select-folder(([[#<marker at 944980 in vmbox/mail/~> #<marker
    at 945013 in vmbox/mail/~> #<marker at 946003 in vmbox/mail/~>
    #<marker at 946432 in vmbox/mail/~> #<marker at 946674 in
    vmbox/mail/~> #<marker at 946674 in vmbox/mail/~>] ["174" "174" nil
    #<marker at 15272 in vmbox/mail/~ Summary> #<marker at 15373 in
    vmbox/mail/~ Summary> <<>> <-- From_-with-Content-Length "189"
    #<buffer vmbox/mail/~> nil nil nil nil nil nil none none #<overlay
    from 15272 to 15373 in vmbox/mail/~ Summary>] [nil nil nil nil nil
    nil nil nil nil] ["242" "Monday" "12" "March" "2001" "13:39:41"
    "-0500" "Paul T. Day via RT" "rt@wwwpt.das.harvard.edu" nil "8"
    "[csg #1004] (help) Voyager printing spots on page." "^Date:" nil
    nil "3" nil nil ... nil nil] [nil <v> nil nil nil]]) (("^Subject:"
    ("^[^ ]*\\.tar\\.gz[^ ]*$" concat ... ".aa") ("^[^ ]*shar[^ ]*$"
    buffer-substring ... ...)) ("^\\(To\\|Cc\\):" ("bach-list@"
    . "bach") ("birches@" . "birches") ("bug-gnats@" . "gnats")
    ("gnits@" . "gnits") ("madredeus@" . "madredeus") ("twg-tds@"
    . "tds") ("f_minor@" . "f_minor") ("empdb-human@" . "empdb"))
    ("^From:" ("Klickstein" . "aklick") n ("Paul.English" . "pme")
    ("paul@" . "pme") ("Robert A\\." . "ram") ("Skeffington"
    . "skeffington") ("asnd@" . "arseneau") ("devivra@" . "cp")
    ("george_planansky@" . "george") ("jdparsons@" . "chick")
    ("kleinmarka@" . "mark") ("mackay@" . "pierre") ("opbibtex@"
    . "oren") ("postmaster@" . "daemon") ("jeffrago@" . "jr") ("jgiza@"
    . "giza") ("jim@giza" . "giza") ("terveljf" . "linda")
    ("[@.]adelphia\\." . "adelphia") ("[@.]amazon\\." . "amazon")
    ("[@.]internic\\." . "internic") ("[@.]mysticcolorlabs\\."
    . "mystic") ("[@.]ora\\." . "ora") ("[@.]pcix\\." . "pcix")
    ("[@.]redhat\\." . "redhat") ("[@.]reel\\." . "reel")
    ("[@.]shore\\." . "shore") ("[@.]smcvt\\." . "hefferon")
    ("[@.]softpro\\." . "softpro") ("[@.]sun\\." . "sun")
    ("[@.]thawte\\." . "thawte") ("[@.]towerrecords\\."
    . "towerrecords") ("\\(\\(\\w\\|_\\)*\\)\\([>@%]\\|$\\| (\\)"
    downcase ...))))
  (or (vm-auto-select-folder vm-message-pointer vm-auto-folder-alist)
      vm-last-save-folder)
  (save-excursion (vm-select-folder-buffer)
      (vm-check-for-killed-summary) (vm-error-if-folder-empty) (or
      (vm-auto-select-folder vm-message-pointer vm-auto-folder-alist)
      vm-last-save-folder))
  (let ((default ...) (dir ...)) (cond (... ...) (default ...) (t ...)))
  (let ((last-command last-command) (this-command this-command))
      (vm-follow-summary-cursor) (let (... ...) (cond ... ... ...)))
  (list (let (... ...) (vm-follow-summary-cursor) (let ... ...))
      (prefix-numeric-value current-prefix-arg))
  call-interactively(vm-save-message)


Any clues?

Thanks,
Kathy