Header was modified.

[elisp/semi.git] / mime-play.el

diff --git a/mime-play.el b/mime-play.el
index a63ce9a..698b2bb 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,8 +5,8 @@
 ;; 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.1 1997-02-21 05:28:56 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).
 
@@ -28,6 +28,7 @@
 ;;; Code:
 
 (require 'mime-view)
+(require 'alist)
 
   
 ;;; @ content decoder
@@ -92,14 +93,9 @@
       )
     ))
 
-(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)
@@ -262,7 +258,7 @@
       )
     (setq major-mode 'mime/show-message-mode)
     (setq mime::article/code-converter code-converter)
-    (mime/viewer-mode mother)
+    (mime-view-mode mother)
     ))
 
 
@@ -270,44 +266,18 @@
 ;;;
 
 (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)
@@ -338,7 +308,7 @@
            (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
@@ -408,7 +378,7 @@
                       ))
                (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)