From 669196d0e1ce39cff7cff6071aab3fc32dff7d61 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 4 Aug 2004 17:00:56 +0000 Subject: [PATCH] Fix the last change: * wl-draft.el (wl-draft-save): Encode address list under edit by `eword-encode-unstructured-field-body'. --- wl/ChangeLog | 4 ++-- wl/wl-draft.el | 13 ++++++------- 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 03a5be6..104a6e8 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,7 +1,7 @@ 2004-08-05 Yoichi NAKAYAMA - * wl-draft.el (wl-draft-save): Disable only - `eword-encode-address-list' in `mime-header-encode-method-alist'. + * wl-draft.el (wl-draft-save): Encode address list under edit by + `eword-encode-unstructured-field-body'. * wl-draft.el (toplevel): Require eword-encode, cl (at compile). diff --git a/wl/wl-draft.el b/wl/wl-draft.el index c2f8093..633770d 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1444,13 +1444,12 @@ 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 - (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)) + (let ((mime-header-encode-method-alist + (append + '((eword-encode-unstructured-field-body + . (To Cc Bcc Resent-To Resent-Cc Resent-Bcc From))) + (if (boundp 'mime-header-encode-method-alist) + (symbol-value 'mime-header-encode-method-alist))))) (mime-edit-translate-buffer)) (wl-draft-get-header-delimiter t) (setq next-number -- 1.7.10.4