From 31e1ccc463ab624932b04770e40fd9dd4254675b Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 15:23:49 +0000 Subject: [PATCH 1/1] Rename `mime-view-play-current-entity' -> `mime-preview-play-current-entity'. --- mime-def.el | 2 +- mime-play.el | 2 +- mime-view.el | 15 ++++++++------- 3 files changed, 10 insertions(+), 9 deletions(-) diff --git a/mime-def.el b/mime-def.el index de1166b..3d02453 100644 --- a/mime-def.el +++ b/mime-def.el @@ -125,7 +125,7 @@ ;; (widget-push-button-value-create ;; (widget-convert 'push-button ;; :notify (lambda (&rest ignore) - ;; (mime-view-play-current-entity) + ;; (mime-preview-play-current-entity) ;; ) ;; string)) (insert "\n") diff --git a/mime-play.el b/mime-play.el index 30cdfbf..837cb51 100644 --- a/mime-play.el +++ b/mime-play.el @@ -36,7 +36,7 @@ (defvar mime-preview-after-decoded-position nil) -(defun mime-view-play-current-entity (&optional mode) +(defun mime-preview-play-current-entity (&optional mode) "Play current entity. It decodes current entity to call internal or external method. The method is selected from variable `mime-acting-condition'. diff --git a/mime-view.el b/mime-view.el index afb08d3..a47a2ea 100644 --- a/mime-view.el +++ b/mime-view.el @@ -205,7 +205,7 @@ Each elements are regexp of field-name.") "\n\t") rest))) ))) - (function mime-view-play-current-entity)) + (function mime-preview-play-current-entity)) ) (defun mime-view-entity-button-function (rcnum cinfo @@ -543,7 +543,7 @@ The compressed face will be piped to this command.") (narrow-to-region (point-max)(point-max)) (insert mime-view-announcement-for-message/partial) (mime-add-button (point-min)(point-max) - (function mime-view-play-current-entity)) + (function mime-preview-play-current-entity)) )) (defun mime-article/get-uu-filename (param &optional encoding) @@ -670,7 +670,7 @@ The compressed face will be piped to this command.") (next "Move to next content" mime-preview-move-to-next) (scroll-down "Scroll to previous content" mime-preview-scroll-down-entity) (scroll-up "Scroll to next content" mime-preview-scroll-up-entity) - (play "Play Content" mime-view-play-current-entity) + (play "Play Content" mime-preview-play-current-entity) (extract "Extract Content" mime-view-extract-current-entity) (print "Print" mime-view-print-current-entity) (x-face "Show X Face" mime-view-display-x-face) @@ -723,7 +723,7 @@ The compressed face will be piped to this command.") (define-key mime-view-mode-map "\C-\M-m" (function mime-preview-previous-line-entity)) (define-key mime-view-mode-map - "v" (function mime-view-play-current-entity)) + "v" (function mime-preview-play-current-entity)) (define-key mime-view-mode-map "e" (function mime-view-extract-current-entity)) (define-key mime-view-mode-map @@ -847,7 +847,8 @@ button-2 Move to point under the mouse cursor ;;; @@ playing ;;; -(autoload 'mime-view-play-current-entity "mime-play" "Play current entity." t) +(autoload 'mime-preview-play-current-entity "mime-play" + "Play current entity." t) (defun mime-view-extract-current-entity () "Extract current entity into file (maybe). @@ -855,7 +856,7 @@ It decodes current entity to call internal or external method as \"extract\" mode. The method is selected from variable `mime-acting-condition'." (interactive) - (mime-view-play-current-entity "extract") + (mime-preview-play-current-entity "extract") ) (defun mime-view-print-current-entity () @@ -864,7 +865,7 @@ It decodes current entity to call internal or external method as \"print\" mode. The method is selected from variable `mime-acting-condition'." (interactive) - (mime-view-play-current-entity "print") + (mime-preview-play-current-entity "print") ) -- 1.7.10.4