From: tomo <tomo>
Date: Thu, 28 Dec 2000 05:48:17 +0000 (+0000)
Subject: (mime-view-read-situation-examples-file): Don't try to read
X-Git-Tag: semi-1_14_3~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b8af2e050e225da0468fd7f549a3b85100bfe7ee;p=elisp%2Fsemi.git

(mime-view-read-situation-examples-file): Don't try to read
situation-examples-file is it is nil.
(mime-situation-examples-file): Avoid to read situation-examples-file
at compile time.
---

diff --git a/mime-view.el b/mime-view.el
index a5f2ba6..15032e0 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -372,7 +372,8 @@ mother-buffer."
 (defun mime-view-read-situation-examples-file (&optional file)
   (or file
       (setq file mime-situation-examples-file))
-  (if (file-readable-p file)
+  (if (and file
+	   (file-readable-p file))
       (with-temp-buffer
 	(insert-file-contents file)
 	(setq mime-situation-examples-file-coding-system
@@ -1856,6 +1857,11 @@ It calls function registered in variable
 
 (provide 'mime-view)
 
+(eval-when-compile
+  (setq mime-situation-examples-file nil)
+  ;; to avoid to read situation-examples-file at compile time.
+  )
+
 (mime-view-read-situation-examples-file)
 
 ;;; mime-view.el ends here