From: tomo <tomo>
Date: Fri, 11 Aug 2000 11:52:33 +0000 (+0000)
Subject: (mime-display-text/plain): Display warning message when
X-Git-Tag: emacs-21_0_90-semi-remi-1_14_3-pre1~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=84b3e1a7a35b2b34ff24e40a0b152c99c4a7b25e;p=elisp%2Fsemi.git

(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
--- 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))