Synch with Wanderlust.

* message.el (message-save-drafts): Override `mime-header-encode-method-alist'.

diff --git a/ChangeLog b/ChangeLog
index 7dc0759..e35073c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+       Suggested by Kenichi OKADA <okada@opaopa.org>
+
+       * lisp/message.el (message-save-drafts): Override
+       `mime-header-encode-method-alist'.
+
 2002-01-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/message.el (message-cite-prefix-regexp): Fix the regexp.

diff --git a/lisp/message.el b/lisp/message.el
index 1544879..e361768 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6310,7 +6310,9 @@ regexp varstr."
       (insert-buffer buffer)
       (setq message-reply-headers reply-headers)
       (message-generate-headers '((optional . In-Reply-To)))
-      (mime-edit-translate-buffer))
+      (let ((mime-header-encode-method-alist
+            '((eword-encode-unstructured-field-body))))
+       (mime-edit-translate-buffer)))
     (set-buffer-modified-p nil))
   (message "Saving %s...done" buffer-file-name))