Function: mm-inline-wash-with-file

mm-inline-wash-with-file is a byte-compiled function defined in mm-view.el.gz.

This function is obsolete since 28.1.

Signature

(mm-inline-wash-with-file POST-FUNC CMD &rest ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-view.el.gz
(defun mm-inline-wash-with-file (post-func cmd &rest args)
  (declare (obsolete nil "28.1"))
  (with-suppressed-warnings ((lexical file))
    (dlet ((file (make-temp-file
                  (expand-file-name "mm" mm-tmp-directory))))
      (let ((coding-system-for-write 'binary))
        (write-region (point-min) (point-max) file nil 'silent))
      (delete-region (point-min) (point-max))
      (unwind-protect
	  (apply #'call-process cmd nil t nil
                 (mapcar (lambda (e) (eval e t)) args))
        (delete-file file))
      (and post-func (funcall post-func)))))