From: okada <okada>
Date: Fri, 1 Feb 2002 06:09:59 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-save):
X-Git-Tag: wl-2_9_7~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c313524dda090634212d5f896f2927df4ec479f1;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4af6a66..99d3bca 100644
--- 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
--- 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