Load MIME acting-example file.
authormorioka <morioka>
Wed, 29 Apr 1998 14:39:20 +0000 (14:39 +0000)
committermorioka <morioka>
Wed, 29 Apr 1998 14:39:20 +0000 (14:39 +0000)
mime-play.el

index e60f76e..92e52c2 100644 (file)
@@ -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