`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 (file)
--- 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")