* 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 (file)
--- 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 (file)
--- 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