From: yoichi <yoichi>
Date: Sat, 5 Apr 2003 11:54:23 +0000 (+0000)
Subject: * mime-view.el (mime-preview-toggle-display): Use boundary with
X-Git-Tag: semi-1_14_6~24
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fsemi.git;a=commitdiff_plain;h=c53615477b67e0dabfea92b2b38c1e2b1f7d02b7

* mime-view.el (mime-preview-toggle-display): Use boundary with
children.
---

diff --git a/ChangeLog b/ChangeLog
index aef0adf..340a561 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-05  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* mime-view.el (mime-preview-toggle-display): Use boundary with
+	children.
+
 2003-02-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* semi-def.el (mime-should-use-popup-menu): New function.
diff --git a/mime-view.el b/mime-view.el
index add702e..b5164d4 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1806,7 +1806,7 @@ If LINES is negative, scroll up LINES lines."
 ;;;
 
 (defun mime-preview-toggle-display (type &optional display)
-  (let ((situation (mime-preview-find-boundary-info))
+  (let ((situation (mime-preview-find-boundary-info t))
 	(sym (intern (concat "*" (symbol-name type))))
 	entity p-beg p-end)
     (setq p-beg (aref situation 0)