From: morioka <morioka>
Date: Sat, 15 Mar 1997 20:54:28 +0000 (+0000)
Subject: (mime-preview/decode-text-buffer): New implementation.
X-Git-Tag: Hokutetsu-Ishikawa-new~130
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3173469566a273de47428a2ab702417fb10b2e32;p=elisp%2Fsemi.git

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

diff --git a/mime-text.el b/mime-text.el
index 7a33855..c0dcfd2 100644
--- 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)
 	 )))