(mime-display-text/plain): Display warning message when

`mime-insert-text-content' fails.

diff --git a/mime-view.el b/mime-view.el
index 3f5cf9f..24678d0 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -722,7 +722,11 @@ Each elements are regexp of field-name.")
 (defun mime-display-text/plain (entity situation)
   (save-restriction
     (narrow-to-region (point-max)(point-max))
-    (mime-insert-text-content entity)
+    (condition-case nil
+       (mime-insert-text-content entity)
+      (error (progn
+              (message "Can't decode current entity.")
+              (sit-for 1))))
     (run-hooks 'mime-text-decode-hook)
     (goto-char (point-max))
     (if (not (eq (char-after (1- (point))) ?\n))