(start-process command mime-echo-buffer-name
shell-file-name shell-command-switch command))))
(set-alist 'mime-mailcap-method-filename-alist process name)
(start-process command mime-echo-buffer-name
shell-file-name shell-command-switch command))))
(set-alist 'mime-mailcap-method-filename-alist process name)
(defun mime-mailcap-method-sentinel (process event)
(when mime-play-delete-file-immediately
(let ((file (cdr (assq process mime-mailcap-method-filename-alist))))
(defun mime-mailcap-method-sentinel (process event)
(when mime-play-delete-file-immediately
(let ((file (cdr (assq process mime-mailcap-method-filename-alist))))
(defun mime-mailcap-delete-played-files ()
(dolist (elem mime-mailcap-method-filename-alist)
(when (file-exists-p (cdr elem))
(defun mime-mailcap-delete-played-files ()
(dolist (elem mime-mailcap-method-filename-alist)
(when (file-exists-p (cdr elem))