From d4945e444d1530948087bdff87859767d3b4331d Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 17 Mar 1997 05:09:05 +0000 Subject: [PATCH] Use `mime-play-entity' instead of `mime-view-play-content'. --- mime-view.el | 23 +++++++++-------------- 1 file changed, 9 insertions(+), 14 deletions(-) diff --git a/mime-view.el b/mime-view.el index ba98943..3407ebe 100644 --- 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 -;; Version: $Revision: 0.29 $ +;; Version: $Revision: 0.30 $ ;; 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 - "$Id: mime-view.el,v 0.29 1997-03-17 05:06:33 morioka Exp $") + "$Id: mime-view.el,v 0.30 1997-03-17 05:09:05 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -276,7 +276,7 @@ Each elements are regexp of field-name. [mime-view.el]") (insert rest) )))) (mime-add-button (point-min)(1- (point-max)) - (function mime-view-play-content)) + (function mime-play-entity)) )) (defun mime-preview/default-content-button-function @@ -591,7 +591,7 @@ The compressed face will be piped to this command.") (narrow-to-region be be) (insert mime-view-announcement-for-message/partial) (mime-add-button (point-min)(point-max) - (function mime-view-play-content)) + (function mime-play-entity)) ))) (defun mime-article/get-uu-filename (param &optional encoding) @@ -715,7 +715,7 @@ The compressed face will be piped to this command.") (next "Move to next content" mime-view-next-content) (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-content) + (play "Play Content" mime-play-entity) (extract "Extract Content" mime-view-extract-content) (print "Print" mime-view-print-content) (x-face "Show X Face" mime-view-display-x-face) @@ -768,7 +768,7 @@ The compressed face will be piped to this command.") (define-key mime-view-mode-map "\C-\M-m" (function mime-view-previous-line-content)) (define-key mime-view-mode-map - "v" (function mime-view-play-content)) + "v" (function mime-play-entity)) (define-key mime-view-mode-map "e" (function mime-view-extract-content)) (define-key mime-view-mode-map @@ -895,23 +895,18 @@ button-2 Move to point under the mouse cursor (setq rpcl (cdr rpcl)) )))) -(autoload 'mime-play-content "mime-play") +(autoload 'mime-play-entity "mime-play") (defvar mime-view-decoding-mode "play" "MIME body decoding mode") -(defun mime-view-play-content () - (interactive) - (mime-play-content "play") - ) - (defun mime-view-extract-content () (interactive) - (mime-play-content "extract") + (mime-play-entity "extract") ) (defun mime-view-print-content () (interactive) - (mime-play-content "print") + (mime-play-entity "print") ) (defun mime-view-follow-content () -- 1.7.10.4