🚀 go-pugleaf

blueman wrote:
> Brief testing show it works -- indeed piping all messages in a folder to
> an external file matches exactly the original file -- which is what I
> think we want...

It didn't work for me.  I needed to make at least the following fixes.

Running it on cat (on Windows Cygwin) still hangs for me.  I think it 
has something to do with the asynchronous handler.  But I will punt 
that issue for now.

Cheers,
Uday


--- vm-save.el.blueman	2010-01-06 14:21:26.000000000 +0000
+++ vm-save.el	2010-01-06 15:31:42.000000000 +0000
@@ -642,20 +642,21 @@
  	   current-prefix-arg)))
    (vm-pipe-message-to-command command prefix-arg t))

-(defun vm-pipe-command-exit-handler (process discard-output
+(defun vm-pipe-command-exit-handler (process command discard-output
  					     &optional exit-handler)
-  "Switch to output buffer of PROCESS if DISCARD-OUTPUT non-nil.
+"Switch to output buffer of PROCESS that ran COMMAND, if
+DISCARD-OUTPUT non-nil.
  If non-nil call EXIT-HANDLER with the two arguments COMMAND and 
OUTPUT-BUFFER."
    (let ((exit-code (process-exit-status process))
  	(buffer (process-buffer process))
-	(command (process-command process)))
+	(process-command (process-command process)))
    (if (not (zerop exit-code))
        (message "Command '%s' exit code is %d." command exit-code))
    (vm-display nil nil '(vm-pipe-message-to-command)
  	      '(vm-pipe-message-to-command))
    (vm-switch-to-command-output-buffer command buffer discard-output)
    (if exit-handler
-      (funcall exit-handler command buffer))))
+      (funcall exit-handler process-command buffer))))

  (defvar vm-pipe-messages-to-command-start ""
    "*The leading message separator to be used by












> 
> Just one minor syntax error - I left off the final closing paren from
> the following:
> 
> ;;Start message separator
> (defsubst vm-start-separator-of (message)
>   (list (vm-start-of message)
> 		(vm-headers-of message)))