(mime-preview/decode-content, mime-article/decode-content): Add new

optional argument `mode'.

diff --git a/mime-play.el b/mime-play.el
index 504ecdb..9514217 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; 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.18 1997-03-16 00:22:03 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.19 1997-03-17 04:41:21 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -37,7 +37,7 @@
 
 (defvar mime-preview/after-decoded-position nil)
 
-(defun mime-preview/decode-content ()
+(defun mime-preview/decode-content (&optional mode)
   (interactive)
   (let ((pc (mime-preview/point-pcinfo (point))))
     (if pc
@@ -45,7 +45,7 @@
          (setq mime-preview/after-decoded-position (point))
          (set-buffer (mime::preview-content-info/buffer pc))
          (mime-article/decode-content
-          (mime::preview-content-info/content-info pc))
+          (mime::preview-content-info/content-info pc) mode)
          (if (eq (current-buffer)
                  (mime::preview-content-info/buffer pc))
              (progn
@@ -54,7 +54,10 @@
                ))
          ))))
 
-(defun mime-article/decode-content (cinfo)
+(defun mime-article/decode-content (cinfo &optional mode)
+  (or mode
+      (setq mode mime-view-decoding-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"))
@@ -73,10 +76,8 @@
                       (cons 'encoding encoding)
                       (cons 'major-mode major-mode)
                       params))
-      (if mime-view-decoding-mode
-         (setq cal (cons
-                    (cons 'mode mime-view-decoding-mode)
-                    cal))
+      (if mode
+         (setq cal (cons (cons 'mode mode) cal))
        )
       (setq ret (mime/get-content-decoding-alist cal))
       (setq method (cdr (assq 'method ret)))