(message-make-fqdn): Bind case-fold-search.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3667ba9..948a110 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-make-fqdn): Bind case-fold-search.
+       Suggested by Christopher Richards <richards@CS.Princeton.EDU>.
+
 2003-10-23  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus.el (spam-process-destination, ham-process-destination):

diff --git a/lisp/message.el b/lisp/message.el
index 033e301..1e76ad3 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4642,7 +4642,8 @@ give as trustworthy answer as possible."
         (user-domain
          (if (and user-mail
                   (string-match "@\\(.*\\)\\'" user-mail))
-             (match-string 1 user-mail))))
+             (match-string 1 user-mail)))
+        (case-fold-search t))
     (cond
      ((and message-user-fqdn
           (stringp message-user-fqdn)