From: morioka <morioka>
Date: Wed, 29 Apr 1998 14:39:20 +0000 (+0000)
Subject: Load MIME acting-example file.
X-Git-Tag: semi-1_3_4~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=616f3c3c1533961391469a94f4d6108878977320;p=elisp%2Fsemi.git

Load MIME acting-example file.
---

diff --git a/mime-play.el b/mime-play.el
index e60f76e..92e52c2 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -555,4 +555,15 @@ to write."
 
 (provide 'mime-play)
 
+(let* ((file mime-view-acting-example-file)
+       (buffer (get-buffer-create " *mime-example*")))
+  (if (file-readable-p file)
+      (unwind-protect
+	  (save-excursion
+	    (set-buffer buffer)
+	    (erase-buffer)
+	    (insert-file-contents file)
+	    (eval-current-buffer))
+	(kill-buffer buffer))))
+
 ;;; mime-play.el ends here