;; Author: OKABE Yasuo @ Kyoto University
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Version:
-;; $Id: mime-partial.el,v 0.5 1997-03-18 12:46:59 morioka Exp $
+;; $Id: mime-partial.el,v 0.6 1997-03-18 12:52:39 morioka Exp $
;; Keywords: message/partial, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
"Alist major-mode vs. function to view partial message for mime-partial.")
;; display Article at the cursor in Subject buffer.
-(defsubst mime-partial/preview-article (target)
+(defsubst mime-view-partial-message (target)
(save-window-excursion
(let ((f (assq target mime-view-partial-message-method-alist)))
(if f
(while (search-backward subject-id nil t))
(catch 'tag
(while t
- (mime-partial/preview-article target)
+ (mime-view-partial-message target)
(set-buffer article-buffer)
(set-buffer mime::article/preview-buffer)
(setq cinfo