lisp/ChangeLog addition:

2002-03-13  Josh Huber  <huber@alum.wpi.edu>

	* message.el (message-make-mft): Set case-fold-search while
	generating the MFT.  Also, a little cleanup in the MFT code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52a6d57..a6bb1f6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-13  Josh Huber  <huber@alum.wpi.edu>
+
+       * message.el (message-make-mft): Set case-fold-search while
+       generating the MFT.  Also, a little cleanup in the MFT code.
+
 2002-03-12  Simon Josefsson  <jas@extundo.com>
 
        * message.el (message-qmail-inject-args): May be function.

diff --git a/lisp/message.el b/lisp/message.el
index 431f67b..118fc62 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3942,7 +3942,8 @@ give as trustworthy answer as possible."
 
 (defun message-make-mft ()
   "Return the Mail-Followup-To header."
-  (let* ((msg-recipients (message-options-get 'message-recipients))
+  (let* ((case-fold-search t)
+        (msg-recipients (message-options-get 'message-recipients))
         (recipients
          (mapcar 'mail-strip-quoted-names
                  (message-tokenize-header msg-recipients)))
@@ -3968,15 +3969,15 @@ give as trustworthy answer as possible."
                             (mapcar 'funcall
                                     message-subscribed-address-functions))))
     (save-match-data
-      (when (eval (apply 'append '(or)
+      (when (eval
+            (apply 'append '(or)
+                   (mapcar
+                    #'(lambda (regexp)
                         (mapcar
-                         (function (lambda (regexp)
-                                     (mapcar
-                                      (function (lambda (recipient)
-                                                  `(string-match ,regexp
-                                                                 ,recipient)))
-                                      recipients)))
-                         mft-regexps)))
+                         #'(lambda (recipient)
+                             `(string-match ,regexp ,recipient))
+                         recipients))
+                    mft-regexps)))
        msg-recipients))))
 
 (defun message-generate-headers (headers)