From: yoichi <yoichi>
Date: Wed, 4 Aug 2004 16:40:19 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-save): Disable only
X-Git-Tag: wl-2_11_31~48
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0db98b2644c7e1e20d2d335a33cdbb453b6711fb;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-save): Disable only
`eword-encode-address-list' in `mime-header-encode-method-alist'.
* wl-draft.el (toplevel): Require cl (at compile).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1ba8666..03a5be6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,9 @@
 2004-08-05  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
-	* wl-draft.el (toplevel): Require eword-encode.
+	* wl-draft.el (wl-draft-save): Disable only
+	`eword-encode-address-list' in `mime-header-encode-method-alist'.
+
+	* wl-draft.el (toplevel): Require eword-encode, cl (at compile).
 
 2004-08-01  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index ae93ac0..c2f8093 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -44,6 +44,7 @@
 (defvar mail-from-style)
 
 (eval-when-compile
+  (require 'cl)
   (require 'static)
   (require 'elmo-pop3)
   (defalias-maybe 'x-face-insert 'ignore)
@@ -1443,8 +1444,13 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 		(goto-char (point-max))
 		(insert (if (eq (char-before) ?\n) "" "\n")
 			mail-header-separator "\n")))
-	    (let ((mime-header-encode-method-alist
-		   '((eword-encode-unstructured-field-body))))
+	    (let* ((mime-header-encode-method-alist
+		    (copy-sequence mime-header-encode-method-alist))
+		   (key
+		    (assq 'eword-encode-address-list
+			  mime-header-encode-method-alist)))
+	      (setq mime-header-encode-method-alist
+		    (delq key mime-header-encode-method-alist))
 	      (mime-edit-translate-buffer))
 	    (wl-draft-get-header-delimiter t)
 	    (setq next-number