From: morioka <morioka>
Date: Wed, 8 Jul 1998 09:07:19 +0000 (+0000)
Subject: (mime-preview-extract-current-entity): Change interface to add
X-Git-Tag: remi-1_8_3~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bec78ac4768fe73ccf12ebc199d728619b306a52;p=elisp%2Fsemi.git

(mime-preview-extract-current-entity): Change interface to add
`ignore-examples'.
(mime-preview-print-current-entity): Likewise.
---

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")
   )