(defun mime-activate-mailcap-method (entity situation)
(let ((method (cdr (assoc 'method situation)))
(name (mime-entity-safe-filename entity)))
(defun mime-activate-mailcap-method (entity situation)
(let ((method (cdr (assoc 'method situation)))
(name (mime-entity-safe-filename entity)))
#'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)