From: morioka <morioka>
Date: Thu, 19 Jun 1997 03:27:23 +0000 (+0000)
Subject: `mime-article/decode-' -> `mime-display-'.
X-Git-Tag: semi-0_92~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4513dba24d23b5ec3a7c3c15fe43b6b3adda00a8;p=elisp%2Fsemi.git

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

diff --git a/mime-partial.el b/mime-partial.el
index a6736ea..8fd9fe9 100644
--- 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
--- 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
--- 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")
      )