🚀 go-pugleaf

I just FTPed and installed the patched VM 5.33.

I'm using GNU Emacs 19.15.

I'm not (yet) on this mailing list, probably, so please CC: me in any
replies.

1) vmsort.el isn't compiled or included in the vm.elc file.  Maybe it
   should be renamed to vm-sort.el so that it is included by the
   Makefile.

2) When I try to edit a message (I hit 'e' in the INBOX buffer), I get
   this error signalled (I've filled the long lines and double spaced
   the original lines so you can tell the different lines apart):

Signalling: (wrong-type-argument listp [nil nil nil nil
vm-delete-message-backward nil nil nil nil vm-goto-message-last-seen
nil nil nil vm-goto-message nil nil nil nil nil nil nil nil nil nil
(keymap (23 . vm-write-file) (19 . vm-save-buffer) (117 . vm-undo))
nil nil (keymap (87 . vm-show-no-warranty) (67
. vm-show-copying-restrictions) (115 . vm-isearch-forward) (114
. vm-resend-bounced-message) (16 . vm-move-message-backward) (14
. vm-move-message-forward) (112 . vm-previous-unread-message) (110
. vm-next-unread-message)) nil nil nil vm-undo vm-scroll-forward
shell-command undefined vm-expunge-folder undefined undefined
undefined undefined undefined undefined vm-burst-digest undefined
undefined negative-argument undefined undefined digit-argument
digit-argument digit-argument digit-argument digit-argument
digit-argument digit-argument digit-argument digit-argument
digit-argument undefined undefined vm-beginning-of-message
vm-summarize vm-end-of-message vm-help vm-send-digest
vm-auto-archive-messages vm-resend-message undefined undefined
undefined vm-followup-include-text vm-group-messages undefined
undefined undefined undefined vm-load-rc (keymap (63 . vm-mark-help)
(117 . vm-clear-all-marks) (109 . vm-mark-all-messages) (85
. vm-unmark-message) (77 . vm-mark-message) (110
. vm-next-command-uses-marks) (78 . vm-next-command-uses-marks))
vm-Next-message undefined vm-Previous-message undefined
vm-reply-include-text vm-save-folder undefined vm-unread-message
vm-visit-virtual-folder (keymap (63 . vm-window-help) (68
. vm-delete-window-configuration) (83 . vm-save-window-configuration)
(87 . vm-apply-window-configuration)) undefined undefined undefined
undefined undefined undefined undefined undefined undefined undefined
vm-scroll-backward vm-continue-composing-message vm-delete-message
vm-edit-message vm-followup vm-get-new-mail vm-summarize undefined
vm-discard-cached-data vm-kill-subject undefined vm-mail
vm-next-message undefined vm-previous-message vm-quit vm-reply
vm-save-message vm-expose-hidden-headers vm-undelete-message
vm-visit-folder vm-save-message-sans-headers vm-quit-no-change
undefined vm-forward-message undefined vm-pipe-message-to-command
undefined undefined vm-scroll-backward])

  cdr([nil nil nil nil vm-delete-message-backward nil nil nil nil
vm-goto-message-last-seen nil nil nil vm-goto-message nil nil nil nil
nil nil nil nil nil nil (keymap (23 . vm-write-file) (19
. vm-save-buffer) (117 . vm-undo)) nil nil (keymap (87
. vm-show-no-warranty) (67 . vm-show-copying-restrictions) (115
. vm-isearch-forward) (114 . vm-resend-bounced-message) (16
. vm-move-message-backward) (14 . vm-move-message-forward) (112
. vm-previous-unread-message) (110 . vm-next-unread-message)) nil nil
nil vm-undo vm-scroll-forward shell-command undefined
vm-expunge-folder undefined undefined undefined undefined undefined
undefined vm-burst-digest undefined undefined negative-argument
undefined undefined digit-argument digit-argument digit-argument
digit-argument digit-argument digit-argument digit-argument
digit-argument digit-argument digit-argument undefined undefined
vm-beginning-of-message vm-summarize vm-end-of-message vm-help
vm-send-digest vm-auto-archive-messages vm-resend-message undefined
undefined undefined vm-followup-include-text vm-group-messages
undefined undefined undefined undefined vm-load-rc (keymap (63
. vm-mark-help) (117 . vm-clear-all-marks) (109
. vm-mark-all-messages) (85 . vm-unmark-message) (77
. vm-mark-message) (110 . vm-next-command-uses-marks) (78
. vm-next-command-uses-marks)) vm-Next-message undefined
vm-Previous-message undefined vm-reply-include-text vm-save-folder
undefined vm-unread-message vm-visit-virtual-folder (keymap (63
. vm-window-help) (68 . vm-delete-window-configuration) (83
. vm-save-window-configuration) (87 . vm-apply-window-configuration))
undefined undefined undefined undefined undefined undefined undefined
undefined undefined undefined vm-scroll-backward
vm-continue-composing-message vm-delete-message vm-edit-message
vm-followup vm-get-new-mail vm-summarize undefined
vm-discard-cached-data vm-kill-subject undefined vm-mail
vm-next-message undefined vm-previous-message vm-quit vm-reply
vm-save-message vm-expose-hidden-headers vm-undelete-message
vm-visit-folder vm-save-message-sans-headers vm-quit-no-change
undefined vm-forward-message undefined vm-pipe-message-to-command
undefined undefined vm-scroll-backward])

  (setq src-b (cdr (car src-map))))

  (while src-map (setq src-b (cdr ...)) (cond (...) (... ... ... ...)
(t ...)) (setq src-map (cdr src-map))))

  (let (src-b dest-b) (setq src-map (cdr src-map)) (while src-map
(setq src-b ...) (cond ... ... ...) (setq src-map ...))))

  (cond ((vectorp src-map) (let ... ...)) (t (let ... ... ...))))

  (progn (use-local-map dest-map) (cond (... ...) (t ...))))

  (unwind-protect (progn (use-local-map dest-map) (cond ... ...))
(use-local-map old-local-map)))

  (let ((old-local-map ...)) (unwind-protect (progn ... ...)
(use-local-map old-local-map))))

  vm-overlay-keymap((keymap [nil nil nil nil
vm-delete-message-backward nil nil nil nil vm-goto-message-last-seen
nil nil nil vm-goto-message nil nil nil nil nil nil nil nil nil nil
(keymap ... ... ...) nil nil (keymap ... ... ... ... ... ... ... ...)
nil nil nil vm-undo vm-scroll-forward shell-command undefined
vm-expunge-folder undefined undefined undefined undefined undefined
undefined vm-burst-digest undefined undefined negative-argument
undefined undefined digit-argument digit-argument digit-argument
digit-argument digit-argument digit-argument digit-argument
digit-argument digit-argument digit-argument undefined undefined
vm-beginning-of-message vm-summarize vm-end-of-message vm-help
vm-send-digest vm-auto-archive-messages vm-resend-message undefined
undefined undefined vm-followup-include-text vm-group-messages
undefined undefined undefined undefined vm-load-rc (keymap
.. ... ... ... ... ... ...) vm-Next-message undefined
vm-Previous-message undefined vm-reply-include-text vm-save-folder
undefined vm-unread-message vm-visit-virtual-folder (keymap
.. ... ... ...) undefined undefined undefined undefined undefined
undefined undefined undefined undefined undefined vm-scroll-backward
vm-continue-composing-message vm-delete-message vm-edit-message
vm-followup vm-get-new-mail vm-summarize undefined
vm-discard-cached-data vm-kill-subject undefined vm-mail
vm-next-message undefined vm-previous-message vm-quit vm-reply
vm-save-message vm-expose-hidden-headers vm-undelete-message
vm-visit-folder vm-save-message-sans-headers vm-quit-no-change
undefined vm-forward-message undefined vm-pipe-message-to-command
undefined undefined vm-scroll-backward]) (keymap))

  (cond ((null src-b)) ((keymapp src-b) (setq dest-b ...) (if ... ...)
(vm-overlay-keymap src-b dest-b)) (t (define-key dest-map
.. src-b))))

  (while src-map (setq src-b (cdr ...)) (cond (...) (... ... ... ...)
(t ...)) (setq src-map (cdr src-map))))

  (let (src-b dest-b) (setq src-map (cdr src-map)) (while src-map
(setq src-b ...) (cond ... ... ...) (setq src-map ...))))

  (cond ((vectorp src-map) (let ... ...)) (t (let ... ... ...))))

  (progn (use-local-map dest-map) (cond (... ...) (t ...))))

  (unwind-protect (progn (use-local-map dest-map) (cond ... ...))
(use-local-map old-local-map)))

  (let ((old-local-map ...)) (unwind-protect (progn ... ...)
(use-local-map old-local-map))))

  vm-overlay-keymap((keymap (22 keymap [nil nil nil nil
vm-delete-message-backward nil nil nil nil vm-goto-message-last-seen
nil nil nil vm-goto-message nil nil nil nil nil nil nil nil nil nil
.. nil nil ... nil nil nil vm-undo vm-scroll-forward shell-command
undefined vm-expunge-folder undefined undefined undefined undefined
undefined undefined vm-burst-digest undefined undefined
negative-argument undefined undefined digit-argument digit-argument
digit-argument digit-argument digit-argument digit-argument
digit-argument digit-argument digit-argument digit-argument undefined
undefined vm-beginning-of-message vm-summarize vm-end-of-message
vm-help vm-send-digest vm-auto-archive-messages vm-resend-message
undefined undefined undefined vm-followup-include-text
vm-group-messages undefined undefined undefined undefined vm-load-rc
.. vm-Next-message undefined vm-Previous-message undefined
vm-reply-include-text vm-save-folder undefined vm-unread-message
vm-visit-virtual-folder ... undefined undefined undefined undefined
undefined undefined undefined undefined undefined undefined
vm-scroll-backward vm-continue-composing-message vm-delete-message
vm-edit-message vm-followup vm-get-new-mail vm-summarize undefined
vm-discard-cached-data vm-kill-subject undefined vm-mail
vm-next-message undefined vm-previous-message vm-quit vm-reply
vm-save-message vm-expose-hidden-headers vm-undelete-message
vm-visit-folder vm-save-message-sans-headers vm-quit-no-change
undefined vm-forward-message undefined vm-pipe-message-to-command
undefined undefined vm-scroll-backward]) (29 . vm-edit-message-abort)
(3 . vm-edit-message-end) (27 . vm-edit-message-end)) (keymap (22
keymap) (6 keymap)))

  (cond ((null src-b)) ((keymapp src-b) (setq dest-b ...) (if ... ...)
(vm-overlay-keymap src-b dest-b)) (t (define-key dest-map
.. src-b))))

  (while src-map (setq src-b (cdr ...)) (cond (...) (... ... ... ...)
(t ...)) (setq src-map (cdr src-map))))

  (let (src-b dest-b) (setq src-map (cdr src-map)) (while src-map
(setq src-b ...) (cond ... ... ...) (setq src-map ...))))

  (cond ((vectorp src-map) (let ... ...)) (t (let ... ... ...))))

  (progn (use-local-map dest-map) (cond (... ...) (t ...))))

  (unwind-protect (progn (use-local-map dest-map) (cond ... ...))
(use-local-map old-local-map)))

  (let ((old-local-map ...)) (unwind-protect (progn ... ...)
(use-local-map old-local-map))))

  vm-overlay-keymap((keymap (3 keymap (22 keymap [nil nil nil nil
vm-delete-message-backward nil nil nil nil vm-goto-message-last-seen
nil nil nil vm-goto-message nil nil nil nil nil nil nil nil nil nil
.. nil nil ... nil nil nil vm-undo vm-scroll-forward shell-command
undefined vm-expunge-folder undefined undefined undefined undefined
undefined undefined vm-burst-digest undefined undefined
negative-argument undefined undefined digit-argument digit-argument
digit-argument digit-argument digit-argument digit-argument
digit-argument digit-argument digit-argument digit-argument undefined
undefined vm-beginning-of-message vm-summarize vm-end-of-message
vm-help vm-send-digest vm-auto-archive-messages vm-resend-message
undefined undefined undefined vm-followup-include-text
vm-group-messages undefined undefined undefined undefined vm-load-rc
.. vm-Next-message undefined vm-Previous-message undefined
vm-reply-include-text vm-save-folder undefined vm-unread-message
vm-visit-virtual-folder ... undefined undefined undefined undefined
undefined undefined undefined undefined undefined undefined
vm-scroll-backward vm-continue-composing-message vm-delete-message
vm-edit-message vm-followup vm-get-new-mail vm-summarize undefined
vm-discard-cached-data vm-kill-subject undefined vm-mail
vm-next-message undefined vm-previous-message vm-quit vm-reply
vm-save-message vm-expose-hidden-headers vm-undelete-message
vm-visit-folder vm-save-message-sans-headers vm-quit-no-change
undefined vm-forward-message undefined vm-pipe-message-to-command
undefined undefined vm-scroll-backward]) (29 . vm-edit-message-abort)
(3 . vm-edit-message-end) (27 . vm-edit-message-end))) (keymap (3
keymap (22 keymap) (6 keymap)) (27 keymap (83 . center-paragraph) (115
. center-line)) (9 . tab-to-tab-stop)))

  (progn (vm-save-restriction (widen) (setq edit-buf ...)
(vm-set-edit-buffer-of ... edit-buf) (copy-to-buffer edit-buf
.. ...)) (if (get-buffer-window edit-buf) (select-window ...)
(switch-to-buffer edit-buf)) (set-buffer-modified-p nil) (goto-char
(point-min)) (search-forward "\n\n" (point-max) t) (funcall (or
vm-edit-message-mode ...)) (setq vm-message-pointer mp vm-mail-buffer
folder-buffer) (use-local-map (copy-keymap ...)) (vm-overlay-keymap
vm-edit-message-mode-map (current-local-map)) (message "Type C-c ESC
to end edit, C-c C-] to abort with no change.")))

  (if (not (and edit-buf ...)) (progn (vm-save-restriction
.. ... ... ...) (if ... ... ...) (set-buffer-modified-p nil)
(goto-char ...) (search-forward "\n\n" ... t) (funcall ...) (setq
vm-message-pointer mp vm-mail-buffer folder-buffer) (use-local-map
..) (vm-overlay-keymap vm-edit-message-mode-map ...) (message "Type
C-c ESC to end edit, C-c C-] to abort with no change."))
(switch-to-buffer edit-buf)))

  (let ((mp vm-message-pointer) (edit-buf ...) (folder-buffer ...)
(inhibit-quit t)) (if (not ...) (progn
.. ... ... ... ... ... ... ... ... ...) (switch-to-buffer
edit-buf))))

  (if prefix-argument (if (vm-edited-flag ...) (progn
.. ... ... ... ...) (message "Message has not been edited.")) (let
(... ... ... ...) (if ... ... ...))))

  vm-edit-message(nil)

  call-interactively(vm-edit-message)

Chris.
--
Chris.Moore@src.bae.co.uk /      Chris Moore      \ If something's hard to do,
                         / Sowerby Research Centre \     it's not worth doing.
                         \  British Aerospace PLC  /
tel: +44 272 363375       \      BRISTOL, UK      /          -- Homer Simpson.