From: yamaoka <yamaoka>
Date: Fri, 1 Feb 2002 09:48:21 +0000 (+0000)
Subject: Synch with Wanderlust.
X-Git-Tag: t-gnus-6_15_6-01-quimby~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2b62018a87bab94b2ea1f168a26ace325b5c151a;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index f76228a..38d5b34 100644
--- 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-02-01  Taiji Can  <Taiji.Can@grd.advantest.co.jp>
 
 	* texi/gnus-ja.texi (Posting Styles): Fix typo.
diff --git a/lisp/message.el b/lisp/message.el
index 9d0871b..db9b6d1 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6327,7 +6327,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))