From 41a3b50d83316c6d0c64d152deb8c2c7eaac370a Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 7 Feb 2003 16:30:04 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send): Remove duplicate "Bcc" and add "From" entry to be treated with wl-draft-eword-encode-address-list. * wl-mime.el (wl-draft-preview-message): Ditto. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 2 +- wl/wl-mime.el | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 9329501..aa826ab 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,9 @@ 2003-02-08 Yoichi NAKAYAMA + * wl-draft.el (wl-draft-send): Remove duplicate "Bcc" and add + "From" entry to be treated with wl-draft-eword-encode-address-list. + * wl-mime.el (wl-draft-preview-message): Ditto. + * wl-summary.el (wl-summary-mark-as-read): Take list of numbers. (wl-summary-mark-as-unread): Ditto. (wl-summary-mark-as-read-region): Change accordingly. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 0353d3c..94ed443 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1274,7 +1274,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (let ((mime-header-encode-method-alist (append '((wl-draft-eword-encode-address-list - . (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc))) + . (To Cc Bcc Resent-To Resent-Cc Resent-Bcc From))) (if (boundp 'mime-header-encode-method-alist) (symbol-value 'mime-header-encode-method-alist))))) (run-hooks 'mail-send-hook) ; translate buffer diff --git a/wl/wl-mime.el b/wl/wl-mime.el index e057837..cc0d236 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -152,7 +152,7 @@ It calls following-method selected from variable (mime-header-encode-method-alist (append '((wl-draft-eword-encode-address-list - . (To Cc Bcc Resent-To Resent-Cc Bcc Resent-Bcc))) + . (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-view-ignored-field-list ; all header. -- 1.7.10.4