* wl-draft.el (wl-user-agent-compose): Add (require 'wl) for

use function `wl-string-match-assoc'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 014dc5c..dd461b8 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-draft.el (wl-user-agent-compose): Add (require 'wl) for
+       use function `wl-string-match-assoc'.
+
 2000-08-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-draft-remove-group-list-contents): New user option.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 481b87b..c47a289 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1925,6 +1925,8 @@ Only support for TO, SUBJECT, and OTHER-HEADERS has been implemented.
 Support for CONTINUE, YANK-ACTION, and SEND-ACTIONS has not
 been implemented yet.  Partial support for SWITCH-FUNCTION now supported."
 
+  (unless (featurep 'wl)
+    (require 'wl))
   ;; protect these -- to and subject get bound at some point, so it looks
   ;; to be necessary to protect the values used w/in
   (let ((wl-user-agent-headers-and-body-alist other-headers)