Hi,
I managed to get this lisp backtrace and noticed at least one error
message on loading VM, which seems related to the problem:
signal(error ("menu name (first element) must be a string" ((identity
"foo") (quote ding) t)))
Best regards,
Carl-Fredrik Enell
Lisp backtrace follows:
# (condition-case ... . error)
# (catch exit ...)
# bind (standard-input standard-output)
# (unwind-protect ...)
recursive-edit()
# (unwind-protect ...)
# bind (standard-output buffer-read-only)
byte-code("..." [buffer-read-only noninteractive debugger-buffer middlestart
debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode
debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs
debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit
standard-output] 3)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (last-command this-command unread-command-event unread-command-events
last-input-event last-input-char last-input-time last-command-event
last-command-char overriding-local-map load-read-function
enable-recursive-minibuffers standard-input standard-output cursor-in-echo-area)
# (unwind-protect ...)
# bind (debugger-value debug-on-error debug-on-quit debug-on-signal
debugger-buffer debugger-old-buffer debugger-step-after-exit
executing-kbd-macro debugger-outer-match-data debugger-outer-load-read-function
debugger-outer-overriding-local-map
debugger-outer-overriding-terminal-local-map debugger-outer-last-command
debugger-outer-this-command debugger-outer-unread-command-event
debugger-outer-unread-command-events debugger-outer-last-input-event
debugger-outer-last-input-char debugger-outer-last-input-time
debugger-outer-last-command-event debugger-outer-last-command-char
debugger-outer-standard-input debugger-outer-standard-output
debugger-outer-cursor-in-echo-area debugger-args)
debug(error (error "menu name (first element) must be a string" ((identity
"foo") (quote ding) t)))
# (catch debugger ...)
# (unwind-protect ...)
# bind (stack-trace-on-signal debug-on-signal stack-trace-on-error
debug-on-error)
signal(error ("menu name (first element) must be a string" ((identity "foo")
(quote ding) t)))
# bind (menubar-p menu)
check-menu-syntax(((identity "foo") (quote ding) t))
# bind (menuitem item menubar-p menu)
check-menu-syntax(("bar" ((identity "foo") (quote ding) t)))
byte-code("..." [check-menu-syntax ("bar" (... ... t))] 2)
# (condition-case ... . ((error)))
vm-menu-can-eval-item-name()
# bind (title)
byte-code("..." [vm-menu-folder-menu vm-menu-folders-menu vm-fsfemacs-p w3
title current-load-list default-boundp set-default "Folder" ["Manipulate
Folders" ignore (ignore)] "---" vector "Display Summary" vm-summarize t "Toggle
Threading" vm-toggle-threads-display "Get New Mail" vm-get-new-mail
(vm-menu-can-get-new-mail-p) "Search" vm-isearch-forward vm-message-list
"Auto-Archive" vm-auto-archive-messages "Expunge" vm-expunge-folder "Expunge
POP Messages" vm-expunge-pop-messages (vm-menu-can-expunge-pop-messages-p)
"Expunge IMAP Messages" (vm-menu-can-expunge-imap-messages-p) "Visit Local
Folder" vm-visit-folder "Visit POP Folder" vm-visit-pop-folder
vm-pop-folder-alist "Visit IMAP Folder" vm-visit-imap-folder
vm-imap-server-list "Revert Folder (back to disk version)" vm-revert-buffer
(vm-menu-can-revert-p) "Recover Folder (from auto-save file)" vm-recover-file
(vm-menu-can-recover-p) "Save" vm-save-folder (vm-menu-can-save-p) "Save As..."
vm-write-file "Quit" vm-quit-no-change "Save & Quit" vm-quit ("---" "---"
"-------" "Visit:" "---" [" " ... t "~/VMail/INBOX"] "---" "---" [" " ...
t "~/VMail/INBOX"]) vm-menu-dispose-menu vm-menu-fsfemacs19-menus-p "Dispose"
append "Reply to Author" vm-reply "Reply to All" vm-followup
vm-menu-motion-menu vm-menu-send-menu vm-menu-mark-menu vm-menu-label-menu
vm-menu-sort-menu vm-menu-virtual-menu vm-menu-help-menu "Reply to Author
(citing original)" vm-reply-include-text "Reply to All (citing original)"
vm-followup-include-text "Forward" vm-forward-message "Resend"
vm-resend-message "Retry Bounce" vm-resend-bounced-message "File"
vm-save-message "Delete" vm-delete-message "Undelete" vm-undelete-message "Kill
Current Subject" vm-kill-subject "Mark Unread" vm-unread-message "Edit"
vm-edit-message "Print" vm-print-message "Pipe to Command"
vm-pipe-message-to-command "Burst Message as Digest" (vm-burst-digest "guess")
"Decode MIME" vm-decode-mime-message (vm-menu-can-decode-mime-p) ("Motion"
["Page Up" vm-scroll-backward vm-message-list] ["Page Down" vm-scroll-forward
vm-message-list] "----" ["Beginning" vm-beginning-of-message vm-message-list]
["End" vm-end-of-message vm-message-list] "----" ["Expose/Hide Headers"
vm-expose-hidden-headers vm-message-list] "----" ["Next Message"
vm-next-message t] ["Previous Message" vm-previous-message t] "---" ["Next,
Same Subject" vm-next-message-same-subject t] ["Previous, Same Subject"
vm-previous-message-same-subject t] "---" ["Next Unread" vm-next-unread-message
t] ["Previous Unread" vm-previous-unread-message t] "---" ["Next Message (no
skip)" vm-next-message-no-skip t] ["Previous Message (no skip)"
vm-previous-message-no-skip t] "---" ["Go to Last Seen Message"
vm-goto-message-last-seen t] ["Go to Message" vm-goto-message t] ["Go to Parent
Message" vm-goto-parent-message t]) ("Virtual" ["Visit Virtual Folder"
vm-visit-virtual-folder t] ["Visit Virtual Folder Same Author"
vm-visit-virtual-folder-same-author t] ["Visit Virtual Folder Same Subject"
vm-visit-virtual-folder-same-subject t] ["Create Virtual Folder"
vm-create-virtual-folder t] ["Apply Virtual Folder" vm-apply-virtual-folder t]
"---" "---" "-------") ("Send" ["Compose" vm-mail t] ["Continue Composing"
vm-continue-composing-message vm-message-list] ["Reply to Author" vm-reply
vm-message-list] ["Reply to All" vm-followup vm-message-list] ["Reply to Author
(citing original)" vm-reply-include-text vm-message-list] ["Reply to All
(citing original)" vm-followup-include-text vm-message-list] ["Forward Message"
vm-forward-message vm-message-list] ["Resend Message" vm-resend-message
vm-message-list] ["Retry Bounced Message" vm-resend-bounced-message
vm-message-list] ["Send Digest (RFC934)" vm-send-rfc934-digest vm-message-list]
["Send Digest (RFC1153)" vm-send-rfc1153-digest vm-message-list] ["Send MIME
Digest" vm-send-mime-digest vm-message-list]) ("Mark" ["Next Command Uses
Marks..." vm-next-command-uses-marks :active vm-message-list :style radio
:selected ...] "----" ["Mark" vm-mark-message vm-message-list] ["Unmark"
vm-unmark-message vm-message-list] ["Mark All" vm-mark-all-messages
vm-message-list] ["Clear All Marks" vm-clear-all-marks vm-message-list] ["Mark
Region in Summary" vm-mark-summary-region vm-message-list] ["Unmark Region in
Summary" vm-unmark-summary-region vm-message-list] "----" ["Mark Same Subject"
vm-mark-messages-same-subject vm-message-list] ["Unmark Same Subject"
vm-unmark-messages-same-subject vm-message-list] ["Mark Same Author"
vm-mark-messages-same-author vm-message-list] ["Unmark Same Author"
vm-unmark-messages-same-author vm-message-list] ["Mark Messages Matching..."
vm-mark-matching-messages vm-message-list] ["Unmark Messages Matching..."
vm-unmark-matching-messages vm-message-list] ["Mark Thread Subtree"
vm-mark-thread-subtree vm-message-list] ["Unmark Thread Subtree"
vm-unmark-thread-subtree vm-message-list]) ("Label" ["Add Label"
vm-add-message-labels vm-message-list] ["Add Existing Label"
vm-add-existing-message-labels vm-message-list] ["Remove Label"
vm-delete-message-labels vm-message-list]) ("Sort" ["By Multiple Fields..."
vm-sort-messages vm-message-list] "---" ["By Date" ... vm-message-list] ["By
Subject" ... vm-message-list] ["By Author" ... vm-message-list] ["By
Recipients" ... vm-message-list] ["By Lines" ... vm-message-list] ["By Bytes"
... vm-message-list] "---" ["By Date (backward)" ... vm-message-list] ["By
Subject (backward)" ... vm-message-list] ["By Author (backward)" ...
vm-message-list] ["By Recipients (backward)" ... vm-message-list] ["By Lines
(backward)" ... vm-message-list] ["By Bytes (backward)" ... vm-message-list]
"---" ["Toggle Threading" vm-toggle-threads-display t] "---" ["Revert to
Physical Order" ... vm-message-list]) ("Help" ["Switch to Emacs Toolbar"
vm-menu-toggle-menubar] "---" ["What Now?" vm-help t] ["Describe Mode"
describe-mode t] ["Revert Folder (back to disk version)" revert-buffer ...]
["Recover Folder (from auto-save file)" recover-file ...] "---" ["Save Folder &
Quit" vm-quit t] ["Quit Without Saving" vm-quit-no-change t]) vm-menu-undo-menu
["Undo" vm-undo (vm-menu-can-undo-p)] vm-menu-emacs-button ["XEmacs"
vm-menu-toggle-menubar t] vm-menu-vm-button ["VM" vm-menu-toggle-menubar t]
vm-menu-mail-menu "Mail Commands" "Send and Exit" vm-mail-send-and-exit
(vm-menu-can-send-mail-p) "Send, Keep Composing" vm-mail-send
(vm-menu-can-send-mail-p) "Cancel" kill-buffer "----" "Yank Original"
vm-menu-yank-original vm-reply-list "Send Using MIME..." "Use MIME" (progn (set
... t) (vm-mail-mode-remove-tm-hooks)) :active :style radio :selected
vm-send-using-mime "Don't use MIME" (set (make-local-variable ...) nil) (not
vm-send-using-mime) "Fragment Messages Larger Than ..." "Infinity, i.e., don't
fragment" (set (make-local-variable ...) nil) (eq vm-mime-max-message-size nil)
"50000 bytes" (set (make-local-variable ...) 50000) (eq
vm-mime-max-message-size 50000) "100000 bytes" (set (make-local-variable ...)
100000) (eq vm-mime-max-message-size 100000) "200000 bytes" (set
(make-local-variable ...) 200000) (eq vm-mime-max-message-size 200000) "500000
bytes" (set (make-local-variable ...) 500000) (eq vm-mime-max-message-size
500000) "1000000 bytes" (set (make-local-variable ...) 1000000) (eq
vm-mime-max-message-size 1000000) "2000000 bytes" (set (make-local-variable
...) 2000000) (eq vm-mime-max-message-size 2000000) "Encode 8-bit Characters
Using ..." "Nothing, i.e., send unencoded" (set (make-local-variable ...)
(quote 8bit)) (eq vm-mime-8bit-text-transfer-encoding (quote 8bit))
"Quoted-Printable" (set (make-local-variable ...) (quote quoted-printable)) (eq
vm-mime-8bit-text-transfer-encoding (quote quoted-printable)) "BASE64" (set
(make-local-variable ...) (quote base64)) (eq
vm-mime-8bit-text-transfer-encoding (quote base64)) "Attach File..."
vm-mime-attach-file "Attach MIME Message..." vm-mime-attach-mime-file "Encode
MIME, But Don't Send" vm-mime-encode-composition (and vm-send-using-mime (null
...)) "Preview MIME Before Sending" vm-mime-preview-composition
vm-menu-mime-dispose-menu "Take Action on MIME body ..." "Display as Text (in
default face)" (vm-mime-run-display-function-at-point (quote
vm-mime-display-body-as-text)) "Display using External Viewer"
(vm-mime-run-display-function-at-point (quote
vm-mime-display-body-using-external-viewer)) vm-menu-can-eval-item-name
[(format "Convert to %s and Display" ...)
(vm-mime-run-display-function-at-point ...) (vm-mime-can-convert ...)] "Undo"
vm-undo "Save to File" vm-mime-reader-map-save-file "Save to Folder"
vm-mime-reader-map-save-message (let (...) (if ... nil ...)) "Send to Printer"
(vm-mime-run-display-function-at-point (quote vm-mime-send-body-to-printer))
"Pipe to Shell Command (display output)" (vm-mime-run-display-function-at-point
(quote vm-mime-pipe-body-to-queried-command)) "Pipe to Shell Command (discard
output)" (vm-mime-run-display-function-at-point (quote
vm-mime-pipe-body-to-queried-command-discard-output)) "Attach to Message
Composition Buffer" vm-mime-attach-object-from-message vm-delete-mime-object
vm-menu-url-browser-menu "Send URL to ..." fboundp w3-fetch-other-frame
w3-fetch apply "Emacs W3" vm-mouse-send-url-at-position (point) quote "Mosaic"
(vm-mouse-send-url-at-position (point) (quote vm-mouse-send-url-to-mosaic))
"mMosaic" (vm-mouse-send-url-at-position (point) (quote
vm-mouse-send-url-to-mmosaic)) "Netscape" (vm-mouse-send-url-at-position
(point) (quote vm-mouse-send-url-to-netscape)) "Konqueror"
(vm-mouse-send-url-at-position (point) (quote vm-mouse-send-url-to-konqueror))
"X Clipboard" (vm-mouse-send-url-at-position (point) (quote
vm-mouse-send-url-to-clipboard)) vm-menu-mailto-url-browser-menu "Send Mail
using ..." "VM" (vm-mouse-send-url-at-position (point) (quote ignore))
vm-menu-subject-menu "Take Action on Subject..." "Kill Subject" "Next Message,
Same Subject" vm-next-message-same-subject "Previous Message, Same Subject"
vm-previous-message-same-subject "Mark Messages, Same Subject"
vm-mark-messages-same-subject "Unmark Messages, Same Subject"
vm-unmark-messages-same-subject "Virtual Folder, Matching Subject"
vm-menu-create-subject-virtual-folder vm-menu-author-menu "Take Action on
Author..." "Mark Messages, Same Author" vm-mark-messages-same-author "Unmark
Messages, Same Author" vm-unmark-messages-same-author "Virtual Folder, Matching
Author" vm-menu-create-author-virtual-folder vm-menu-attachment-menu "Fiddle
With Attachment" "Set Content Disposition..." "Unspecified"
(vm-mime-set-attachment-disposition-at-point (quote unspecified)) (eq
(vm-mime-attachment-disposition-at-point) (quote unspecified)) "Inline"
(vm-mime-set-attachment-disposition-at-point (quote inline)) (eq
(vm-mime-attachment-disposition-at-point) (quote inline)) "Attachment"
(vm-mime-set-attachment-disposition-at-point (quote attachment)) (eq
(vm-mime-attachment-disposition-at-point) (quote attachment)) "Set Content
Encoding..." "Guess" (vm-mime-set-attachment-encoding-at-point "guess") (eq
(vm-mime-attachment-encoding-at-point) nil) "Binary"
(vm-mime-set-attachment-encoding-at-point "binary") (string=
(vm-mime-attachment-encoding-at-point) "binary") "7bit"
(vm-mime-set-attachment-encoding-at-point "7bit") (string=
(vm-mime-attachment-encoding-at-point) "7bit") "8bit"
(vm-mime-set-attachment-encoding-at-point "8bit") (string=
(vm-mime-attachment-encoding-at-point) "8bit") "quoted-printable"
(vm-mime-set-attachment-encoding-at-point "quoted-printable") (string=
(vm-mime-attachment-encoding-at-point) "quoted-printable") "Forward Local
External Bodies" "Forward Unchanged"
(vm-mime-set-attachment-forward-local-refs-at-point t)
(vm-mime-attachment-forward-local-refs-at-point) "Convert to Internal Object"
(vm-mime-set-attachment-forward-local-refs-at-point nil) (not
(vm-mime-attachment-forward-local-refs-at-point))
(vm-mime-delete-attachment-button) button "Delete, but keep infos"
(vm-mime-delete-attachment-button-keep-infos) vm-menu-image-menu "Redisplay
Image" "4x Larger" (vm-mime-run-display-function-at-point (quote
vm-mime-larger-image)) (stringp vm-imagemagick-convert-program) "4x Smaller"
(vm-mime-run-display-function-at-point (quote vm-mime-smaller-image)) (stringp
vm-imagemagick-convert-program) "Rotate Left"
(vm-mime-run-display-function-at-point (quote vm-mime-rotate-image-left))
(stringp vm-imagemagick-convert-program) "Rotate Right"
(vm-mime-run-display-function-at-point (quote vm-mime-rotate-image-right))
(stringp vm-imagemagick-convert-program) "Mirror"
(vm-mime-run-display-function-at-point (quote vm-mime-mirror-image)) (stringp
vm-imagemagick-convert-program) "Brighter"
(vm-mime-run-display-function-at-point (quote vm-mime-brighten-image)) (stringp
vm-imagemagick-convert-program) "Dimmer" (vm-mime-run-display-function-at-point
(quote vm-mime-dim-image)) (stringp vm-imagemagick-convert-program)
"Monochrome" (vm-mime-run-display-function-at-point (quote
vm-mime-monochrome-image)) (stringp vm-imagemagick-convert-program) "Revert to
Original" (vm-mime-run-display-function-at-point (quote vm-mime-revert-image))
(get (vm-mm-layout-cache ...) (quote vm-image-modified)) vm-menu-vm-menubar nil
vm-menu-vm-menu vm-mode-menu-map] 29)
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("vm-menu" nil t nil binary)
# bind (path handler filename nosuffix nomessage noerror file)
load("vm-menu" nil t nil)
# (unwind-protect ...)
require(vm-menu)
vm-session-initialization()
# bind (access-method read-only folder)
#<compiled-function (&optional folder read-only access-method) "...(18)"
[access-method read-only
folder!?%g�������������...@a%g�%@\"%g���������...@r%g���%@;%g������...@\"%G�����%@)%g��...@nning
vm done (byte-code "\n%G����%@
---
call-interactively(vm)
command-execute(vm t)
# bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
execute-extended-command(nil)
# bind (command-debug-status)
call-interactively(execute-extended-command)
# (condition-case ... . error)
# (catch top-level ...)
--
=============================================
Dr. Carl-Fredrik Enell, researcher
Sodankylä Geophysical Observatory
University of Oulu
Tähteläntie 62
FIN-99600 Sodankylä, Finland
http://www.sgo.fi/~fredrik
Telephone (work): (+358) (0)16 619826
Mobile phone (work): (+358) (0)40 1728599
Private phone: (+358) (0)400 820037
or (+46) (0)70 5508256
