From: hmurata <hmurata>
Date: Thu, 16 Aug 2001 12:32:06 +0000 (+0000)
Subject: * elmo-mime.el (elmo-mime-display-as-is-internal): Put text
X-Git-Tag: wl-2_7_3~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=54c38af2bef83f8019a6d934651b80e1372a5222;p=elisp%2Fwanderlust.git

* elmo-mime.el (elmo-mime-display-as-is-internal): Put text
property 'mime-preview-situation for `mime-preview-quit'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4d79765..341192f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-mime.el (elmo-mime-display-as-is-internal): Put text
+	property 'mime-preview-situation for `mime-preview-quit'.
+
 2001-08-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo.el (elmo-message-fetch-with-cache-process): Call
diff --git a/elmo/elmo-mime.el b/elmo/elmo-mime.el
index e8977f6..b88cd10 100644
--- a/elmo/elmo-mime.el
+++ b/elmo/elmo-mime.el
@@ -293,6 +293,10 @@ Return non-nil if cache is used."
       (save-restriction
 	(std11-narrow-to-header)
 	(run-hooks 'elmo-message-header-inserted-hook))
+      ;; set original major mode for mime-preview-quit
+      (put-text-property (point-min) (point-max)
+			 'mime-view-situation
+			 `((major-mode . ,original-major-mode)))
       (use-local-map
        (or keymap
 	   (if default-keymap-or-function