From 616f3c3c1533961391469a94f4d6108878977320 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 29 Apr 1998 14:39:20 +0000 Subject: [PATCH] Load MIME acting-example file. --- mime-play.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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 -- 1.7.10.4