* wl-draft.el (wl-draft-send): Use mime-header-encode-method-alist

only if	it is bound as variable.

* wl-mime.el (wl-draft-preview-message): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5272b6a..7a44cb6 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,9 @@
 2002-02-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
-       * wl-draft.el (toplevel): require 'eword-encode.
+       * wl-draft.el (wl-draft-send): Use mime-header-encode-method-alist
+       only if it is bound as variable.
+
+       * wl-mime.el (wl-draft-preview-message): Ditto.
 
 2002-02-19  Yuuichi Teranishi  <teranisi@gohome.org>
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0f70e5b..f565437 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -37,7 +37,6 @@
 (condition-case nil (require 'timezone) (error nil))
 (require 'std11)
 (require 'wl-vars)
-(require 'eword-encode)
 
 (defvar x-face-add-x-face-version-header)
 (defvar mail-reply-buffer)
@@ -1212,7 +1211,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
                   (append
                    '((wl-draft-eword-encode-address-list 
                       .  (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
-                   mime-header-encode-method-alist)))
+                   (if (boundp 'mime-header-encode-method-alist)
+                       (symbol-value 'mime-header-encode-method-alist)))))
              (run-hooks 'mail-send-hook) ; translate buffer
              )
            (if wl-draft-verbose-send

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 4bc9670..63e00df 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -78,7 +78,8 @@ By setting following-method as yank-content."
          (append
           '((wl-draft-eword-encode-address-list 
              .  (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc)))
-          mime-header-encode-method-alist))
+          (if (boundp 'mime-header-encode-method-alist)
+              (symbol-value 'mime-header-encode-method-alist))))
         mime-view-ignored-field-list   ; all header.
         (mime-edit-translate-buffer-hook
          (append