From 43642e4b4d035fdbec3e3eb5ab879257228ae159 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 26 Jun 1998 07:50:14 +0000 Subject: [PATCH] (mime-view-mode): New implementation. --- mime-view.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) 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 -- 1.7.10.4