From: teranisi <teranisi>
Date: Wed, 20 Feb 2002 02:15:57 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send): Use mime-header-encode-method-alist
X-Git-Tag: wl-2_9_8~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6a7f5dbcd3d83ea7e3f7d3ca4cb2810b8e69fd77;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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