X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-view.el;h=81386cbd6aa441a320bd52fcfd33f692c6d8a3f1;hb=5a737ec4d697ec1f1e6db68fed815669d8cd4bbd;hp=add702e8366489429430b4357134753dc5990282;hpb=62756c430ded8a1cd9abad3414534a81c127e19d;p=elisp%2Fsemi.git

diff --git a/mime-view.el b/mime-view.el
index add702e..81386cb 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1627,9 +1627,8 @@ It calls following-method selected from variable
 	(if (functionp f)
 	    (funcall f new-buf)
 	  (message
-	   (format
-	    "Sorry, following method for %s is not implemented yet."
-	    mode))
+	   "Sorry, following method for %s is not implemented yet."
+	   mode)
 	  ))
       )))
 
@@ -1806,7 +1805,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)