From: morioka <morioka>
Date: Fri, 26 Jun 1998 07:50:14 +0000 (+0000)
Subject: (mime-view-mode): New implementation.
X-Git-Tag: remi-1_8_0~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=43642e4b4d035fdbec3e3eb5ab879257228ae159;p=elisp%2Fsemi.git

(mime-view-mode): New implementation.
---

diff --git a/mime-view.el b/mime-view.el
index d7168d0..1e0fe3f 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -950,13 +950,17 @@ button-2	Move to point under the mouse cursor
         	and decode current content as `play mode'
 "
   (interactive)
-  (mime-display-message
-   (save-excursion
-     (if raw-buffer (set-buffer raw-buffer))
-     (or mime-view-redisplay
-	 (setq mime-message-structure (mime-parse-message ctl encoding)))
-     )
-   preview-buffer mother default-keymap-or-function))
+  (let ((message
+	 (save-excursion
+	   (if raw-buffer (set-buffer raw-buffer))
+	   (or mime-view-redisplay
+	       (setq mime-message-structure (mime-parse-message ctl)))
+	   )))
+    (or (mime-entity-encoding message)
+	(mime-entity-set-encoding-internal message encoding))
+    (mime-display-message message preview-buffer
+			  mother default-keymap-or-function)
+    ))
 
 
 ;;; @@ playing