(mime-view-read-situation-examples-file): Display warning.

[cf. <emacs-mime-ja:680>]

diff --git a/mime-view.el b/mime-view.el
index 26593bb..a5f2ba6 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -385,9 +385,9 @@ mother-buffer."
               ;;   (symbol-value 'file-coding-system))
               ;;  (t nil))
              )
-       (condition-case nil
+       (condition-case error
            (eval-buffer)
-         (error nil))
+         (error (message "%s is broken: %s" file (cdr error))))
        ;; format check
        (condition-case nil
            (let ((i 0))