errors after updating emacs

[Sebastian Hofer <sebhofer@gmail.com>]

Today I compiled emacs from the bzr repository (emacs-version shows 24.0.50.1) and I am now getting errors in wanderlust. To reproduce the errors (backtraces are pasted below) I have to do the following:
- start wanderlust
- visit a folder
- quit the folder (hit "q")
- visit another folder
I now get the arrayp error. When I quit wl and try to start it again, I get the keymap error. Any thoughts on that?

Thanks
Sebastian 

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  luna-apply-generic(nil elmo-folder-close nil)
  elmo-folder-close(nil)
  (if discard-contents (elmo-folder-close wl-summary-buffer-elmo-folder) (elmo-folder-commit wl-summary-buffer-elmo-folder))
 
 (let ((discard-contents (or force-exit (not (wl-summary-sticky-p))))) 
(when discard-contents (wl-summary-cleanup-temp-marks)) 
(wl-summary-save-view) (if discard-contents (elmo-folder-close 
wl-summary-buffer-elmo-folder) (elmo-folder-commit 
wl-summary-buffer-elmo-folder)))
  (progn (setq 
wl-summary-last-visited-folder (wl-summary-buffer-folder-name)) 
(run-hooks (quote wl-summary-exit-pre-hook)) (let ((discard-contents (or
 force-exit (not (wl-summary-sticky-p))))) (when discard-contents 
(wl-summary-cleanup-temp-marks)) (wl-summary-save-view) (if 
discard-contents (elmo-folder-close wl-summary-buffer-elmo-folder) 
(elmo-folder-commit wl-summary-buffer-elmo-folder))) (if (and 
(wl-summary-sticky-p) force-exit) (kill-buffer (current-buffer))))
  
(if (and (not (string= (and cur-fld (elmo-folder-name-internal cur-fld))
 (elmo-folder-name-internal folder))) (eq major-mode (quote 
wl-summary-mode))) (progn (setq wl-summary-last-visited-folder 
(wl-summary-buffer-folder-name)) (run-hooks (quote 
wl-summary-exit-pre-hook)) (let ((discard-contents (or force-exit (not 
(wl-summary-sticky-p))))) (when discard-contents 
(wl-summary-cleanup-temp-marks)) (wl-summary-save-view) (if 
discard-contents (elmo-folder-close wl-summary-buffer-elmo-folder) 
(elmo-folder-commit wl-summary-buffer-elmo-folder))) (if (and 
(wl-summary-sticky-p) force-exit) (kill-buffer (current-buffer)))))
 
 (when (and (not (string= (and cur-fld (elmo-folder-name-internal 
cur-fld)) (elmo-folder-name-internal folder))) (eq major-mode (quote 
wl-summary-mode))) (setq wl-summary-last-visited-folder 
(wl-summary-buffer-folder-name)) (run-hooks (quote 
wl-summary-exit-pre-hook)) (let ((discard-contents (or force-exit (not 
(wl-summary-sticky-p))))) (when discard-contents 
(wl-summary-cleanup-temp-marks)) (wl-summary-save-view) (if 
discard-contents (elmo-folder-close wl-summary-buffer-elmo-folder) 
(elmo-folder-commit wl-summary-buffer-elmo-folder))) (if (and 
(wl-summary-sticky-p) force-exit) (kill-buffer (current-buffer))))
  
