From: kaoru <kaoru>
Date: Tue, 19 Feb 2008 20:02:00 +0000 (+0000)
Subject: * wl-mime.el (wl-define-dummy-functions): Split `eval-when-compile' form
X-Git-Tag: wl-2_15_6-fixes~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cc4068bf74c1b1afc2f5a01decda29807d007d8f;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-define-dummy-functions): Split `eval-when-compile' form
 for avoid error; when `make compile-strict.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ae3cc65..10dbfe5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2008-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-mime.el (wl-define-dummy-functions): Split
+	`eval-when-compile' form for avoid error; when `make
+	compile-strict.
+
 	* wl-util.el: Move (eval-when-compile (require 'static)).
 	* wl-dnd.el: Add (eval-when-compile (require 'static)).
 	* wl-message.el: Ditto.
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 540f87d..96d6c62 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -484,8 +484,11 @@ It calls following-method selected from variable
 (eval-when-compile
   (defmacro wl-define-dummy-functions (&rest symbols)
     `(dolist (symbol (quote ,symbols))
-       (defalias symbol 'ignore)))
+       (defalias symbol 'ignore))))
 
+(eval-when-compile
+  ;; split eval-when-compile form for avoid error on `make compile-strict'
+  (require 'mime-pgp)
   (condition-case nil
       (require 'epa)
     (error