From: 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/gitweb/?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 + * 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