mh-shell.ml

早期freebsd实现

; These functions are used to run shell commands and check for errors.
; this file is loaded from mh-e with an explicit load command.
(defun
    (send-to-shell pname progress
	(save-excursion
	    (temp-use-buffer "mh-temp") (erase-buffer)
	    (insert-string (arg 1))
	    (beginning-of-file) (setq progress -1)
	    (while (& (! (eobp)) (< progress 50))
		   (beginning-of-line)
		   (setq progress (+ progress 1))
		   (if (! (eolp))
		       (progn 
			      (set-mark) (end-of-line)
			      (setq pname (region-to-string))
			      (delete-to-killbuffer)
			      (fast-filter-region pname)
		       )
		   )
		   (next-line)
	    )
	)
    )
    
    (show-shell-errors
	(save-excursion 
	    (temp-use-buffer "mh-temp")
	    (if (!= (buffer-size) 0)
		(progn
		      (pop-to-buffer "mh-temp")
		      (sit-for 0)
		      (beginning-of-file) (set-mark)
		      (error-occured (re-replace-string "\n\n* *" "; "))
		      (end-of-line)
		      (backward-character) (backward-character)
		      (kill-to-end-of-line)
		      (send-string-to-terminal "\")
		      (message (region-to-string))
		      (send-string-to-terminal "\")
		      (sit-for 15)
		)
	    )
	)
    )
)