From 6c2ee91f04f0573007b1c547347710c88b62392e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 1 Feb 2002 09:48:13 +0000 Subject: [PATCH] Synch with Wanderlust. * message.el (message-save-drafts): Override `mime-header-encode-method-alist'. --- ChangeLog | 6 ++++++ lisp/message.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 7dc0759..e35073c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-02-01 Katsumi Yamaoka + Suggested by Kenichi OKADA + + * lisp/message.el (message-save-drafts): Override + `mime-header-encode-method-alist'. + 2002-01-29 Katsumi Yamaoka * lisp/message.el (message-cite-prefix-regexp): Fix the regexp. diff --git a/lisp/message.el b/lisp/message.el index 1544879..e361768 100644 --- 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)) -- 1.7.10.4