`mime-extract-entity' -> `mime-view-extract-current-entity'.

diff --git a/mime-view.el b/mime-view.el
index 997d64f..f43c9a5 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;     Renamed: 1994/8/31 from tm-body.el
 ;;     Renamed: 1997/02/19 from tm-view.el
 ;; Created: 1994/7/13
 ;;     Renamed: 1994/8/31 from tm-body.el
 ;;     Renamed: 1997/02/19 from tm-view.el

-;; Version: $Revision: 0.35 $
+;; Version: $Revision: 0.36 $

 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).

@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
 ;;;
 
 (defconst mime-view-RCS-ID

-  "$Id: mime-view.el,v 0.35 1997-03-17 12:08:26 morioka Exp $")
+  "$Id: mime-view.el,v 0.36 1997-03-17 12:10:31 morioka Exp $")

 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 

@@ -716,7 +716,7 @@ The compressed face will be piped to this command.")
     (scroll-down "Scroll to previous content" mime-view-scroll-down-content)
     (scroll-up  "Scroll to next content"     mime-view-scroll-up-content)
     (play       "Play Content"               mime-view-play-current-entity)
     (scroll-down "Scroll to previous content" mime-view-scroll-down-content)
     (scroll-up  "Scroll to next content"     mime-view-scroll-up-content)
     (play       "Play Content"               mime-view-play-current-entity)

-    (extract    "Extract Content"            mime-extract-entity)
+    (extract    "Extract Content"            mime-view-extract-current-entity)

     (print      "Print"                      mime-print-entity)
     (x-face     "Show X Face"                mime-view-display-x-face)
     )
     (print      "Print"                      mime-print-entity)
     (x-face     "Show X Face"                mime-view-display-x-face)
     )

@@ -770,7 +770,7 @@ The compressed face will be piped to this command.")
     (define-key mime-view-mode-map
       "v"        (function mime-view-play-current-entity))
     (define-key mime-view-mode-map
     (define-key mime-view-mode-map
       "v"        (function mime-view-play-current-entity))
     (define-key mime-view-mode-map

-      "e"        (function mime-extract-entity))
+      "e"        (function mime-view-extract-current-entity))

     (define-key mime-view-mode-map
       "\C-c\C-p" (function mime-print-entity))
     (define-key mime-view-mode-map
     (define-key mime-view-mode-map
       "\C-c\C-p" (function mime-print-entity))
     (define-key mime-view-mode-map

@@ -897,7 +897,7 @@ button-2    Move to point under the mouse cursor
 
 (autoload 'mime-view-play-current-entity "mime-play" "Play current entity." t)
 
 
 (autoload 'mime-view-play-current-entity "mime-play" "Play current entity." t)
 

-(defun mime-extract-entity ()
+(defun mime-view-extract-current-entity ()

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