From bec78ac4768fe73ccf12ebc199d728619b306a52 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 8 Jul 1998 09:07:19 +0000 Subject: [PATCH] (mime-preview-extract-current-entity): Change interface to add `ignore-examples'. (mime-preview-print-current-entity): Likewise. --- mime-view.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/mime-view.el b/mime-view.el index 7e5ab15..93145fb 100644 --- a/mime-view.el +++ b/mime-view.el @@ -980,22 +980,22 @@ button-2 Move to point under the mouse cursor (autoload 'mime-preview-play-current-entity "mime-play" "Play current entity." t) -(defun mime-preview-extract-current-entity () +(defun mime-preview-extract-current-entity (&optional ignore-examples) "Extract current entity into file (maybe). It decodes current entity to call internal or external method as \"extract\" mode. The method is selected from variable `mime-acting-condition'." - (interactive) - (mime-preview-play-current-entity "extract") + (interactive "P") + (mime-preview-play-current-entity ignore-examples "extract") ) -(defun mime-preview-print-current-entity () +(defun mime-preview-print-current-entity (&optional ignore-examples) "Print current entity (maybe). It decodes current entity to call internal or external method as \"print\" mode. The method is selected from variable `mime-acting-condition'." - (interactive) - (mime-preview-play-current-entity "print") + (interactive "P") + (mime-preview-play-current-entity ignore-examples "print") ) -- 1.7.10.4