From: morioka <morioka>
Date: Tue, 18 Mar 1997 12:46:59 +0000 (+0000)
Subject: `mime-partial/preview-article-method-alist' ->
X-Git-Tag: Hokutetsu-Ishikawa-new~55
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6f29c84fe95dc915881293167ddc52e3dda101f3;p=elisp%2Fsemi.git

`mime-partial/preview-article-method-alist' ->
`mime-view-partial-message-method-alist'.
---

diff --git a/mime-partial.el b/mime-partial.el
index f1c5220..8e6250b 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -5,7 +5,7 @@
 ;; Author: OKABE Yasuo @ Kyoto University
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;	$Id: mime-partial.el,v 0.4 1997-03-15 20:29:25 morioka Exp $ 
+;;	$Id: mime-partial.el,v 0.5 1997-03-18 12:46:59 morioka Exp $ 
 ;; Keywords: message/partial, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -30,12 +30,13 @@
 (require 'mime-view)
 (require 'mime-play)
 
-(defvar mime-partial/preview-article-method-alist nil)
-   
+(defvar mime-view-partial-message-method-alist nil
+  "Alist major-mode vs. function to view partial message for mime-partial.")
+
 ;; display Article at the cursor in Subject buffer.
-(defun mime-partial/preview-article (target)
+(defsubst mime-partial/preview-article (target)
   (save-window-excursion
-    (let ((f (assq target mime-partial/preview-article-method-alist)))
+    (let ((f (assq target mime-view-partial-message-method-alist)))
       (if f
 	  (funcall (cdr f))
 	(error "Fatal. Unsupported mode")