mh-toolbar-init wonkyness

Been a while since I tried this, looks like something broke in mh-toolbar-init. At first I thought it was the (toolbar-visible-p nil) I had set, but removing that didn't change things, and I have a perfectly reasonable toolbar across the top of the window right under the menubar. Using a CVS 21.5 from a few days ago and recent SUMOs. (1) (file-mode-spec/warning) Error in File mode specification: Structure formation error: Toolbar spec must be list or nil, #<buffer "83"> Backtrace follows: check-valid-instantiator(#<buffer "83"> toolbar) # bind (result noerror specifier-type spec) canonicalize-spec(#<buffer "83"> toolbar nil) # bind (rest result) byte-code("..." [specifier-type res2 noerror spec-list result rest nil throw cann-spec-list t signal error "Invalid list format" canonicalize-spec] 5) # (catch cann-spec-list ...) # bind (result noerror specifier-type spec-list) canonicalize-spec-list((#<buffer "83"> [mh-xemacs-toolbar-send-letter-icon mh-send-letter t "Send this letter"] [mh-xemacs-toolbar-mime-save-parts-icon mh-compose-insertion t "Insert attachment"] [mh-xemacs-toolbar-ispell-message-icon ispell-message t "Check spelling"] [mh-xemacs-toolbar-save-buffer-icon save-buffer t "Save current buffer to its file"] [mh-xemacs-toolbar-undo-icon undo t "Undo last operation"] [mh-xemacs-toolbar-kill-region-icon kill-region t "Cut (kill) text in region between mark and current position"] [mh-xemacs-toolbar-kill-ring-save-icon menu-bar-kill-ring-save t "Copy text in region between mark and current position"] [mh-xemacs-toolbar-yank-icon yank t "Paste (yank) text cut or copied earlier"] [mh-xemacs-toolbar-delete-msg-icon mh-fully-kill-draft t "Kill this draft"] [mh-xemacs-toolbar-preferences-icon mh-tool-bar-customize t "MH-E Preferences"] [mh-xemacs-toolbar-help-icon mh-tool-bar-letter-help t "Help! (general help)\nThis button runs `Info-goto-node'"]) toolbar) # bind (is-valid nval how-to-add tag-set locale value specifier) set-specifier(#<toolbar-specifier global=([toolbar-file-icon toolbar-open t "Open a file"] [toolbar-folder-icon toolbar-dired t "Edit a directory"] [toolbar-disk-icon toolbar-save t "Save buffer"] [toolbar-printer-icon toolbar-print t "Print buffer"] [toolbar-cut-icon toolbar-cut t "Kill region"] [toolbar-copy-icon toolbar-copy t "Copy region"] [toolbar-paste-icon toolbar-paste t "Paste from clipboard"] [toolbar-undo-icon toolbar-undo t "Undo edit"] [toolbar-spell-icon toolbar-ispell t "Check spelling"] [toolbar-replace-icon toolbar-replace t "Search & Replace"] [toolbar-mail-icon toolbar-mail t "Read mail"] [toolbar-info-icon toolbar-info t "Info documentation"] [toolbar-compile-icon toolbar-compile t "Start a compilation"] [toolbar-debug-icon toolbar-debug t "Start a debugger"] [toolbar-news-icon toolbar-news t "Read news"]) fallback=((nil)) 0x190> ([mh-xemacs-toolbar-send-letter-icon mh-send-letter t "Send this letter"] [mh-xemacs-toolbar-mime-save-parts-icon mh-compose-insertion t "Insert attachment"] [mh-xemacs-toolbar-ispell-message-icon ispell-message t "Check spelling"] [mh-xemacs-toolbar-save-buffer-icon save-buffer t "Save current buffer to its file"] [mh-xemacs-toolbar-undo-icon undo t "Undo last operation"] [mh-xemacs-toolbar-kill-region-icon kill-region t "Cut (kill) text in region between mark and current position"] [mh-xemacs-toolbar-kill-ring-save-icon menu-bar-kill-ring-save t "Copy text in region between mark and current position"] [mh-xemacs-toolbar-yank-icon yank t "Paste (yank) text cut or copied earlier"] [mh-xemacs-toolbar-delete-msg-icon mh-fully-kill-draft t "Kill this draft"] [mh-xemacs-toolbar-preferences-icon mh-tool-bar-customize t "MH-E Preferences"] [mh-xemacs-toolbar-help-icon mh-tool-bar-letter-help t "Help! (general help)\nThis button runs `Info-goto-node'"]) #<buffer "83">) # bind (toolbar height width buffer mode) mh-toolbar-init(:letter) mh-letter-mode() # bind (alist mode name keep-going) # (unwind-protect ...) # bind (just-from-file-name) set-auto-mode() #<compiled-function nil "...(5)" [set-auto-mode t] 1>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (__call_trapping_errors_arg__) "...(17)" [__call_trapping_errors_arg__ errstr error-message-string lwarn file-mode-spec warning "Error in %s: %s\n\nBacktrace follows:\n\n%s" "File mode specification" backtrace-in-condition-handler-eliminating-handler] 8> #<compiled-function nil "...(5)" [set-auto-mode t] 1>) # (condition-case ... . ((error))) # bind (find-file) normal-mode(t) # bind (nomodes after-find-file-from-revert-buffer noauto warn error) after-find-file(nil t) # (unwind-protect ...) # bind (inhibit-read-only error number truename rawfile nowarn filename buf) find-file-noselect-1(#<buffer "83"> "/home/valdis/Mail/drafts/83" nil nil "/home/valdis/Mail/drafts/83" (248584 65030)) byte-code("..." [number truename rawfile nowarn filename buf set-buffer-major-mode find-file-noselect-1] 7) # (condition-case ... . ((t (byte-code "Â!ˆÃ ＠ A\"‡" [buf data kill-buffer signal] 3)))) # bind (number truename buf wildcards rawfile nowarn filename) find-file-noselect("/home/valdis/Mail/drafts/83" nil nil nil) # bind (wildcards codesys filename) find-file("/home/valdis/Mail/drafts/83") # bind (line path client frame device dest-frame new-frame old-device-num quick view flags list type) gnuserv-edit-files((x ":0") ((1 . "/home/valdis/Mail/drafts/83"))) eval((gnuserv-edit-files (quote (x ":0")) (quote ((1 . "/home/valdis/Mail/drafts/83"))))) byte-code("..." [header gnuserv-string eval read-from-string] 4) # (condition-case ... . ((error (byte-code "Ã\n«…Ä\n \"ˆÅÆ ＠ A\"‡" [gnuserv-string oops gnuserv-current-client "" gnuserv-write-to-client nil signal] 3)) (quit (byte-code "Ã\n«…Ä\n\"ˆÅÆÇÅ\"‡" [oops gnuserv-string gnuserv-current-client "" gnuserv-write-to-client nil signal quit] 3)))) # bind (header string proc) gnuserv-process-filter(#<process "gnuserv" pid 16666 state:run> "5 (gnuserv-edit-files '(x \":0\") '((1 . \"/home/valdis/Mail/drafts/83\")))") next-command-event() byte-code("..." [unread-command-event circ-tmout tmout startup-message-timeout add-timeout #<compiled-function (ignore) "...(5)" [nil (byte-code "ÀÁÂ\"‡" [throw tmout t] 3) ((error))] 3> nil display-splash-frame sit-for 0 next-command-event] 4) # (catch tmout ...) # (unwind-protect ...) # bind (tmout circ-tmout) command-line-1() # bind (command-line-args-left) command-line() # (condition-case ... . ((t (byte-code " ‡" [error-data data nil] 1)))) # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...)