* 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 (file)
--- 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 (file)
--- 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)