;; 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).
)
(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)
))
))))
-(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"))
(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
(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)))