From 54c38af2bef83f8019a6d934651b80e1372a5222 Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 16 Aug 2001 12:32:06 +0000 Subject: [PATCH] * elmo-mime.el (elmo-mime-display-as-is-internal): Put text property 'mime-preview-situation for `mime-preview-quit'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-mime.el | 4 ++++ 2 files changed, 9 insertions(+) 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 + + * elmo-mime.el (elmo-mime-display-as-is-internal): Put text + property 'mime-preview-situation for `mime-preview-quit'. + 2001-08-15 Hiroya Murata * 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 -- 1.7.10.4