* 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 (file)
--- 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 (file)
--- 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