🚀 go-pugleaf

here is some vm code to make z/Z work the way r/R and f/F do.
improvements are welcome.  nomenclature should be as with the other
commands.  let me know if anything is missing in it.

(define-key vm-mode-map "z" 'my-vm-forward-message-no-include-text) ;redef
(define-key vm-mode-map "Z" 'vm-forward-message) ;was on z

(setq my-vm-pseudoforwarding-subject-format "(pseudoforward: %s)")

(defun my-vm-forward-message-no-include-text ()
  "Send mail, setting the subject using my-vm-pseudoforwarding-subject-format."
  (interactive)
  (vm-follow-summary-cursor)
  (vm-mail-internal
   (format "pseudoforward of %s:%s" (buffer-name)
	   (vm-number-of (car vm-message-pointer)))
   nil
   (and my-vm-pseudoforwarding-subject-format
	(vm-sprintf 'my-vm-pseudoforwarding-subject-format
		    (car vm-message-pointer)))))