* wl-draft.el (wl-draft-save):

Override `mime-header-encode-method-alist'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4af6a66..99d3bca 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-02-01  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-draft.el (wl-draft-save):
+       Override `mime-header-encode-method-alist'.
+
+2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-folder.el (wl-folder-pick): New function.
        Define key as "?".
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 54773ae..9168336 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1237,7 +1237,9 @@ Derived from `message-save-drafts' in T-gnus."
                  (goto-char (point-max))
                  (insert (if (eq (char-before) ?\n) "" "\n")
                          mail-header-separator "\n"))))
-           (mime-edit-translate-buffer)
+           (let ((mime-header-encode-method-alist
+                  '((eword-encode-unstructured-field-body))))
+             (mime-edit-translate-buffer))
            (wl-draft-get-header-delimiter t)))
        (set-buffer-modified-p nil)
        (wl-draft-config-info-operation