From: teranisi <teranisi>
Date: Mon, 24 Jan 2005 10:51:55 +0000 (+0000)
Subject: (elmo-mime-entity-display): Bind elmo-message-displaying as t.
X-Git-Tag: wl-2_14-root~75
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f803441ec57dd78353765ed76a126af9bbb4a92f;p=elisp%2Fwanderlust.git

(elmo-mime-entity-display): Bind elmo-message-displaying as t.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 97d298f..16cf280 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-mime.el (elmo-mime-entity-display): Bind elmo-message-displaying
+	as t.
+
 2005-01-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-shimbun.el (toplevel): Require cl at compile.
diff --git a/elmo/elmo-mime.el b/elmo/elmo-mime.el
index 232e3e9..9bc4b23 100644
--- a/elmo/elmo-mime.el
+++ b/elmo/elmo-mime.el
@@ -72,12 +72,12 @@ use for keymap of representation buffer.")
 					      &optional
 					      original-major-mode
 					      keymap)
-  (mime-display-message entity
-			preview-buffer
-			nil
-			keymap
-			original-major-mode))
-
+  (let ((elmo-message-displaying t))
+    (mime-display-message entity
+			  preview-buffer
+			  nil
+			  keymap
+			  original-major-mode)))
 
 (eval-and-compile
   (luna-define-class mime-elmo-buffer-entity (mime-buffer-entity