🚀 go-pugleaf

In message <3FAA9EFB.90504@yahoo.com> I wrote:
 > Of the 9 `$ KEY' sequences bound in vm-mime-reader-map to vm-mime-*
 > commands, only 2 have doc strings and only 6 are listed under "$ -
 > prefix for MIME commands" in the doc string for vm-presentation-mode.
 >
 > I think all 9 vm-mime-* commands (plus vm-mime-run-display-function-
 > at-point, bound to `RET') should have doc strings and be listed in a
 > sensible order by `C-h m' (just like by <mouse-3>).  Here's a patch:

Here's an additional patch to add the one command missing from the
<mouse-3> popup menu (it also changes a few menu items to match the
underlying VM commands more closely):


*** vm-7.18/vm-menu.el.orig	Tue May 27 21:18:32 2003
--- vm-7.18/vm-menu.el	Thu May  6 10:47:19 2004
***************
*** 376,382 ****
   			 "---")
   		 (list "Take Action on MIME body ..."))))
       `(,@title
!       ["Display as Text using Default Face"
          (vm-mime-run-display-function-at-point
   	'vm-mime-display-body-as-text) t]
         ["Display using External Viewer"
--- 376,382 ----
   			 "---")
   		 (list "Take Action on MIME body ..."))))
       `(,@title
!       ["Display as Text (in default face)"
          (vm-mime-run-display-function-at-point
   	'vm-mime-display-body-as-text) t]
         ["Display using External Viewer"
***************
*** 410,422 ****
   		 
	    (car (vm-mm-layout-type layout))))))]
         ["Send to Printer" (vm-mime-run-display-function-at-point
   			  'vm-mime-send-body-to-printer) t]
!       ["Feed to Shell Pipeline (display output)"
          (vm-mime-run-display-function-at-point
   	'vm-mime-pipe-body-to-queried-command) t]
!       ["Feed to Shell Pipeline (discard output)"
          (vm-mime-run-display-function-at-point
   	'vm-mime-pipe-body-to-queried-command-discard-output) t]
!       ["Delete object" vm-delete-mime-object t])))

   (defvar vm-menu-url-browser-menu
     (let ((title (if (vm-menu-fsfemacs19-menus-p)
--- 410,424 ----
   		 
	    (car (vm-mm-layout-type layout))))))]
         ["Send to Printer" (vm-mime-run-display-function-at-point
   			  'vm-mime-send-body-to-printer) t]
!       ["Pipe to Shell Command (display output)"
          (vm-mime-run-display-function-at-point
   	'vm-mime-pipe-body-to-queried-command) t]
!       ["Pipe to Shell Command (discard output)"
          (vm-mime-run-display-function-at-point
   	'vm-mime-pipe-body-to-queried-command-discard-output) t]
!       ["Attach to Message Composition Buffer"
!        vm-mime-attach-object-from-message t]
!       ["Delete" vm-delete-mime-object t])))

   (defvar vm-menu-url-browser-menu
     (let ((title (if (vm-menu-fsfemacs19-menus-p)

-- 
Kevin Rodgers