Use lset for ci comparison.

src/Makefile

@@ -234,7 +234,8 @@ ENVIRONMENT-SOURCES=environment.scm ansi.import.scm
 environment.o: environment.import.scm
 environment.import.scm: $(ENVIRONMENT-SOURCES)
 
-MAILMAN-SOURCES=mailman.scm utils.import.scm progress.import.scm
+MAILMAN-SOURCES=mailman.scm utils.import.scm progress.import.scm	\
+	util-set-list.scm
 
 mailman.o: mailman.import.scm
 mailman.import.scm: $(MAILMAN-SOURCES)

src/mailman.scm

@@ -46,7 +46,8 @@
 	 (chicken sort)
 	 (chicken format)
 	 utils
-	 progress)
+	 progress
+	 util-set-list)
 
  ;; Where does the mailman binaries reside
  (define *mailman-bin* (make-parameter "/usr/lib/mailman/bin"))
@@ -117,7 +118,8 @@
 
  ;; Returns #t if the email is in given ml
  (define (email-in-mailman-list? ml email)
-   (if (member email (mailman-list-members ml))
+   (if (lset-member? (list->lset (mailman-list-members ml) string-ci=?)
+		     email)
        #t
        #f))