From 0db98b2644c7e1e20d2d335a33cdbb453b6711fb Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 4 Aug 2004 16:40:19 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-save): Disable only `eword-encode-address-list' in `mime-header-encode-method-alist'. * wl-draft.el (toplevel): Require cl (at compile). --- wl/ChangeLog | 5 ++++- wl/wl-draft.el | 10 ++++++++-- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 1ba8666..03a5be6 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,6 +1,9 @@ 2004-08-05 Yoichi NAKAYAMA - * wl-draft.el (toplevel): Require eword-encode. + * wl-draft.el (wl-draft-save): Disable only + `eword-encode-address-list' in `mime-header-encode-method-alist'. + + * wl-draft.el (toplevel): Require eword-encode, cl (at compile). 2004-08-01 Yoichi NAKAYAMA diff --git a/wl/wl-draft.el b/wl/wl-draft.el index ae93ac0..c2f8093 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -44,6 +44,7 @@ (defvar mail-from-style) (eval-when-compile + (require 'cl) (require 'static) (require 'elmo-pop3) (defalias-maybe 'x-face-insert 'ignore) @@ -1443,8 +1444,13 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (goto-char (point-max)) (insert (if (eq (char-before) ?\n) "" "\n") mail-header-separator "\n"))) - (let ((mime-header-encode-method-alist - '((eword-encode-unstructured-field-body)))) + (let* ((mime-header-encode-method-alist + (copy-sequence mime-header-encode-method-alist)) + (key + (assq 'eword-encode-address-list + mime-header-encode-method-alist))) + (setq mime-header-encode-method-alist + (delq key mime-header-encode-method-alist)) (mime-edit-translate-buffer)) (wl-draft-get-header-delimiter t) (setq next-number -- 1.7.10.4