From c313524dda090634212d5f896f2927df4ec479f1 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 1 Feb 2002 06:09:59 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-save): Override `mime-header-encode-method-alist'. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + * wl-draft.el (wl-draft-save): + Override `mime-header-encode-method-alist'. + +2002-02-01 Kenichi OKADA + * 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 -- 1.7.10.4