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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 97d298f..16cf280 100644 (file)
--- 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 (file)
--- 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