;; 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.2 1997-02-24 10:00:50 tmorioka Exp $
-;; Keywords: mail, news, MIME, multimedia
+;; Version: $Id: mime-play.el,v 0.10 1997-02-28 05:14:54 tmorioka Exp $
+;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;; Code:
(require 'mime-view)
-(require 'tl-atype)
+(require 'alist)
;;; @ content decoder
)
))
-(defun field-unifier-for-mode (a b)
- (let ((va (cdr a)))
- (if (if (consp va)
- (member (cdr b) va)
- (equal va (cdr b))
- )
- (list nil b nil)
- )))
+
+;;; @ method selector
+;;;
(defun mime/get-content-decoding-alist (al)
(get-unified-alist mime/content-decoding-condition al)
)
(setq major-mode 'mime/show-message-mode)
(setq mime::article/code-converter code-converter)
- (mime/viewer-mode mother)
+ (mime-view-mode mother)
))
;;;
(defvar mime-article/coding-system-alist
- (list (cons 'mh-show-mode *noconv*)
+ (list '(mh-show-mode . no-conversion)
(cons t (mime-charset-to-coding-system default-mime-charset))
))
-(cond (running-mule-merged-emacs
- (defun mime-article::write-region (start end file)
- (let ((coding-system-for-write
- (cdr
- (or (assq major-mode mime-article/coding-system-alist)
- (assq t mime-article/coding-system-alist)
- ))))
- (write-region start end file)
- ))
- )
- ((or (boundp 'MULE)
- running-xemacs-with-mule)
- (defun mime-article::write-region (start end file)
- (let ((file-coding-system
- (cdr
- (or (assq major-mode mime-article/coding-system-alist)
- (assq t mime-article/coding-system-alist)
- ))))
- (write-region start end file)
- ))
- )
- ((boundp 'NEMACS)
- (defun mime-article::write-region (start end file)
- (let ((kanji-fileio-code
- (cdr
- (or (assq major-mode mime-article/kanji-code-alist)
- (assq t mime-article/kanji-code-alist)
- ))))
- (write-region start end file)
- ))
- )
- (t
- (defalias 'mime-article::write-region 'write-region)
- ))
+(defun mime-article::write-region (start end file)
+ (let ((coding-system-for-write
+ (cdr
+ (or (assq major-mode mime-article/coding-system-alist)
+ (assq t mime-article/coding-system-alist)
+ ))))
+ (write-region start end file)
+ ))
(defun mime-article/decode-message/partial (beg end cal)
(goto-char beg)
(erase-buffer)
(as-binary-input-file (insert-file-contents file))
(setq major-mode 'mime/show-message-mode)
- (mime/viewer-mode mother)
+ (mime-view-mode mother)
)
(set-window-buffer pwin
(save-excursion
))
(save-window-excursion
(setq major-mode 'mime/show-message-mode)
- (mime/viewer-mode mother)
+ (mime-view-mode mother)
)
(let ((pwin (or (get-buffer-window mother)
(get-largest-window)