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