From: yoichi <yoichi>
Date: Wed, 4 Aug 2004 17:00:56 +0000 (+0000)
Subject: Fix the last change:
X-Git-Tag: wl-2_11_31~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=669196d0e1ce39cff7cff6071aab3fc32dff7d61;p=elisp%2Fwanderlust.git

Fix the last change:
* wl-draft.el (wl-draft-save): Encode address list under edit by
`eword-encode-unstructured-field-body'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 03a5be6..104a6e8 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,7 @@
 2004-08-05  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
-	* wl-draft.el (wl-draft-save): Disable only
-	`eword-encode-address-list' in `mime-header-encode-method-alist'.
+	* wl-draft.el (wl-draft-save): Encode address list under edit by
+	`eword-encode-unstructured-field-body'.
 
 	* wl-draft.el (toplevel): Require eword-encode, cl (at compile).
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index c2f8093..633770d 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1444,13 +1444,12 @@ 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
-		    (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))
+	    (let ((mime-header-encode-method-alist
+		   (append
+		    '((eword-encode-unstructured-field-body
+		       .  (To Cc Bcc Resent-To Resent-Cc Resent-Bcc From)))
+		    (if (boundp 'mime-header-encode-method-alist)
+			(symbol-value 'mime-header-encode-method-alist)))))
 	      (mime-edit-translate-buffer))
 	    (wl-draft-get-header-delimiter t)
 	    (setq next-number