From: teranisi <teranisi>
Date: Tue, 6 Aug 2002 13:22:56 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-make-mail-followup-to): Ignore case
X-Git-Tag: elmo-mark-root~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=02d6599276c4d6017741cf0e44c9d71002708a1c;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-make-mail-followup-to): Ignore case
while deleting address.
(wl-draft-delete-myself-from-cc): Ditto.
---

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  <teranisi@gohome.org>
 
+	* 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)