From 02d6599276c4d6017741cf0e44c9d71002708a1c Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 6 Aug 2002 13:22:56 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-make-mail-followup-to): Ignore case while deleting address. (wl-draft-delete-myself-from-cc): Ditto. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 21 ++++++++++++++++++--- 2 files changed, 22 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 16e68b9..d0f52d7 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,9 @@ 2002-08-06 Yuuichi Teranishi + * wl-draft.el (wl-draft-make-mail-followup-to): Ignore case + while deleting address. + (wl-draft-delete-myself-from-cc): Ditto. + * wl-fldmgr.el (wl-fldmgr-sort): Added optional argument. If optional argument is specified, reverse sort order. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 392af18..9db958a 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -237,7 +237,12 @@ (let ((rlist (elmo-list-delete (or wl-user-mail-address-list (list (wl-address-header-extract-address wl-from))) - (copy-sequence recipients)))) + recipients + (lambda (elem list) + (elmo-delete-if + (lambda (item) (string= (downcase elem) + (downcase item))) + list))))) (if (elmo-list-member rlist (mapcar 'downcase wl-subscribed-mailing-list)) rlist @@ -249,10 +254,20 @@ (let ((myself (or wl-user-mail-address-list (list (wl-address-header-extract-address wl-from))))) (cond (wl-draft-always-delete-myself ; always-delete option - (elmo-list-delete myself cc)) + (elmo-list-delete myself cc + (lambda (elem list) + (elmo-delete-if + (lambda (item) (string= (downcase elem) + (downcase item))) + list)))) ((elmo-list-member (append to cc) ; subscribed mailing-list (mapcar 'downcase wl-subscribed-mailing-list)) - (elmo-list-delete myself cc)) + (elmo-list-delete myself cc + (lambda (elem list) + (elmo-delete-if + (lambda (item) (string= (downcase elem) + (downcase item))) + list)))) (t cc)))) (defun wl-draft-forward (original-subject summary-buf) -- 1.7.10.4