`mime-article/decode-' -> `mime-display-'.
[elisp/semi.git] / mime-play.el
index 549d015..0191d1a 100644 (file)
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;     Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.44 1997-06-19 03:17:11 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.45 1997-06-19 03:27:22 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -53,7 +53,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
              )
          (setq mime-preview/after-decoded-position (point))
          (set-buffer raw-buffer)
-         (mime-article/decode-content cinfo mode)
+         (mime-display-content cinfo mode)
          (if (eq (current-buffer) raw-buffer)
              (progn
                (set-buffer the-buf)
@@ -61,7 +61,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
                ))
          ))))
 
-(defun mime-article/decode-content (cinfo &optional mode)
+(defun mime-display-content (cinfo &optional mode)
   (let ((beg (mime::content-info/point-min cinfo))
        (end (mime::content-info/point-max cinfo))
        (ctype (or (mime::content-info/type cinfo) "text/plain"))
@@ -303,7 +303,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
     (write-region start end file)
     ))
 
-(defun mime-article/decode-message/partial (beg end cal)
+(defun mime-display-message/partial (beg end cal)
   (goto-char beg)
   (let* ((root-dir
          (expand-file-name
@@ -433,7 +433,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
     (dired dir)
     ))
 
-(defun mime-article/decode-message/external-ftp (beg end cal)
+(defun mime-display-message/external-ftp (beg end cal)
   (let* ((site (cdr (assoc "site" cal)))
         (directory (cdr (assoc "directory" cal)))
         (name (cdr (assoc "name" cal)))