(mime-preview/decode-text-buffer): New implementation.

diff --git a/mime-text.el b/mime-text.el
index 7a33855..c0dcfd2 100644 (file)
--- a/mime-text.el
+++ b/mime-text.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;     $Id: mime-text.el,v 0.12 1997-03-15 20:19:23 morioka Exp $
+;;     $Id: mime-text.el,v 0.13 1997-03-15 20:54:28 morioka Exp $
 ;; Keywords: text, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -47,14 +47,12 @@
 
 (defun mime-preview/decode-text-buffer (charset encoding)
   (mime-decode-region (point-min) (point-max) encoding)
-  (let* ((mode mime::preview/original-major-mode)
-        (m (or (save-excursion
-                 (set-buffer mime::preview/article-buffer)
-                 mime::article/code-converter)
-               (cdr (or (assq mode mime-text-decoder-alist)
-                        (assq t mime-text-decoder-alist)))
-               ))
-        )
+  (let ((m (save-excursion
+            (set-buffer mime::preview/article-buffer)
+            (or mime::article/code-converter
+                (cdr (or (assq major-mode mime-text-decoder-alist)
+                         (assq t mime-text-decoder-alist)))
+                ))))
     (and (functionp m)
         (funcall m charset encoding)
         )))