`mime-article/decode-' -> `mime-display-'.

diff --git a/mime-partial.el b/mime-partial.el
index a6736ea..8fd9fe9 100644 (file)
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -4,8 +4,7 @@
 
 ;; Author: OKABE Yasuo @ Kyoto University
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version:
-;;     $Id: mime-partial.el,v 0.8 1997-03-18 13:56:18 morioka Exp $ 
+;; Version: $Id: mime-partial.el,v 0.9 1997-06-19 03:27:21 morioka Exp $ 
 ;; Keywords: message/partial, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -67,7 +66,7 @@ partial messages using mime-view."
     (if (or (file-exists-p full-file)
            (not (y-or-n-p "Merge partials?"))
            )
-       (mime-article/decode-message/partial beg end cal)
+       (mime-display-message/partial beg end cal)
       (let (the-id parameters)
        (setq subject-id (std11-field-body "Subject"))
        (if (string-match "[0-9\n]+" subject-id)
@@ -85,7 +84,7 @@ partial messages using mime-view."
              (setq the-id (cdr (assoc "id" parameters)))
              (if (string= the-id id)
                  (progn
-                   (mime-article/decode-message/partial
+                   (mime-display-message/partial
                     (point-min)(point-max) parameters)
                    (if (file-exists-p full-file)
                        (throw 'tag nil)

diff --git a/mime-play.el b/mime-play.el
index 549d015..0191d1a 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -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)))

diff --git a/mime-view.el b/mime-view.el
index 6c584fa..dea4d05 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
-;; Version: $Revision: 0.91 $
+;; Version: $Revision: 0.92 $
 ;; 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.91 1997-05-28 13:16:15 morioka Exp $")
+  "$Id: mime-view.el,v 0.92 1997-06-19 03:27:23 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -123,14 +123,14 @@
     ;;         'file '"access-type" '"name" '"site" '"directory"))
     ((type . "message/external-body")
      ("access-type" . "anon-ftp")
-     (method . mime-article/decode-message/external-ftp)
+     (method . mime-display-message/external-ftp)
      )
     ((type . "message/rfc822")
      (method . mime-article/view-message/rfc822)
      (mode . "play")
      )
     ((type . "message/partial")
-     (method . mime-article/decode-message/partial)
+     (method . mime-display-message/partial)
      (mode . "play")
      )