Add (eval-when-compile (require 'cl)).

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5fca710..e9367f5 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2008-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-address.el: Add (eval-when-compile (require 'cl)).
+       * wl-addrmgr.el: Ditto.
+       * wl-mime.el: Ditto.
+       * wl-util.el: Ditto.
+
 2008-02-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl.el (wl-plugged-toggle): Use `string-to-number' instead of

diff --git a/wl/wl-address.el b/wl/wl-address.el
index d41537d..69abb20 100644 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -36,6 +36,7 @@
 (require 'wl-util)
 (require 'wl-vars)
 (require 'std11)
+(eval-when-compile (require 'cl))
 
 (defvar wl-address-complete-header-list
   '("To:" "From:" "Cc:" "Bcc:" "Mail-Followup-To:" "Reply-To:"

diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index 4c121a8..5c27f35 100644 (file)
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -34,6 +34,7 @@
 
 (require 'wl-address)
 (require 'wl-draft)
+(eval-when-compile (require 'cl))
 
 ;; Variables
 (defgroup wl-addrmgr nil

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 80d8b51..c8a798e 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -33,6 +33,7 @@
 (require 'mime-play)
 (require 'elmo)
 (require 'wl-vars)
+(eval-when-compile (require 'cl))
 
 ;;; Draft
 

diff --git a/wl/wl-util.el b/wl/wl-util.el
index 6869de5..610a615 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -35,10 +35,12 @@
 (require 'bytecomp)
 (require 'elmo-util)
 (require 'elmo-flag)
+(require 'wl-vars)
 
 (condition-case nil (require 'pp) (error nil))
 
 (eval-when-compile
+  (require 'cl)
   (require 'time-stamp)
   (defalias-maybe 'next-command-event 'ignore)
   (defalias-maybe 'event-to-character 'ignore)