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 (file)
--- 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 (file)
--- 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