(let* ((keep-cursor (memq this-command wl-summary-keep-cursor-command)) 
(name (or name (wl-summary-read-folder wl-default-folder))) (cur-fld 
wl-summary-buffer-elmo-folder) folder buf mes hilit reuse-buf retval 
entity) (if (string= name "") (setq name wl-default-folder)) (setq 
folder (wl-folder-get-elmo-folder name)) (when (and (not (string= (and 
cur-fld (elmo-folder-name-internal cur-fld)) (elmo-folder-name-internal 
folder))) (eq major-mode (quote wl-summary-mode))) (setq 
wl-summary-last-visited-folder (wl-summary-buffer-folder-name)) 
(run-hooks (quote wl-summary-exit-pre-hook)) (let ((discard-contents (or
 force-exit (not (wl-summary-sticky-p))))) (when discard-contents 
(wl-summary-cleanup-temp-marks)) (wl-summary-save-view) (if 
discard-contents (elmo-folder-close wl-summary-buffer-elmo-folder) 
(elmo-folder-commit wl-summary-buffer-elmo-folder))) (if (and 
(wl-summary-sticky-p) force-exit) (kill-buffer (current-buffer)))) (setq
 buf (wl-summary-get-buffer-create (elmo-folder-name-internal folder) 
sticky)) (setq reuse-buf (with-current-buffer buf (string= 
(elmo-folder-name-internal folder) (wl-summary-buffer-folder-name)))) 
(unwind-protect (if reuse-buf (if interactive (switch-to-buffer buf) 
(set-buffer buf)) (if other-window (delete-other-windows)) (set-buffer 
buf) (unless (eq major-mode (quote wl-summary-mode)) (wl-summary-mode)) 
(wl-summary-buffer-set-folder folder) (setq 
wl-summary-buffer-display-mime-mode (if (wl-summary-no-mime-p 
wl-summary-buffer-elmo-folder) (quote as-is) (quote mime))) (setq 
wl-summary-buffer-disp-msg nil) (setq wl-summary-buffer-message-ring 
nil) (setq wl-summary-buffer-current-msg nil) (setq 
wl-summary-buffer-persistent-mark-version 0) (let ((inhibit-read-only t)
 (buffer-read-only nil)) (erase-buffer) (if wl-summary-cache-use (let* 
((dir ...) (cache ...) (view ...)) (when (file-exists-p cache) 
(insert-file-contents-as-binary cache) (set-buffer-multibyte 
default-enable-multibyte-characters) (decode-mime-charset-region ... ...
 wl-summary-buffer-mime-charset ...)) (if (file-exists-p view) (setq 
wl-summary-buffer-view ...) (setq wl-summary-buffer-view ...)) 
(wl-thread-resume-entity folder) (wl-summary-open-folder folder) 
(wl-summary-detect-mark-position)) (setq wl-summary-buffer-view 
(wl-summary-load-file-object (expand-file-name wl-summary-view-file 
...))) (wl-summary-open-folder folder) (wl-summary-detect-mark-position)
 (wl-summary-rescan)) (wl-summary-count-unread) 
(wl-summary-update-modeline))) (unless (eq wl-summary-buffer-view (quote
 thread)) (wl-summary-make-number-list)) (when (and wl-summary-cache-use
 (or (and wl-summary-check-line-format 
(wl-summary-line-format-changed-p)) (wl-summary-view-old-p))) 
(wl-summary-rescan)) (wl-summary-toggle-disp-msg (if 
wl-summary-buffer-disp-msg (quote on) (quote off))) (unless (and 
reuse-buf keep-cursor) (unwind-protect (let ((wl-use-scoring (if ... 
wl-use-scoring))) (if (and (not scan-type) interactive (not 
wl-ask-range)) (setq scan-type (wl-summary-get-sync-range folder))) 
(cond ((eq scan-type nil) (wl-summary-sync ...)) ((eq scan-type ...) 
(wl-summary-sync ... "all")) ((eq scan-type ...)) ((eq scan-type ...) 
(wl-summary-rescan)) ((or ... ...) (setq mes ...)))) (if interactive 
(switch-to-buffer buf) (set-buffer buf)) (when 
(wl-summary-always-sticky-folder-p folder) (or (wl-summary-sticky-p) 
(wl-summary-stick t))) (run-hooks (quote wl-summary-prepared-pre-hook)) 
(set-buffer-modified-p nil) (goto-char (point-min)) (if 
(wl-summary-cursor-down t) (let ((unreadp ...)) (cond (... ...) (... 
...) (... ...))) (goto-char (point-max)) (if (elmo-folder-plugged-p 
folder) (forward-line -1) (wl-summary-prev)) (setq retval (quote 
more-next))) (if (and wl-summary-highlight (not 
wl-summary-lazy-highlight) (not reuse-buf)) (if (and 
wl-summary-highlight-partial-threshold (> ... 
wl-summary-highlight-partial-threshold)) (save-excursion (forward-line 
...) (wl-highlight-summary ... ...)) (wl-highlight-summary (point-min) 
(point-max)))) (if (eq retval (quote disp-msg)) (wl-summary-redisplay)) 
(if (eq retval (quote prefetch-msg)) (wl-message-buffer-prefetch folder 
(wl-summary-message-number) (min (or wl-message-buffer-prefetch-depth 0)
 (1- wl-message-buffer-cache-size)) (current-buffer) 
wl-summary-buffer-mime-charset)) (if mes (message "%s" mes)) (if (and 
interactive wl-summary-recenter) (recenter (/ (- ... 2) 2)))))) (when 
(and folder (setq entity (wl-folder-search-entity-by-name 
(elmo-folder-name-internal folder) wl-folder-entity (quote folder)))) 
(wl-folder-set-current-entity-id (wl-folder-get-entity-id entity))) 
(when (and wl-summary-buffer-window-scroll-functions wl-on-xemacs) 
(sit-for 0)) (when (or (eq t wl-summary-force-prefetch-folder-list) 
(wl-string-match-member (elmo-folder-name-internal 
wl-summary-buffer-elmo-folder) wl-summary-force-prefetch-folder-list)) 
(wl-summary-force-prefetch)) (unwind-protect (run-hooks (quote 
wl-summary-prepared-hook)) (set-buffer-modified-p nil)) retval)
  wl-summary-goto-folder-subr(#(".univie/INBOX" 0 13 (wl-folder-entity-id 2 wl-folder-is-group nil)) update nil nil t)
  wl-folder-jump-to-current-entity()
  wl-folder-click((mouse-2 (#<window 5 on *Backtrace*> 58 (82 . 42) 6920658 nil 58 (8 . 2) nil (3 . 6) (9 . 18))))
  call-interactively(wl-folder-click nil nil)

Debugger entered--Lisp error: (error "`keymap' is reserved for embedded parent maps")
  signal(error ("`keymap' is reserved for embedded parent maps"))
  (condition-case obj (progn (if check (progn (message "Checking environment...") (wl-check-environment arg) (message "Checking environment...done") (message "Checking type of variables...") (wl-check-variables) (wl-check-variables-2) (message "Checking type of variables...done"))) (let ((inhibit-quit t)) (wl-plugged-init (wl-folder))) (unless arg (run-hooks (quote wl-auto-check-folder-pre-hook)) (wl-folder-auto-check) (run-hooks (quote wl-auto-check-folder-hook)))) (error (if (buffer-live-p demo-buf) (kill-buffer demo-buf)) (signal (car obj) (cdr obj))) (quit))
  (let (demo-buf check) (unless wl-init (if wl-demo (setq demo-buf (wl-demo))) (setq check t)) (wl-init) (condition-case obj (progn (if check (progn (message "Checking environment...") (wl-check-environment arg) (message "Checking environment...done") (message "Checking type of variables...") (wl-check-variables) (wl-check-variables-2) (message "Checking type of variables...done"))) (let ((inhibit-quit t)) (wl-plugged-init (wl-folder))) (unless arg (run-hooks (quote wl-auto-check-folder-pre-hook)) (wl-folder-auto-check) (run-hooks (quote wl-auto-check-folder-hook)))) (error (if (buffer-live-p demo-buf) (kill-buffer demo-buf)) (signal (car obj) (cdr obj))) (quit)) (when wl-biff-check-folder-list (unless arg (wl-biff-check-folders)) (wl-biff-start)) (if (buffer-live-p demo-buf) (kill-buffer demo-buf)))
  wl(nil)
  call-interactively(wl t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)