From: yoichi Date: Fri, 7 Feb 2003 16:30:04 +0000 (+0000) Subject: * wl-draft.el (wl-draft-send): Remove duplicate "Bcc" and add X-Git-Tag: wl-2_11_3~15 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=41a3b50d83316c6d0c64d152deb8c2c7eaac370a;p=elisp%2Fwanderlust.git * 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. --- 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.